Как добавить один и тот же текст в несколько комбо-боксов?

@Blokhin_Timur · Регистрация: 27.04.2014

Студворк — интернет-сервис помощи студентам

Добрый день, имеется несколько комбо-боксов, в которые нужно вставить один и тот же текст, для одного у меня получается, для остальных почему-то нет, как сделать так, чтобы во всех боксах отображалось одно и тоже?

Делаю тест по информатике, вот на этом завис, искал в поиске так и не понял, что к чему.
вложение прилагается.
СкачатьТест VBA.xls

@Denis123456789 · 27.04.2014, 18:13

Visual Basic
1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Òðè ñòàäèè"
ComboBox1.AddItem "×åòûðå ñòàäèè"
ComboBox1.AddItem "Ïÿòü ñòàäèé"
 
                                                         
End Sub

Здесь же только в один combobox строки добавляются?

@Blokhin_Timur · 27.04.2014, 18:26 **[ТС]**

Сообщение от Denis123456789

Здесь же только в один combobox строки добавляются?

Ага, а мне нужно во все, в данном фрейме, а в следующем фрейме тоже самое нужно, только уже текст другой будет.

@Denis123456789 · 27.04.2014, 19:05

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Òðè ñòàäèè"
ComboBox1.AddItem "×åòûðå ñòàäèè"
ComboBox1.AddItem "Ïÿòü ñòàäèé"
ComboBox2.List = ComboBox1.List
ComboBox3.List = ComboBox1.List
ComboBox4.List = ComboBox1.List
ComboBox5.List = ComboBox1.List
                                                         
End Sub

Ну вот так можно

Добавлено через 11 минут
или так
глобально объявляем массив комбобоксов

Visual Basic
1
Dim combo(5) As ComboBox

а дальше так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Set combo(0) = ComboBox1
Set combo(1) = ComboBox2
Set combo(2) = ComboBox3
Set combo(3) = ComboBox4
Set combo(4) = ComboBox5
For i = 0 To 4
combo(i).AddItem "Три стадии"
combo(i).AddItem "Четыре стадии"
combo(i).AddItem "Пять стадий"
 
      Next
End Sub

@Blokhin_Timur · 27.04.2014, 19:21 **[ТС]**

Сообщение от Denis123456789

Код Visual Basic

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Три стадии"
ComboBox1.AddItem "Четыре стадии"
ComboBox1.AddItem "Пять стадий"
ComboBox2.List = ComboBox1.List
ComboBox3.List = ComboBox1.List
ComboBox4.List = ComboBox1.List
ComboBox5.List = ComboBox1.List
End Sub
Ну вот так можно

При таком все хорошо, только вот мне в следующем фрейме тоже нужно ComboBox, но текст уже будет отличаться от этого.
а если писать "UserForm_Initialize" снова, то выдаст ошибку о уже использованном имени.

@Denis123456789 · 27.04.2014, 19:43

Вам нужно создать столько массивов комбобоксов, сколько у Вас фреймов, а заполнять их тут же, в этом же цикле, только имя массива другое и сод. комбобоксов другое

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Set combo(0) = ComboBox1
Set combo(1) = ComboBox2
Set combo(2) = ComboBox3
Set combo(3) = ComboBox4
Set combo(4) = ComboBox5
For i = 0 To 4
combo(i).AddItem "Три стадии"
combo(i).AddItem "Четыре стадии"
combo(i).AddItem "Пять стадий"
 ' combo1(i).AddItem "Три стадии" например так
      Next
End Sub

Добавлено через 2 минуты

Сообщение от Blokhin_Timur

Код Visual Basic
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Три стадии"
ComboBox1.AddItem "Четыре стадии"
ComboBox1.AddItem "Пять стадий"
ComboBox2.List = ComboBox1.List
ComboBox3.List = ComboBox1.List
ComboBox4.List = ComboBox1.List
ComboBox5.List = ComboBox1.List
End Sub
Ну вот так можно
При таком все хорошо, только вот мне в следующем фрейме тоже нужно ComboBox, но текст уже будет отличаться от этого.
а если писать "UserForm_Initialize" снова, то выдаст ошибку о уже использованном имени.

Ну а так вам тоже придется для всех фреймов прописывать

@Blokhin_Timur · 27.04.2014, 20:40 **[ТС]**

Сообщение от Denis123456789

Вам нужно создать столько массивов комбобоксов, сколько у Вас фреймов, а заполнять их тут же, в этом же цикле, только имя массива другое и сод. комбобоксов другое

Не особо понимаю, что необходимо сделать, не могли бы вы на моем примере показать, для 2-х фреймов?

вот что делаю, но пишет ошибку.
СкачатьТест VBA.xls

@Denis123456789 · 27.04.2014, 21:10

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
Dim combo1(5) As ComboBox 'для блока 25 закодируй слова
Dim combo2(4) As ComboBox ' для блока 26 выбери соответствие
Dim combo3(4) As ComboBox ' для блока 27
 
Private Sub CommandButton1_Click()
If OptionButton16.Value = True Then
Cells(9, 2) = "Верно"
Cells(9, 3) = "в 80-е годы"
Cells(9, 4) = "  1  "
 
Else
Cells(9, 2) = "Неверно"
Cells(9, 3) = "в 80-е годы"
Cells(9, 4) = "  0  "
 
End If
 
If OptionButton6.Value = True Then
Cells(10, 2) = "Верно"
Cells(10, 3) = "1 бит"
Cells(10, 4) = "  1  "
 
Else
Cells(10, 2) = "Неверно"
Cells(10, 3) = "1 бит"
Cells(10, 4) = "  0  "
 
End If
 
If OptionButton23.Value = True Then
Cells(11, 2) = "Верно"
Cells(11, 3) = "101"
Cells(11, 4) = "  1  "
 
Else
Cells(11, 2) = "Неверно"
Cells(11, 3) = "101"
Cells(11, 4) = "  0  "
 
End If
 
If OptionButton30.Value = True Then
Cells(12, 2) = "Верно"
Cells(12, 3) = "частоты процессора"
Cells(12, 4) = "  1  "
 
Else
Cells(12, 2) = "Неверно"
Cells(12, 3) = "частоты процессора"
Cells(12, 4) = "  0  "
 
 
End If
 
If OptionButton114.Value = True Then
Cells(13, 2) = "Верно"
Cells(13, 3) = "средством создания web-страниц"
Cells(13, 4) = "  1  "
 
Else
Cells(13, 2) = "Неверно"
Cells(13, 3) = "средством создания web-страниц"
Cells(13, 4) = "  0  "
 
 
End If
 
If OptionButton38.Value = True Then
Cells(14, 2) = "Верно"
Cells(14, 3) = "от экрана назад"
Cells(14, 4) = "  1  "
 
Else
Cells(14, 2) = "Неверно"
Cells(14, 3) = "от экрана назад"
Cells(14, 4) = "  0  "
 
End If
 
If OptionButton54.Value = True Then
Cells(15, 2) = "Верно"
Cells(15, 3) = "инструкция по получению денег в банкомате"
Cells(15, 4) = "  1  "
 
Else
Cells(15, 2) = "Неверно"
Cells(15, 3) = "инструкция по получению денег в банкомате"
Cells(15, 4) = "  0  "
 
End If
 
If OptionButton64.Value = True Then
Cells(16, 2) = "Верно"
Cells(16, 3) = "последовательность символов, слов, абзацев"
Cells(16, 4) = "  1  "
 
Else
Cells(16, 2) = "Неверно"
Cells(16, 3) = "последовательность символов, слов, абзацев"
Cells(16, 4) = "  0  "                                                  ' 1-2 блоки описание проги
 
 
End If
 
If CheckBox29.Value = True And CheckBox31.Value = True Then
Cells(17, 2) = "Верно"
Cells(17, 3) = "монитор и модем"
Cells(17, 4) = "  2  "
 
Else
Cells(17, 2) = "Неверно"
Cells(17, 3) = "монитор и модем"
Cells(17, 4) = "  0  "
 
End If
 
If CheckBox17.Value = True And CheckBox18.Value = True And CheckBox19.Value = True Then
Cells(18, 2) = "Верно"
Cells(18, 3) = "Принтер, плотер, монитор"
Cells(18, 4) = "  2  "
 
Else
Cells(18, 2) = "Неверно"
Cells(18, 3) = "Принтер, плотер, монитор"
Cells(18, 4) = "  0  "
 
End If
 
 
If CheckBox49.Value = True Then
Cells(19, 2) = "Верно"
Cells(19, 3) = "Сканер"
Cells(19, 4) = "  2  "
 
Else
Cells(19, 2) = "Неверно"
Cells(19, 3) = "Сканер"
Cells(19, 4) = "  0  "
 
End If
 
If CheckBox25.Value = True And CheckBox27.Value = True Then
Cells(20, 2) = "Верно"
Cells(20, 3) = "Флеш-карта и жесткий диск"
Cells(20, 4) = "  2  "
 
Else
Cells(20, 2) = "Неверно"
Cells(20, 3) = "Флеш-карта и жесткий диск"
Cells(20, 4) = "  0 "
 
End If
 
If CheckBox45.Value = True And CheckBox46.Value = True Then
Cells(21, 2) = "Верно"
Cells(21, 3) = "ОЗУ и ПЗУ"
Cells(21, 4) = "  2  "
 
Else
Cells(21, 2) = "Неверно"
Cells(21, 3) = "ОЗУ и ПЗУ"
Cells(21, 4) = "  0 "
 
End If
 
If CheckBox34.Value = True And CheckBox35.Value = True Then
Cells(22, 2) = "Верно"
Cells(22, 3) = "Real и Integer"
Cells(22, 4) = "  2  "
 
Else
Cells(22, 2) = "Неверно"
Cells(22, 3) = "Real и Integer"
Cells(22, 4) = "  0 "
 
End If
 
If CheckBox37.Value = True And CheckBox38.Value = True And CheckBox40.Value = True Then
Cells(23, 2) = "Верно"
Cells(23, 3) = "МИН, МАКС, СУММ"
Cells(23, 4) = "  2  "
 
Else
Cells(23, 2) = "Неверно"
Cells(23, 3) = "МИН, МАКС, СУММ"
Cells(23, 4) = "  0  "
 
End If
 
If CheckBox42.Value = True And CheckBox43.Value = True Then
Cells(24, 2) = "Верно"
Cells(24, 3) = "СРЗНАЧ и ЕСЛИ"
Cells(24, 4) = "  2  "
 
Else
Cells(25, 2) = "Неверно"
Cells(25, 3) = "СРЗНАЧ и ЕСЛИ"
Cells(25, 4) = "  0 "
 
End If                                                                        'блоки 3-4
 
If TextBox3.Value = 12 Then
Cells(26, 2) = "Верно"
Cells(26, 3) = "12"
Cells(26, 4) = "  4  "
 
Else
Cells(26, 2) = "Неверно"
Cells(26, 3) = "12"
Cells(26, 4) = "  0 "
 
End If
 
If TextBox5.Value = 88 Then
Cells(27, 2) = "Верно"
Cells(27, 3) = "88"
Cells(27, 4) = "  4  "
 
Else
Cells(27, 2) = "Неверно"
Cells(27, 3) = "88"
Cells(27, 4) = "  0 "
 
End If
 
If TextBox7.Value = 5120 Then
Cells(28, 2) = "Верно"
Cells(28, 3) = "5120"
Cells(28, 4) = "  4  "
 
Else
Cells(28, 2) = "Неверно"
Cells(28, 3) = "5120"
Cells(28, 4) = "  0 "
 
End If
 
If TextBox9.Value = 105 Then
Cells(29, 2) = "Верно"
Cells(29, 3) = "105"
Cells(29, 4) = "  4  "
 
Else
Cells(29, 2) = "Неверно"
Cells(29, 3) = "105"
Cells(29, 4) = "  0 "
 
End If
 
If TextBox18.Value = TextBox11.Value Then
Cells(30, 2) = "Верно"
Cells(30, 3) = "«НЕТ»"
Cells(30, 4) = "  6  "
 
Else
Cells(30, 2) = "Неверно"
Cells(30, 3) = "НЕТ"
Cells(30, 4) = "  0 "
End If
 
 
If TextBox19.Value = TextBox13.Value Then
Cells(31, 2) = "Верно"
Cells(31, 3) = "«ДА»"
Cells(31, 4) = "  6  "
 
Else
Cells(31, 2) = "Неверно"
Cells(31, 3) = "ДА"
Cells(31, 4) = "  0 "
End If
 
If TextBox20.Value = TextBox15.Value Then
Cells(32, 2) = "Верно"
Cells(32, 3) = "«1985»"
Cells(32, 4) = "  6  "
 
Else
Cells(32, 2) = "Неверно"
Cells(32, 3) = "1985"
Cells(32, 4) = "  0 "
End If
 
 
If TextBox21.Value = TextBox17.Value Then
Cells(33, 2) = "Верно"
Cells(33, 3) = "«Процессор»"
Cells(33, 4) = "  6  "
 
Else
Cells(33, 2) = "Неверно"
Cells(33, 3) = "Процессор"
Cells(33, 4) = "  0 "
End If
                                              'блоки 5-6
                                                                  
If TextBox16.Value = TextBox17.Value Then
Cells(33, 2) = "Верно"
Cells(33, 3) = "«Достоверной»"
Cells(33, 4) = "  6  "
 
Else
Cells(33, 2) = "Неверно"
Cells(33, 3) = "Достоверной"
Cells(33, 4) = "  0 "
End If
 
End Sub
 
Private Sub Frame57_Click()
 
End Sub
 
Private Sub Frame73_Click()
 
End Sub
 
Private Sub MultiPage1_Change()
 
End Sub
 
Private Sub UserForm_Initialize()
Set combo1(0) = ComboBox1
Set combo1(1) = ComboBox2
Set combo1(2) = ComboBox3
Set combo1(3) = ComboBox4
Set combo1(4) = ComboBox5
Set combo2(0) = ComboBox6
Set combo2(1) = ComboBox7
Set combo2(2) = ComboBox8
Set combo2(3) = ComboBox9
Set combo3(0) = ComboBox38
Set combo3(1) = ComboBox39
Set combo3(2) = ComboBox40
Set combo3(3) = ComboBox41
For i = 0 To 4
combo1(i).AddItem "Text1"
combo1(i).AddItem "Text2"
combo1(i).AddItem "Text3"
Next
For i = 0 To 3
combo2(i).AddItem "Text1"
combo2(i).AddItem "Text2"
combo2(i).AddItem "Text3"
Next
For i = 0 To 3
combo3(i).AddItem "Text1"
combo3(i).AddItem "Text2"
combo3(i).AddItem "Text3"
Next
' ну вы вместо text свое вставите
End Sub

Ну как то так

@Blokhin_Timur · 27.04.2014, 21:46 **[ТС]**

Спасибо огромное, разобрался!

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Blokhin_Timur 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 15

	Как добавить один и тот же текст в несколько комбо-боксов? 27.04.2014, 17:51. Показов 1847. Ответов 8 Метки нет (Все метки) Добрый день, имеется несколько комбо-боксов, в которые нужно вставить один и тот же текст, для одного у меня получается, для остальных почему-то нет, как сделать так, чтобы во всех боксах отображалось одно и тоже? Делаю тест по информатике, вот на этом завис, искал в поиске так и не понял, что к чему. вложение прилагается. СкачатьТест VBA.xls 0

@Blokhin_Timur 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 15
	27.04.2014, 21:46 [ТС]
	Спасибо огромное, разобрался! 0

Как добавить один и тот же текст в несколько комбо-боксов?

Решение