excel将单元格文本值调暗为控件

Question

我的宏出现问题。我在表单上有一个按钮和几个复选框，我正在尝试编写一个代码，当我单击按钮时，它将检查范围（“A1”）。文本，在获取该文本后（在这种情况下是“ checkbox1“）我想说这样的话：

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

因为我有很多前面提到的复选框，我希望当我在“A1”中写一个控件名时，当我点击按钮时，该控件将取“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中输入正确的名称。