我有一个工作表,我试图编程以在选择某个范围内的单元格时打开文本输入框。我对VBA比较陌生,尤其是事件处理的新手,并且想知道是否有人对如何使这个代码运行有任何建议?就像现在一样,我在编译项目时没有收到任何错误消息,但代码似乎没有像我希望的那样工作。目前的代码:
Sub InputUser()
Dim strName As String
strName = InputBox("Please enter your User ID.")
If strName = vbNullString Then Exit Sub
MsgBox "User:" & strName
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Sheet19.Range("L3:L300")) Is Nothing Then
Application.Run ("InputUser")
End If
Exit Sub
End Sub
- 谢谢你的时间!
答案 0 :(得分:0)
我在
收到错误Application.Run ("InputUser") saying
如果更改为Call InputUser
,则可以正常工作。
Run方法的帮助并不具有启发性。 AFAIK Call
和Application.Run
应该可以互换。