调用多个userform选项按钮的快捷方式？

Question

我有一个带有25个OptionButton（OptionButton1，OptionButton2等）的用户表单。

实际上，要调用每个选项，我创建了私有子OptionButton1_Click，OptionButton2_Click等。

有没有办法在不创建25个不同的潜艇的情况下访问不同的选项？ （即OptionButton [x] _Click）

Answer 1

我认为简短的回答是否定的，但请查看here进行有趣的解决方法。你本来可以假装一个控制数组。

除了帖子中提到的内容之外，您可能还想考虑在OptionButton.Tag中存储某种Tag，以便在单击时可以（如果您愿意）知道单击了哪个OptionButton。

Answer 2

您可以遍历所有选项按钮。例如：

for i = 1 to 25

    If Controls("OptionButton" & i).Value = True Then

       'perform operation if OptionButton is clicked

     End If

Next i