学习EXCEL的心得.docVIP

1、怎样设置数据重复输入 数据—有效性—设置选项卡—允许：自定义—公式：=COUNTIF(C:C,C5)=1 2、单元格数据只输入一次，就不能在更改，需密码才行 注：绿色区域的单元格只能输入一次数据Dim A Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [a1:b55555,d1:f55555]) Is Nothing Then Exit Sub Application.EnableEvents = False If A Then b = InputBox(改变内容，请输入密码！) If b 123 Then MsgBox 密码错误，数据不能更改! Target = A End If End If Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count 1 Then Exit Sub Else Target.Cells(1, 1).Select A = Target End If End Sub 方法二： Dim a Private