【问题标题】:VBA: right click in user formVBA:右键单击用户表单
【发布时间】:2021-10-18 17:34:36
【问题描述】:

是否有一种简单的方法可以在 vba、excel 的用户表单中的文本框中启用右键单击弹出菜单?我只是想粘贴到文本框中,但无法在用户表单中右键单击打开菜单

我的代码给出了一个“编译错误:参数不是可选的”并在 With Controls.Add 中突出显示 .Add ...

 Private myMenu

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If (Button = 2) Then myMenu.ShowPopup
End Sub

Private Sub UserForm_Initialize()
    With UserForm1
        .StartUpPosition = 2
    End With

    Set myMenu = Application.CommandBars.Add(Position:=msoBarPopup, Temporary:=True)

    With myMenu
        With Controls.Add
            .Caption = "Hello"
            .OnAction = "HelloWorld"
        End With
    End With
End Sub

【问题讨论】:

  • 是的,我发现之前但一直遇到“编译错误:参数不是可选的”并且它突出显示。在这部分代码中添加带有控件的 myMenu。添加 .Caption = "Hello" .OnAction = "HelloWorld" End With End With .... PS 不确定如何将其编辑为代码抱歉
  • 如果您编辑帖子并包含您尝试过的内容以及您遇到错误的行,更多人将能够提供帮助。
  • 哦,好电话

标签: excel vba userform right-click popupmenu


【解决方案1】:

改变这一行:

With Controls.Add

收件人:

With .Controls.Add

【讨论】:

    猜你喜欢
    • 2019-09-13
    • 2018-12-17
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2011-01-11
    • 2020-11-21
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多