ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ComboBox
14 сообщений из 14, страница 1 из 1
ComboBox
    #36798078
Supper6
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Supper6
Гость
Есть ComboBox.
Данные в него берутся с диапозона ячеек:

Код: plaintext
1.
2.
Private Sub UserForm_Initialize()
CompanyListBox.List = ThisWorkbook.Worksheets("Work").Range("Companytest").Value
End Sub
Данные могут поменяться, как и их количество. В связи с этим я увеличил диапазон на запас. Но и получил трудности в связи с этим, пустые ячейки так же отображаются в списке, как этого можно избежать?
...
Рейтинг: 0 / 0
18.08.2010, 15:36
| Ответить | Цитировать | Написать  
ComboBox
    #36798106
Supper6
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Supper6
Гость
Появилась идея с использованием массива Do While, сейчас попробую реализовать.
...
Рейтинг: 0 / 0
18.08.2010, 15:42
| Ответить | Цитировать | Написать  
ComboBox
    #36798499
Supper6
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Supper6
Гость
идея ниже, но не работает :(
Код: plaintext
1.
2.
3.
4.
5.
Do While f <> ""
r = r +  1 
ThisWorkbook.Worksheets("Work").Range("Companytest").Offset(r,  1 ).Value = f

f = CompanyListBox.List
Loop
...
Рейтинг: 0 / 0
18.08.2010, 17:43
| Ответить | Цитировать | Написать  
ComboBox
    #36798504
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Supper6идея ниже, но не работает
Идея непонятна
Сначала словами опишите, что хотите, а потом будете на ВБА переводить
...
Рейтинг: 0 / 0
18.08.2010, 17:46
| Ответить | Цитировать | Написать  
ComboBox
    #36798545
Supper6
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Supper6
Гость
Shocker.Pro,
Смотрите вложение, так думаю будет понятнее.
при открытии формы выскакивает список, как с этого списка убрать пустые поля?
...
Рейтинг: 0 / 0
18.08.2010, 17:59
| Ответить | Цитировать | Написать  
ComboBox
    #36798648
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Supper6Shocker.Pro,
Смотрите вложение, так думаю будет понятнее.
при открытии формы выскакивает список, как с этого списка убрать пустые поля?

у меня нет 2007-го офиса.
Я думаю, что надо просто заполнить комбобокс в цикле по одному элементу.
...
Рейтинг: 0 / 0
18.08.2010, 18:30
| Ответить | Цитировать | Написать  
ComboBox
    #36799109
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
UsedRange?
...
Рейтинг: 0 / 0
19.08.2010, 04:21
| Ответить | Цитировать | Написать  
ComboBox
    #36799668
Supper6
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Supper6
Гость
Всем спасибо, вопрос решил сам.
Не в ту сторону шагал))))

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Auto_start()

Dim Directory As String, r As String, f As String
    
Directory = "E:\Test\"

f = Dir(Directory, vbDirectory)
Do While f <> ""

If f <> "." Then
    If f <> ".." Then Form.CompanyListBox.AddItem f
End If
f = Dir
Loop

Form.Show

End Sub
...
Рейтинг: 0 / 0
19.08.2010, 11:38
| Ответить | Цитировать | Написать  
ComboBox
    #36799743
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
1.
2.
If f <> "." Then
    If f <> ".." Then Form.CompanyListBox.AddItem f
End If

заменяется на

Код: plaintext
If f <> "." And f <> ".." Then Form.CompanyListBox.AddItem f

или на

Код: plaintext
1.
If Left$(f,  1 ) <> "." Then Form.CompanyListBox.AddItem f 'в виндах не может файл начинаться с точки
...
Рейтинг: 0 / 0
19.08.2010, 12:02
| Ответить | Цитировать | Написать  
ComboBox
    #36799751
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
и вообще с FSO всё проще было бы
...
Рейтинг: 0 / 0
19.08.2010, 12:04
| Ответить | Цитировать | Написать  
ComboBox
    #36800682
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Shocker.Proв виндах не может файл начинаться с точки
Может
...
Рейтинг: 0 / 0
19.08.2010, 15:57
| Ответить | Цитировать | Написать  
ComboBox
    #36801005
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VSVLADShocker.Proв виндах не может файл начинаться с точки
Может
ну значит мой последний вариант неверен
...
Рейтинг: 0 / 0
19.08.2010, 17:39
| Ответить | Цитировать | Написать  
ComboBox
    #36801216
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
проверять на пустую строку не требуется. Гораздо красивее использовать SpecialCells и XlCellType. ( xlCellTypeBlanks . Empty cells и так далее)
...
Рейтинг: 0 / 0
19.08.2010, 19:05
| Ответить | Цитировать | Написать  
ComboBox
    #36801761
Шуримар
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шуримар
Гость
Код: plaintext
1.
2.
3.
4.
Private Sub UserForm_Activate()
    For i =  10  To Sheets("Main").Cells(Rows.Count,  3 ).End(xlUp).Row
    If Not IsEmpty(Sheets("Main").Cells(i,  3 )) Then ComboBox1.AddItem Sheets("Main").Cells(i,  3 )
    Next i
End Sub
Формирует список с листа "Main" в третьем столбце начиная с 10 строки.
...
Рейтинг: 0 / 0
20.08.2010, 08:27
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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