简单的VB调用问题。

Question

现在想在excel中实现复选框，复选框名字“同意/不同意”，点击选中该复选框则显示“某局长”，取消选中则恢复名字“同意/不同意”
在excel2003中:如下步骤：视图-工具栏-控件工具箱-设计模式
checkbox1等都可以通过工作薄名称sheet38.checkbox1调用。
sheet38是不是父类？能否在父类中设计一个方法或另写一个过程，使得每次新增复选框，click事件继承父类的或在父类中调用某个过程，使得复选框可以无限制增加，并且每次点击都会完成同样的处理过程。
本人略懂编程，望高手帮忙，谢了！
Private Sub CheckBox1_Click()
Caption = "同意\不同意"
If CheckBox1.Value = True Then
CheckBox1.Caption = "某局长"
End If
End SubPrivate Sub CheckBox2_Click()
CheckBox2.Caption = "同意\不同意"
If CheckBox2.Value = True Then
CheckBox2.Caption = "某局长"
End If
End Sub

Answer 1

按要求创建一个Excel文件，录制宏即可

Answer 2

是控件数组,你先建一个checkbox1数组，增加的控件归为这个控件组就行Private Sub CheckBox1_Click(index as integer)
CheckBox2.Caption = "同意\不同意"
If CheckBox2.Value = True Then
CheckBox2.Caption = "某局长"
End If
End Sub