2014-10-29 112 views
0

Hye在那裏,我在這裏新增了vba。將值賦給複選框

我想使用複選框來鏈接圖表的系列集合。我把複選框放在一張包含圖表的表格中。我有很多複選框在這裏被分配到「真」值。

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時,相同數據的系列集合將被添加回圖表中。我想讓圖表互動。

如果有任何我可以審查的參考,請告訴我。

在此先感謝。

問候。

回答

0

好了,從你給什麼,所以假設,我認爲這個問題是解釋不知道整數。 爲了解決這個問題,我們可以沿着Dim i As Integer這一行實現一些東西來實現i作爲一個整數。


我們可以試試這個:

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

+0

喔對不起,我忘了告訴我已經宣佈我喜歡你做..但還是不行,錯誤.. – 2014-10-29 06:18:39