学习EXCEL得文档详解.pdf

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

ExitSub

Else

Target.Cells(1,1).Select

A=Target

EndIf

EndSub

方法二：

Dima

PrivateSubWorksheet_Change(ByValTargetAsRange)

IfTarget.Count=1Then

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

Application.EnableEvents=False

IfaThen

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

Ifb123Then

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

Target=a

EndIf

EndIf

EndIf

Application.EnableEvents=True

EndSub

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)

Target.Cells(1,1).Select

a=Target

EndSub

方法三

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)

IfTarget.Count=1Then

IfIntersect(Target,[a1:c10,e1:e10])IsNothingThenExitSub

IfTarget.Value=Then

ActiveSheet.Unprotect

Else

Dimb

Z:

b=InputBox(请输入密码,检查权限)

Ifb=123Then

ExitSub

Else

Ifb=Then

Cells(11,ActiveCell.Column).Select

ExitSub

Else

GoToZ

EndIf

EndIf

EndIf

EndIf

EndSub

3、公式自动填充

1【可保护工作表】)在D列输入数据，10列和11列自动向下填充公式，此代码在工作表中

要在工作表保护后使用自动筛选功能,需要确保:

1,保护工作表时工作表处于自动筛选模式(即显示自动筛选的下拉按钮),

2,保护时指定允许筛选

PrivateSubWorksh