|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.01.2010, 17:29 | #1 |
Регистрация: 29.01.2010
Сообщений: 6
|
Формирование списков в комбобоксах с одного листа.
Помогите пожалуйста. Мне нужно чтобы в комбобоксах одной формы формировались списки с одного рабочего листа (Справочник) с разных столбцов. Прилагаю свой файл. Исправьте пожалуйста.
|
29.01.2010, 22:17 | #2 |
Регистрация: 29.01.2010
Сообщений: 8
|
Не думаю что, эт есть оптимальный код,но предлагаю:
'---------------------------------------------- Private Sub LoadCombo(sColumn As String, objComboBox As Object) Dim i As Integer dim sCellValue as string For i = 1 To Sheets("Справочник").range(sColumn & "1").Columns(sColumn).SpecialCells( 11).Row sCellValue=CStr(Sheets("Справочник" ).range(sColumn & Trim(i)).Value) if trim(sCellValue)<>"" then objComboBox.AddItem sCellValue end if Next i End Sub '------------------------------------ Sub Add() LoadCombo "A", Forma1.ComboBox1 LoadCombo "B", Forma1.ComboBox4 'With Forma1 '.ComboBox1.List = Sheets("Справочник").Range("A1").Cu rrentRegion.Value '.ComboBox4.List = Sheets("Справочник").Range("B1").Cu rrentRegion.Value 'End With Forma1.Show End Sub Последний раз редактировалось Beralus; 29.01.2010 в 22:20. |
30.01.2010, 13:51 | #3 |
Регистрация: 29.01.2010
Сообщений: 6
|
Спасибо большое.Только мне почему то всё равно выдаёт во всех комбобоксах список из первого столбца Справочника. (
|
30.01.2010, 15:23 | #4 |
Регистрация: 29.01.2010
Сообщений: 8
|
|
30.01.2010, 16:05 | #5 |
Регистрация: 29.01.2010
Сообщений: 6
|
Абалдеть!!!! ))))) всё элементарное - просто!!!! спасибо огромное!!!!! )))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Распределить данные из одного листа. | Zhiltsov | Microsoft Office Excel | 16 | 22.04.2018 00:23 |
Перенести данные с одного листа на другой. | albih | Microsoft Office Excel | 2 | 02.05.2009 12:55 |
Формирование списков | BrenD | Microsoft Office Excel | 1 | 06.04.2009 08:28 |
Сложение длинных чисел одного знака при помощи двунаправленных связанных списков | Povar | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 11.12.2008 14:35 |
Формирование листа при множественом выборе файлов | Руслантус | Общие вопросы C/C++ | 2 | 09.08.2008 23:16 |