如何在工作表中获取复选框值？

Question

我在一个名为“图像”的工作表中有多个名为 cBox1、cBox2 等的复选框。

我有三张表：数据表、图像、数据（分别）。 Images 包含两个带有各种复选框的图像、一个文本框和一个按钮。当我单击按钮时，代码会从文本框和复选框中获取值，并将值插入到 Data 工作表中的表格中。

我正在尝试使用以下代码获取复选框是否被选中：

If ThisWorkbook.Worksheets(2).Shapes("cBox1").OLEFormat.Object.Value = 0 Then
    totalOfWeldsInOrder = totalOfWeldsInOrder + 1
    s1 = 0
    notInOrder = True
End If

但是，值永远不会改变。

如何获取复选框的选中值？

我也尝试了以下方法，但没有成功：

If ThisWorkbook.Worksheets(2).Shapes("cBox1").OLEFormat.Object.Value = -4146 Then
    totalOfWeldsInOrder = totalOfWeldsInOrder + 1
    s1 = 0
    notInOrder = True
End If

还有

If Sheet2.Shapes("cBox1").ControlFormat.Value = xlOff Then
   ......
End If

编辑：

If ThisWorkbook.Worksheets(2).cBox1.Value = 0 Then
    totalOfWeldsInOrder = totalOfWeldsInOrder + 1
    s1 = 0
    notInOrder = True
End If

返回：

Answer 1

您的问题有一个简单的解决方案：

使用 Active-X 复选框。在菜单栏中的 Developmenttools 选项卡下有：“Insert”它允许您插入两种复选框，每种控制结构的两种。一个是更新的 active-x 组件，另一个只是出于向后兼容性的原因。所以永远不要使用 Active-X 组件以外的任何东西。那么代码可以如下使用：

If ThisWorkbook.Worksheets(2).Checkbox1.Value = False Then
    totalOfWeldsInOrder = totalOfWeldsInOrder + 1
    s1 = 0
    notInOrder = True
End If

复选框名称“CheckBox1”可以通过显示和编辑它的属性来更改，因此它也可能被称为“okbox”，此名称将在您的代码中替换 CheckBox1。