如何在Excel VBA 2010中的IF-THEN语句中使用checkbox？
我需要使用IF-THEN语句的checkbox的值。 基于用户检查什么，我必须计算事物的变化。 但是，我不知道如何使用checkbox的值，或如何检测它们。 这是我到目前为止的代码：
Private Sub Workbook_Open() Range("E1:F7,A1:A4,B1:B4,C1:C3").Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With Range("A1").Select Range("A1") = "Time" Range("B1") = "Specimen Shape" Range("C1") = "Data Type" Range("A1:C1").Font.Bold = True Range("E1") = "Owner" Range("E2") = "Experiment Date" Range("E3") = "Specimen ID" Range("E4") = "Contaminant" Range("E5") = "Leachant" Range("E6") = "Temperature" Range("E7") = "Regression Title" Range("E1:E7").Font.Bold = True Columns("A:E").EntireColumn.EntireColumn.Autofit 'Formatting Column A Columns("A").EntireColumn.ColumnWidth = 9.71 ActiveSheet.CheckBoxes.Add(4, 14.5, 72, 17.25).Select Selection.Characters.Text = "Days" Range("A6").Select ActiveSheet.CheckBoxes.Add(4, 30.5, 73.5, 17.25).Select Selection.Characters.Text = "Hours" ActiveSheet.CheckBoxes.Add(4, 45.75, 52.5, 17.25).Select Selection.Characters.Text = "Minutes" 'Formatting Column B ActiveSheet.CheckBoxes.Add(58, 14.5, 72, 17.25).Select Selection.Characters.Text = "Cylinder" ActiveSheet.CheckBoxes.Add(58, 30.5, 73.5, 17.25).Select Selection.Characters.Text = "Wafer" ActiveSheet.CheckBoxes.Add(58, 45.75, 52.5, 17.25).Select Selection.Characters.Text = "Irregular" 'Formatting Column C Columns("C").EntireColumn.ColumnWidth = 12.71 ActiveSheet.CheckBoxes.Add(140.5, 14.5, 72, 17.25).Select Selection.Characters.Text = "Incremental" ActiveSheet.CheckBoxes.Add(140.5, 30.5, 72, 17.25).Select Selection.Characters.Text = "Cumulative" Columns("F").EntireColumn.ColumnWidth = 60 Range("A1:C1").HorizontalAlignment = xlCenter Range("F1").Select Dim btn As Button Dim rng As Range With Worksheets("Sheet1") Set rng = .Range("A9:C9") Set btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height) With btn .Caption = "After making your selections above, click this button to continue." .AutoSize = True .OnAction = "DataInput" End With End With End Sub 我想做它，就像一个testing，是如果选中“时间”checkbox，然后按下button继续，我希望它说一些像“YAY”，使用IF-THEN语句。 如果“时间”checkbox没有被选中，你按下继续，我想它说“AWW …”。
这是我试图做到这一点，这是行不通的。
Sub DataInput() If ActiveSheet.Shapes.Range(Array("Check Box 1")).Value = True Then MsgBox ("Yay") Else: MsgBox ("Aww") End If End Sub
我究竟做错了什么？
If Sheets("Sheet1").OLEObjects("CheckBox1").Object.Value = True Then
我相信Tim是对的。 你有一个表单控件。 为此，你必须使用这个
If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = 1 Then
你可以尝试这样的事情….
Dim cbTime Set cbTime = ActiveSheet.CheckBoxes.Add(100, 100, 50, 15) With cbTime .Name = "cbTime" .Characters.Text = "Time" End With If ActiveSheet.CheckBoxes("cbTime").Value = 1 Then 'or just cbTime.Value 'checked Else 'unchecked End If
checkbox有一个链接单元格，其中包含表示checkbox状态的True / False。 引用此单元格的值比作为checkbox的embedded对象的值要容易得多。
手动：右键单击checkbox，select格式，单击链接单元格框，然后select包含checkbox值的单元格。
在代码中：
Set cbTime = ActiveSheet.CheckBoxes.Add(100, 100, 50, 15) With cbTime .Value = xlOff ' = unchecked xlOn = checked .LinkedCell = "$A$1" End With
Sub Datainput() 'Checkbox values are 0 (false), 1 (true), 2 (changed or grey) If activesheet.CheckBoxes("Check Box 1").value = 1 then Msgbox ("Yay") Else: Msgbox("Aww") End if End Sub