|
|
|
Заполнение Combobox
|
|||
|---|---|---|---|
|
#18+
Доброго дня всем! Запнулся на простом. На листе есть Combobox1 он должен автоматически заполнятся при открытии файла. Так вот, если делать Private Sub Auto_Open() ComboBox1.AddItem "4" ComboBox1.AddItem "5" End Sub в модуле, то выскакивает ошибка. Как грамотно обраться к ComboBox1, чтобы его заполнить?? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2008, 13:26:23 |
|
||
|
Заполнение Combobox
|
|||
|---|---|---|---|
|
#18+
PavelPM, UserForm.ComboBox1.AddItem "4" UserForm - название формы.. вроде.. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2008, 13:33:35 |
|
||
|
Заполнение Combobox
|
|||
|---|---|---|---|
|
#18+
У меня нет формы. Combobox на листе. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2008, 13:36:15 |
|
||
|
Заполнение Combobox
|
|||
|---|---|---|---|
|
#18+
PavelPM, Worksheets("Имялиста").ComboBox1.AddItem "4" попробуй.. %) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2008, 13:39:37 |
|
||
|
Заполнение Combobox
|
|||
|---|---|---|---|
|
#18+
Спасибо, заработало. А я по всякому крутил не получалось. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2008, 13:52:01 |
|
||
|
Заполнение Combobox
|
|||
|---|---|---|---|
|
#18+
PavelPM, А вот так можо загрузить Комбобокс с диапозона, он автоматически найдет последнюю запись и все загрузит. Sheets("Лист2").Activate Dim Диапазон As String Dim n As Integer n = Application.CountA(Range("A:A")) Диапазон = "A1:A" & CStr(n + 1) UserForm1.ComboBox12.RowSource = Диапазон ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 28.11.2008, 22:30:12 |
|
||
|
|
start [/forum/topic.php?fid=61&gotonew=1&tid=2180069]: |
0ms |
get settings: |
8ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
176ms |
get topic data: |
10ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
42ms |
get tp. blocked users: |
1ms |
| others: | 221ms |
| total: | 489ms |
| 0 / 0 |
