excel - 如何在每个 ActiveX 复选框中使用相同的代码？

Question

我想要 ActiveX 复选框来填充工作表的行和列。
我为第一个复选框创建了一个宏。
我想用处理与第一个代码相同的代码的复选框填充工作表的其余部分。

下面是我的例子。

在单元格中工作的 ActiveX 复选框的工作代码B2

Private Sub CheckBox1_Click()    
    If CheckBox1.Value = True Then    
        Shell "cmd.exe /c E:" & "gam update group " & (Cells(1, ActiveCell.Column)) & " add member " & Range("A" & (ActiveCell.Row))    
    ElseIf CheckBox1.Value = False Then    
        Shell "cmd.exe /c E:" & "gam update group " & (Cells(1, ActiveCell.Column)) & " delete user " & Range("A" & (ActiveCell.Row))
    End If    
End Sub

所有其他复选框如何运行相同的代码而无需将其复制/粘贴到每个复选框中？

请记住，我将在这张表上放置数百个复选框来做同样的事情。

标签： excelvba

Answer 1

您可以为每个复选框尝试工作表更改事件和循环...