为复选框指定值

时间:2014-10-29 04:42:21

标签: vba excel-vba excel

Hye那里,我在这里与vba一起新。

我想使用复选框链接图表的系列集合。我把复选框放在一张包含图表的表格中。我在这里有很多复选框,分配给" true"值。

Private Sub Controls_Initialize()

     'Make default for checkboxes
      CheckBox1.Value = True
      CheckBox2.Value = True
      CheckBox3.Value = True
      CheckBox4.Value = True
      CheckBox5.Value = True
      CheckBox6.Value = True
      CheckBox7.Value = True
      CheckBox8.Value = True
      CheckBox9.Value = True
      CheckBox10.Value = True
      CheckBox11.Value = True
      CheckBox12.Value = True
      CheckBox13.Value = True
      CheckBox14.Value = True
      CheckBox15.Value = True
      CheckBox16.Value = True
      CheckBox17.Value = True
      CheckBox18.Value = True
      CheckBox19.Value = True
      CheckBox20.Value = True
      CheckBox21.Value = True
      CheckBox22.Value = True
      CheckBox23.Value = True
      CheckBox24.Value = True
End Sub

我已尝试过此代码,但无法

For i = 1 to 24
     Controls("CheckBox" & i).Value = True
Next i

问题是 1.还有其他代码可以简单吗? 2.如何将复选框与活动图表中的系列集合链接?例如,如果复选框返回值为false,则系列集合将被删除/隐藏(也许?)。当它返回值true时,相同数据的系列集合将添加回图表中。我想让图表互动。

如果有任何我可以复习的参考资料,请告诉我。

提前致谢。

问候。

1 个答案:

答案 0 :(得分:0)

好吧,假设你已经给出了什么,我认为问题在于解释器不知道 i 整数。 要解决此问题,我们可以按照Dim i As Integer的方式实现某些内容,以将 i 实现为整数。


我们可以试试这个:

Dim i As Integer For i = 1 to 24 Controls("CheckBox" & i).Value = True Next i