Question

这段vba 哪里有错误，怎么改正？

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim x
x = Sheets("sheet1").Range("a1")
If x > 0 Then
msxbox "x>0"
End If

End Sub

Answer 1

语句没有错，但是如果EXCEL文件里面没有名字叫做sheet1的表就会报错，因为代码是检测这个表的a1是否大于0

追问

那这段代码的意思是不是，当工作簿数据改变时，如果sheet1页的a1大于0，便弹出窗口？
但是为什么我不能运行或逐语句测试它？

追答

意思是你说的那样，如果需要调试应在需要的调试语句上按F9设置断点，然后修改表格使之执行，直接按F8是不允许的