工作表选择更改事件

时间:2014-09-07 04:00:22

标签: excel vba

我有一个工作表,我试图编程以在选择某个范围内的单元格时打开文本输入框。我对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

- 谢谢你的时间!

1 个答案:

答案 0 :(得分:0)

我在

收到错误
Application.Run ("InputUser") saying

enter image description here

如果更改为Call InputUser,则可以正常工作。

Run方法的帮助并不具有启发性。 AFAIK CallApplication.Run应该可以互换。