在其他子函数中调用对象的事件函数集

Question

我在 Excel VBA 中有一个用户窗体，其中包含不同的对象，如 CheckBox、RadioButtons、TextEdit Box 等。每个对象都有不同的事件函数，但我想在用户定义的子函数中调用一些事件函数，如 UserForm_Init() 函数按顺序重新利用用它们编写的相同代码。

例子：

Private Sub  CheckBox1_Click() [Later changed to public also]
    If CheckBox1.Value Then
         --- Code
    End If
End Sub

Private Sub    CheckBox2_Click()
      If CheckBox2.Value Then
         --- Code
      End If
End Sub

Private Sub    RadioButton1_Click()
    If RadioButton1.Value Then
         --- Code
    End If
End Sub

' User Defined Function
Sub UserForm_Init()
     CheckBox1_Click()
     CheckBox2_Click()
     RadioButton1_Click()
End Sub

但是当我尝试编译时显示编译错误，如何在用户定义的子函数中执行这些对象事件函数。

我知道我可以在事件函数中编写单独的函数，并为用户定义的子函数调用这些单独的函数。但是在这种情况下，重新更改整个代码将太困难了。我只能选择在子函数中调用这些事件函数来执行。

如何执行这些操作，在用户定义的子函数 [UserForm_Init()] 中调用事件函数？

Answer 1

VBA 不使用花括号。此代码不会与这些一起编译。 VBA 需要Sub 和End Sub 来定义过程。

Sub CheckBox1_Click()

  if CheckBox1.Value Then
     --- Code
  end if
End Sub

Sub CheckBox2_Click()

  if CheckBox2.Value Then
     --- Code
  end if
End Sub

Sub RadioButton1_Click()

  if RadioButton1.Value Then
     --- Code
  End If
End Sub


Sub UserForm_Init()
 CheckBox1_Click()
 CheckBox2_Click()
 RadioButton1_Click()
End Sub

注意：如果您的自定义函数 UserForm_Init 不在表单的代码模块中，您需要限定过程名称，例如：

Sub UserForm_Init()
 UserForm1.CheckBox1_Click()
 UserForm1.CheckBox2_Click()
 UserForm1.RadioButton1_Click()
End Sub

根据您的实施可能会产生额外的复杂性，但我希望这可以帮助您入门。

Answer 2

您的示例中缺少部分代码；如果没有清晰的画面，很难确定您要做什么。可以从另一个调用事件过程，出于多种原因，这是一个坏主意。

而不是像您尝试的那样调用私有过程，有点像这样：

Private Sub myEvent()
    'event code here
End Sub

Sub mySub()
    myEvent()
End Sub

...您最好将需要共享的代码移至共享模块，如下所示：

Public Sub mySubInSharedModule()
    'event code here
End Sub

Private Sub myEvent()
    Call mySubInSharedModule()
End Sub

Public Sub mySub()
    Call mySubInSharedModule()
End Sub

在本网站和其他网站上有大量文章进一步解释了这一点。要帮助您入门，请参阅 this search 和 this Stack Overflow question。