Question

我有一个包含两种表单的Excel工作表：Form1和Form2。
Form1的TextBox1包含双击事件：

Public Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  ' Some activity...
End Sub

Form2有CommandButton2点击事件：

Private Sub CommandButton2_Click()
  ' Another activity...
End Sub

我需要调用TextBox1_DblClick子中的CommandButton2_Click子。

我该如何拨打电话？

Answer 1

创建一个新的模块，添加包含您要执行的操作的子

Sub mySubroutine()
    ' Do stuff
End Sub

然后从两个点击处理程序中调用它

' In Form1
Public Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  mySubroutine
End Sub

' In Form2
Private Sub CommandButton2_Click()
  mySubroutine
End Sub

如果你想从表单传递东西（比如文本框字符串等），那么在你的子

中包含输入参数

Sub mySubroutine(str As String, n As Long) ' Passing arguments
    ' Do stuff
End Sub

然后在从任何地方进行呼叫时传递这些参数

' Get a String and Long from data on the form, then call mySubroutine
mySubroutine str:=myString, n:=myLong

如何从代码VBA Excel中调用DblClick子

1 个答案: