Присвоить значение флажкам

Привет, я новичок в 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. Как связать галочки с коллекцией серий в activechart? Например, если флажок возвращает значение false, коллекция серий будет удалена/скрыта (возможно?). И когда он вернет значение true, коллекция серий тех же данных будет добавлена ​​​​обратно на диаграмму. Я хотел бы сделать график интерактивным.

Если есть какая-либо ссылка, которую я могу просмотреть, сообщите мне.

Заранее спасибо.

С Уважением.


excel vba
person Nur Adhariah    schedule 29.10.2014    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Хорошо, исходя из того, что вы дали, я думаю, проблема в том, что интерпретатор не знает, что i является целым числом. Чтобы исправить это, мы можем реализовать что-то вроде Dim i As Integer, чтобы реализовать i как целое число.

Мы могли бы попробовать это:

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

person KOTwarrior    schedule 29.10.2014
comment
ооо, извините, я забыл сказать, что я уже объявил i, как и вы .. но все еще не могу, ошибка .. - person Nur Adhariah; 29.10.2014