关于易语言Excel VBA冻结单元格的问题？ wps冻结单元格怎么设置

关于易语言Excel VBA冻结单元格的问题？wps冻结单元格怎么设置

如果在excel VBA中判断A列中的空白单元格，遇到后就终止程序？

for i = 1 to range("A65536").end(xlup).row()

定义这样一个变量i

对i进行循环就行了。

这是2003的代码，2007及以上的，把65536修改为

1048576

以下代码是通过selectionchange事件写的，有点投机取巧，就是当选中C列的单个单元格时判断对应的B列中单元格里的数值是否等于A2中的数值，如果等于则禁止选中C列的单元格。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then

[a1].Select

Else

If Target.Column = 3 Then

If Cells(Target.Row, 2) = [a2] Then

Cells(Target.Row, 4).Select

End If

End Sub如果要改你那个代码的话可以通过target.address判断改变单元格的地址是否为B2:B10

这样写，运行第一遍会运行OK，

但是第二遍就会返回这个错误，

因为第一遍已经 Protect了，所有要有句 Unprotect

ActiveSheet.Unprotect "12345"

Cells.Locked = True

Range("A2:B100").Locked = False

ActiveSheet.Protect "12345"

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) = "A1" Then

If Target <> "好" Then Target = ""

End If

End Sub