Question

应用程序定义或对象定义错误 1004

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)If Target.Offset(0, -1).Value = "合计" Then Y = VBA.InputBox("请输入密码：") If Y = "" Then Range("A1").Select Exit Sub ElseIf Y = 123 Then Application.EnableEvents = False Else MsgBox "密码错误!" Range("A1").Select End IfEnd IfEnd Sub事件运行后inputbox的窗口跳出了，如果点击取消，或者关闭，或不输入内容直接点确定就会在if target出错。我在前面加了on error resume next，点击取消还会跳出inputbox。

Answer 1

当定义key_row变量后，key_row的值是0，
If Worksheets(i + 1).Cells(key_row, 3) <> "" Then

在这条语句前没有给key_row赋值，这时key_row的值是0，但在cells中的两个参数都不为0，如果是0就出错误。

追问

大佬，什么意思，没太看懂您的意思。我没定义key_ROW的变量啊。这代码里没有就有一个Y变量啊。。