学习EXCEL的心得(最新整理版).docVIP

第PAGE2页共NUMPAGES10页

1、怎样设置数据重复输入

数据—有效性—设置选项卡—允许：自定义—公式：=COUNTIF(C:C,C5)=1

2、单元格数据只输入一次，就不能在更改，需密码才行

注：绿色区域的单元格只能输入一次数据

代码如下：在VBA中的工作表写下以下代码此方法对整个工作表中指定的区域有效（本编码密码：123）

方法一：

DimA

PrivateSubWorksheet_Change(ByValTargetAsRange)

IfIntersect(Target,[a1:b55555,d1:f55555])IsNothingThenExitSub

Application.EnableEvents=False

IfAThen

b=InputBox(改变内容，请输入密码！)

Ifb123Then

MsgBox密码错误，数据不能更改!

Target=A

EndIf

EndIf

Application.EnableEvents=True

EndSub

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)

IfTarget.Count1Then