如何在vba中设置选中的属性（格式或控制工具箱）

我试图根据另一个单元格的值将我的checkbox的值更改为true

if range("A1").value = "green" then Checkbox1.value= true end if 

如何同时将多个checkbox的value属性更改为true

出于某种原因，我试过的代码根本就没有做任何事情。 PS我正在使用格式checkbox

Answer 1

这将改变所有checkbox

 Sub Changeboxes() Dim cb As CheckBox If Sheet1.Range("a1").Value = "green" Then For Each cb In Sheet1.CheckBoxes cb.Value = True Next cb End If End Sub 

如果你需要指定特定的checkbox，那么

 Sub ChangeSomeCbs() If Sheet1.Range("a1").Value = "green" Then Sheet1.CheckBoxes("Check Box 1").Value = True Sheet1.CheckBoxes("Check Box 2").Value = False Sheet1.CheckBoxes("Check Box 3").Value = True End If End Sub 

checkbox和checkbox是隐藏属性。 你不会有智慧感，但他们工作。

Answer 2

这对我来说很好：

 If range("O26").Value = "green" Then CheckBox1.Value = True CheckBox2.Value = True End If 

如果你在devise模式，这将无法正常工作。