Question

我在用户窗体中有很多按钮。我不想为每个按钮函数“ afterUpdate”编写代码，因为每个函数都相似。是一种比编写单个按钮的单个功能更简单的方法吗？

Sub button1_afterUpdate()

End sub


Sub button2_afterUpdate()    
    '............

    'The same code as button1 function

    '...........
End sub

Answer 1

一种简单的方法是为每个按钮的接缝所在的实际代码创建一个子代码：

Sub RunThisForEveryButton_afterUpdate()

    'This is the same code that should run in every button

End Sub

然后在每个事件中调用此子对象……

Sub button1_afterUpdate()
    RunThisForEveryButton_afterUpdate
End sub

Sub button2_afterUpdate()    
    RunThisForEveryButton_afterUpdate
End sub

另一种方法是使用WithEvents为所有按钮创建一个事件。因此，请在这里VBA: Using WithEvents on UserForms中查看。

userForm-所有按钮都具有一个afterChange函数

1 个答案: