如何从代码VBA Excel调用DblClick sub

Question

>我有一个有两种形式的Excel工作表：Form1和Form2。
Form1具有带有双击事件的文本框 1：

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

Form2具有点击事件CommandButton2：

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

我需要从CommandButton2_Click潜艇呼叫TextBox1_DblClick潜艇。

我怎样才能打这样的电话？

Answer 1

创建一个新模块，将 sub 添加到其中，其中包含您要执行的操作

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 中包含输入参数

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