• На форуме с 17 июня 2005г.
  • Сообщений: 67
  • Спасибо: 0

Тема: Как в несколько ComboBox добавить одни и те же значения?

1)
Есть несколько (много) ComboBox'ов
как в них добавить одни и те же значения???
а то придется каждому:
ComboBox1.AddItem "Left Top"        'ListIndex = 0
ComboBox1.AddItem "Left Center"     'ListIndex = 1
ComboBox1.AddItem "Left Bottom"     'ListIndex = 2
ComboBox1.AddItem "Right Top"       'ListIndex = 3
ComboBox1.AddItem "Right Center"    'ListIndex = 4
ComboBox1.AddItem "Right Bottom"    'ListIndex = 5
ComboBox1.AddItem "Above Left"      'ListIndex = 6
ComboBox1.AddItem "Above Center"    'ListIndex = 7
ComboBox1.AddItem "Above Right"    'ListIndex = 8
ComboBox1.AddItem "Below Left"      'ListIndex = 9
ComboBox1.AddItem "Below Center"    'ListIndex = 10
ComboBox1.AddItem "Below Right"    'ListIndex = 11
ComboBox1.AddItem "Centered"        'ListIndex = 12
Это вообще реально?
2) Новый вопрос -- новая тема: Есть ли в VBA возможность работать со строками?.
/Администратор./

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как в несколько ComboBox добавить одни и те же значения?

1)ZapCombo заполнит любой ComboBox

Sub ZapCombo(contr As ComboBox)
With contr
  .Clear
  .AddItem "Left Top" 'ListIndex = 0
  .AddItem "Left Center" 'ListIndex = 1
  .AddItem "Left Bottom" 'ListIndex = 2
  .AddItem "Right Top" 'ListIndex = 3
  .AddItem "Right Center" 'ListIndex = 4
  .AddItem "Right Bottom" 'ListIndex = 5
  .AddItem "Above Left" 'ListIndex = 6
  .AddItem "Above Center" 'ListIndex = 7
  .AddItem "Above Right" 'ListIndex = 8
  .AddItem "Below Left" 'ListIndex = 9
  .AddItem "Below Center" 'ListIndex = 10
  .AddItem "Below Right" 'ListIndex = 11
  .AddItem "Centered" 'ListIndex = 12
  .ListIndex = 0
End With
End Sub

заполняем ComboBox

  ZapCombo Combo1
  ZapCombo Combo2

Если нужно заполнять все ComboBox, то воспользуйтесь For Each

  • На форуме с 17 июня 2005г.
  • Сообщений: 67
  • Спасибо: 0

Re: Как в несколько ComboBox добавить одни и те же значения?

Большое спасибо :)