excel暗淡的单元格文本值作为控件

我有我的macros的麻烦。 我有一个button和一个窗体上的几个checkbox，我试图写一个代码，当我点击button，它将检查范围（“A1”）。文本后，采取的文本（在这种情况下是“ checkbox1“），我想说这样的事情：

questionnaire = Range("A1").Text questionnaire.Value = Range("A2").Value 

因为我有前面提到的许多checkbox，我希望当我在“A1”中编写某个控件名称时，当我单击该button时，该控件将采用“A2”中的值。 问题是我不知道我应该如何调查DIM。 请帮忙

谢谢

Answer 1

尝试这个

 Private Sub CommandButton1_Click() CB = Sheets(3).Range("A1").Value CBVal = Sheets(3).Range("A2").Value For Each contr In UserForm1.Controls If TypeName(contr) = "CheckBox" And contr.Name = CB Then contr.Value = CBVal End If Next End Sub 

确保你在A1中input正确的名字 。