ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ListBox
9 сообщений из 9, страница 1 из 1
ListBox
    #34226230
t@liban
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
t@liban
Участник
Есть книга, в ней много листов. На каждом листе в столбце А список значений. Есть также форма. На форме есть ComboBox, в который добавляется список листов этой книги (это я уже умею :)). Есть также ListBox. Так вот: как сделать чтобы при выборе листа в КомбоБоксе он активировался, а значения столбца А добавлялись в ЛистБокс. На каждом листе может быт разное количество значений, от 200 до 400. Заранее спасибо.
...
Рейтинг: 0 / 0
26.12.2006, 20:13:43
| Ответить | Цитировать | Написать  
ListBox
    #34226243
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub ComboBox1_Change()
Dim Sh As Worksheet

    Set Sh = Worksheets(Me.ComboBox1.Value)
    Me.ListBox1.RowSource = Sh.Name & "!" & "A1:A" & Sh.Cells.SpecialCells(xlCellTypeLastCell).Row
    Set Sh = Nothing

End Sub
...
Рейтинг: 0 / 0
26.12.2006, 20:23:47
| Ответить | Цитировать | Написать  
ListBox
    #34226245
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
да, ну и добавить Sh.Activate:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub ComboBox1_Change()
Dim Sh As Worksheet

    Set Sh = Worksheets(Me.ComboBox1.Value)
    
    Me.ListBox1.RowSource = Sh.Name & "!" & "A1:A" & Sh.Cells.SpecialCells(xlCellTypeLastCell).Row
    
    Sh.Activate
    
    Set Sh = Nothing
End Sub
...
Рейтинг: 0 / 0
26.12.2006, 20:25:34
| Ответить | Цитировать | Написать  
ListBox
    #34226313
t@liban
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
t@liban
Участник
Ух ты!!!! Заработало. Большое спасибо.
...
Рейтинг: 0 / 0
26.12.2006, 21:01:42
| Ответить | Цитировать | Написать  
ListBox
    #34226347
t@liban
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
t@liban
Участник
Ух ты!!!! Заработало. Большое спасибо.
...
Рейтинг: 0 / 0
26.12.2006, 21:21:25
| Ответить | Цитировать | Написать  
ListBox
    #34226402
t@liban
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
t@liban
Участник
А как мне получить количество загруженых строк в ЛистБоксе? И ещё, как скопировать выделеную строку на другой лист?
...
Рейтинг: 0 / 0
26.12.2006, 22:10:32
| Ответить | Цитировать | Написать  
ListBox
    #34226429
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
ListBox.ListCount - это количество строк

ListBox.ListIndex - текущая строчка в ListIndex, начиная с 0

ListBox.List(ListBox.ListIndex,{номер колонки, у тебя=0}) - текст в выделенной строке

по моему, в твоем случае лучше использовать: ListBox.ListIndex+1+{номер первого ряда данных на листе, который использован в RowSource}= номер ряда который нужно будет копировать. А копирование запиши макрорекордером.
...
Рейтинг: 0 / 0
26.12.2006, 22:37:48
| Ответить | Цитировать | Написать  
ListBox
    #34226463
t@liban
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
t@liban
Участник
Я пишу так:
Private Sub cmbStore_Change()
Form.txtStore.Text = "Внимание! Выбран склад " + cmbStore.Value + " !!!"

Dim Sh As Worksheet

Set Sh = Worksheets(Form.cmbStore.Value)
Form.lbxGoods.RowSource = Sh.Name & "!" & "A2:A" & Sh.Cells.SpecialCells(xlCellTypeLastCell).Row
Form.txtCount.Text = "Итого, на складе " + cmbStore.Value + " находится " + Form.lbxGoods.ListCount + " единиц."
Sh.Activate
Set Sh = Nothing
End Sub

Выдаёт ошибку!
...
Рейтинг: 0 / 0
26.12.2006, 23:12:59
| Ответить | Цитировать | Написать  
ListBox
    #34226801
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
t@libanЯ пишу так:
Private Sub cmbStore_Change()
Form.txtStore.Text = "Внимание! Выбран склад " + cmbStore.Value + " !!!"

Dim Sh As Worksheet

Set Sh = Worksheets(Form.cmbStore.Value)
Form.lbxGoods.RowSource = Sh.Name & "!" & "A2:A" & Sh.Cells.SpecialCells(xlCellTypeLastCell).Row
Form.txtCount.Text = "Итого, на складе " + cmbStore.Value + " находится " + Form.lbxGoods.ListCount + " единиц."
Sh.Activate
Set Sh = Nothing
End Sub

Выдаёт ошибку!

вместо + нужно &
...
Рейтинг: 0 / 0
27.12.2006, 09:26:48
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ListBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34226313&tid=2183709]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 33ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 233ms
total:  340ms
созд. / загр.: 340ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]