Vba excel выделить строку в listbox - Word и Excel - помощь в работе с программами

Игорь

Гость

08.05.2008 13:57:03

1) Допустим я знаю, что из всего списка, который есть в ListBox надо в данный момент выделить элементы 2-ой, 8-й и 10-й
2) Можно ли это сделать программно (а не мышкой)?
3) Т.е. с помощью каких-то операторов в VBA закрасить в ListBox — эти 2-ой, 8-й и 10-й элементы и они будут как бы выделены и Excel будет знать, что я выбрал эти 2-ой, 8-ой и 10-й элементы в данном ListBox, хотя я мышкой по ним и не щелкал?
Игорь

Источник

ListBox выделение строки

urlchik

Дата: Вторник, 23.01.2018, 18:22 |
Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 68

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Привет всем! Не могу решить вопрос…
Есть форма, на ней ЛистБокс. Этот ЛистБокс отображает диапазон, указанный через свойство RowSourse A2:L500

Как при запуске формы выделить первую или последнюю строку ЛистБокса я нашел, а как выделить последню ЗАПОЛНЕННУЮ (не пустую) строку — не могу решить.

Заранее благодарю!
в VBA я = 0!

Век живи — век учись!

Ответить

krosav4ig

Дата: Вторник, 23.01.2018, 18:52 |
Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2346

Репутация:
989
±

Замечаний:
0% ±

Excel 2007,2010,2013

Зравствуйте

выделить последню ЗАПОЛНЕННУЮ (не пустую) строку

а оно вам надо?
[vba]

Код

Private Sub UserForm_Initialize()
    With ActiveSheet
        Me.ListBox1.RowSource = .Range(.[A2], .Cells(.Rows.Count, «L»).End(xlUp)).Address(0, 0, 1, 1)
    End With
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

urlchik

Дата: Среда, 24.01.2018, 09:38 |
Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 68

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

krosav4ig, Спасибо! Просто есть форма с листбоксом, а в нем огромный список, след.строка заполняется на основе предыдущей через текстбоксы. Оно мне надо чтоб каждый раз не листать до конца списка.

Но у меня чего-то не сработало! А несработало, наверное, это with activSheet — это значит на активном листе, а мне надо выделить строку в листбоксе! Нарыл вот такой метод, но работает через раз — иногда выделяется пустая строка далеко ниже конца списка

[vba]

Код

UserForm.ListBox1.ListIndex = Cells.SpecialCells(xlLastCell).row — 2

[/vba]

Офис 2010

Век живи — век учись!

Сообщение отредактировал urlchik — Среда, 24.01.2018, 11:02

Ответить

RAN

Дата: Среда, 24.01.2018, 13:44 |
Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

но работает через раз — иногда

Иногда погода в Африке совпадает с нужной вам.
Исключительно решение озвученного вопроса (к тому, что нужно, и как нужно, отношения не имеет)
[vba]

Код

Private Sub CommandButton1_Click()
    With Me.ListBox1
        For i = .ListCount — 1 To 0 Step -1
            For j = .ColumnCount — 1 To 0 Step -1
                If Len(.List(i, j)) Then MsgBox «Row » & i: Exit Sub
            Next
        Next
    End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Источник

выделение в listbox

Сообщений: 6
• Страница 1 из 1

Rom

Начинающий

Сообщения: 22

Зарегистрирован: 30.09.2004 (Чт) 18:50

выделение в listbox

Rom » 14.11.2004 (Вс) 16:34

Подскажите, пожалуйста, как можно в listbox программно выделить n-ую строчку :?:

alibek
: Большой Человек
: Сообщения: 14205; Зарегистрирован: 19.04.2002 (Пт) 11:40; Откуда: Russia

alibek » 15.11.2004 (Пн) 10:46

ListBox1.Selected(n-1) = True

Lasciate ogni speranza, voi ch’entrate.

Rom

Начинающий

Сообщения: 22

Зарегистрирован: 30.09.2004 (Чт) 18:50

Rom » 16.11.2004 (Вт) 0:08

Спасибо

Calvin

Постоялец

Сообщения: 409

Зарегистрирован: 21.01.2003 (Вт) 12:13

Откуда: Sebastopol

Calvin » 20.04.2005 (Ср) 12:18

Что-то совсем голова не варит……….а как выделить строку в листбоксе по нужному значению….допустим, если в текстбоксе меняется значение и в результате этого выбирается соответствующее в листбоксе……..

1 класс 2-я четверть, а вот торможу, блин :evil:

-Whose the motocycle, is this? -It`s a chopper, baby! -Whose chopper is this? -Zed`s! -Who is Zed? -Zed`s dead, baby, Zed`s dead! :-D

Сообщений: 6
• Страница 1 из 1

Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Источник

Элемент управления пользовательской формы ListBox для выбора и ввода информации в VBA Excel. Свойства списка, его заполнение, извлечение данных, примеры кода.

UserForm.ListBox – это элемент управления пользовательской формы, предназначенный для передачи в код VBA информации, выбранной пользователем из одностолбцового или многостолбцового списка.

Список используется в тех случаях, когда необходимо добавить в форму информацию, которая заранее известна, а ее отдельные позиции можно сгруппировать в список. Элемент управления ListBox оправдывает себя при небольших списках, так как большой список будет занимать много места на форме.

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

Элемент управления ListBox позволяет выбрать несколько позиций из списка, но эта возможность не имеет практического смысла. Ввести информацию в ListBox с помощью клавиатуры или вставить из буфера обмена невозможно.

Свойства списка

Свойство	Описание
ColumnCount	Указывает количество столбцов в списке. Значение по умолчанию = 1.
ColumnHeads	Добавляет строку заголовков в ListBox. True – заголовки столбцов включены, False – заголовки столбцов выключены. Значение по умолчанию = False.
ColumnWidths	Ширина столбцов. Значения для нескольких столбцов указываются в одну строку через точку с запятой (;).
ControlSource	Ссылка на ячейку для ее привязки к элементу управления ListBox.
ControlTipText	Текст всплывающей подсказки при наведении курсора на ListBox.
Enabled	Возможность выбора элементов списка. True – выбор включен, False – выключен*. Значение по умолчанию = True.
Font	Шрифт, начертание и размер текста в списке.
Height	Высота элемента управления ListBox.
Left	Расстояние от левого края внутренней границы пользовательской формы до левого края элемента управления ListBox.
List	Позволяет заполнить список данными из одномерного или двухмерного массива, а также обращаться к отдельным элементам списка по индексам для записи и чтения.
ListIndex	Номер выбранной пользователем строки. Нумерация начинается с нуля. Если ничего не выбрано, ListIndex = -1.
Locked	Запрет возможности выбора элементов списка. True – выбор запрещен, False** – выбор разрешен. Значение по умолчанию = False.
MultiSelect***	Определяет возможность однострочного или многострочного выбора. 0 (fmMultiSelectSingle) – однострочный выбор, 1 (fmMultiSelectMulti) и 2 (fmMultiSelectExtended) – многострочный выбор.
RowSource	Источник строк для элемента управления ListBox (адрес диапазона на рабочем листе Excel).
TabIndex	Целое число, определяющее позицию элемента управления в очереди на получение фокуса при табуляции. Отсчет начинается с 0.
Text	Текстовое содержимое выбранной строки списка (из первого столбца при ColumnCount > 1). Тип данных String, значение по умолчанию = пустая строка.
TextAlign	Выравнивание текста: 1 (fmTextAlignLeft) – по левому краю, 2 (fmTextAlignCenter) – по центру, 3 (fmTextAlignRight) – по правому краю.
Top	Расстояние от верхнего края внутренней границы пользовательской формы до верхнего края элемента управления ListBox.
Value	Значение выбранной строки списка (из первого столбца при ColumnCount > 1). Value – свойство списка по умолчанию. Тип данных Variant, значение по умолчанию = Null.
Visible	Видимость списка. True – ListBox отображается на пользовательской форме, False – ListBox скрыт.
Width	Ширина элемента управления.

* При Enabled в значении False возможен только вывод информации в список для просмотра.
** Для элемента управления ListBox действие свойства Locked в значении True аналогично действию свойства Enabled в значении False.
*** Если включен многострочный выбор, свойства Text и Value всегда возвращают значения по умолчанию (пустая строка и Null).

В таблице перечислены только основные, часто используемые свойства списка. Еще больше доступных свойств отображено в окне Properties элемента управления ListBox, а все методы, события и свойства – в окне Object Browser.

Вызывается Object Browser нажатием клавиши «F2». Слева выберите объект ListBox, а справа смотрите его методы, события и свойства.

Свойства BackColor, BorderColor, BorderStyle отвечают за внешнее оформление списка и его границ. Попробуйте выбирать доступные значения этих свойств в окне Properties, наблюдая за изменениями внешнего вида элемента управления ListBox на проекте пользовательской формы.

Способы заполнения ListBox

Используйте метод AddItem для загрузки элементов в список по одному:

With UserForm1.ListBox1

.AddItem «Значение 1»

.AddItem «Значение 2»

.AddItem «Значение 3»

End With

Используйте свойство List, чтобы скопировать одномерный массив значений в элемент управления ListBox.

UserForm1.ListBox1.List = Array(«Текст 1», _

«Текст 2», «Текст 3», «Текст 4», «Текст 5»)

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

Используйте свойство RowSource, чтобы загрузить в список значения из диапазона ячеек рабочего листа:

UserForm1.ListBox1.RowSource = «Лист1!A1:A6»

При загрузке данных из диапазона, содержащего более одного столбца, требуется предварительно указать количество столбцов в списке:

With UserForm1.ListBox1

‘Указываем количество столбцов

.ColumnCount = 5

.RowSource = «‘Лист со списком’!A1:E10»

End With

В качестве имени листа используется имя ярлыка. Если имя листа содержит пробелы, оно заключается в одинарные кавычки.

Подробнее о заполнении элемента управления ListBox вы можете ознакомиться в отдельной статье с наглядными примерами.

Привязка списка к ячейке

Для привязки списка к ячейке на рабочем листе используется свойство ControlSource. Суть привязки заключается в том, что при выборе строки в элементе управления, значение свойства Value копируется в привязанную ячейку.

Если привязанная к списку ячейка содержит значение одной из строк элемента управления ListBox, то при запуске пользовательской формы список откроется с выделенной строкой, содержащей это значение. Если привязанная ячейка при загрузке формы пустая, то список откроется без выделения какой-либо строки.

В случае, когда при открытии формы в привязанной к списку ячейке содержится значение, которого нет ни в одной из строк элемента управления ListBox, будет сгенерирована ошибка.

Привязать ячейку к списку можно, указав адрес ячейки в поле свойства ControlSource в окне Properties элемента управления ListBox. Или присвоить адрес ячейки свойству ControlSource в коде VBA Excel:

UserForm1.ListBox1.ControlSource = «Лист1!A2»

Теперь значение выбранной строки в списке автоматически копируется в ячейку «A2» на листе «Лист1»:

В окне Properties адрес указывается без двойных кавычек. Если имя листа содержит пробелы, оно заключается в одинарные кавычки.

Извлечение информации из списка

Первоначально элемент управления ListBox открывается со строками, ни одна из которых не выбрана. При выборе (выделении) строки, ее значение записывается в свойства Value и Text.

Из этих свойств мы с помощью кода VBA Excel извлекаем информацию, выбранную в списке пользователем:

Dim myVar as Variant, myTxt As String

myVar = UserForm1.ListBox1.Value

‘или

myTxt = UserForm1.ListBox1.Text

Вторую строку кода можно записать myVar = UserForm1.ListBox1, так как Value является свойством списка по умолчанию.

Если ни одна позиция в списке не выбрана, свойство Value возвращает значение Null, а свойство Text – пустую строку. Если выбрана строка в многостолбцовом списке, в свойства Value и Text будет записана информация из первого столбца.

Что делать, если понадобятся данные из других столбцов многостолбцового списка, кроме первого?

Для получения данных из любого столбца элемента управления ListBox используется свойство List, а для определения выбранной пользователем строки – ListIndex.

Для тестирования приведенного ниже кода скопируйте таблицу и вставьте ее в диапазон «A1:D4» на листе с ярлыком «Лист1»:

Звери	Лев	Тапир	Вивера
Птицы	Грач	Сорока	Филин
Рыбы	Карась	Налим	Парусник
Насекомые	Оса	Жук	Муравей

Создайте в редакторе VBA Excel пользовательскую форму и добавьте на нее список с именем ListBox1. Откройте модуль формы и вставьте в него следующие процедуры:

Private Sub UserForm_Initialize()

With Me.ListBox1

‘Указываем, что у нас 4 столбца

.ColumnCount = 4

‘Задаем размеры столбцов

.ColumnWidths = «50;50;50;50»

‘Импортируем данные

.RowSource = «Лист1!A1:D4»

‘Привязываем список к ячейке «F1»

.ControlSource = «F1»

End With

End Sub

Private Sub UserForm_Click()

MsgBox Me.ListBox1.List(Me.ListBox1.ListIndex, 2)

End Sub

В процедуре UserForm_Initialize() присваиваем значения некоторым свойствам элемента управления ListBox1 перед открытием пользовательской формы. Процедура UserForm_Click() при однократном клике по форме выводит в MsgBox значение из третьего столбца выделенной пользователем строки.

Теперь при выборе строки в списке, значение свойства Value будет записываться в ячейку «F1», а при клике по форме функция MsgBox выведет значение третьего столбца выделенной строки.

Обратите внимание, что при первом запуске формы, когда ячейка «F1» пуста и ни одна строка в ListBox не выбрана, клик по форме приведет к ошибке. Это произойдет из-за того, что свойство ListIndex возвратит значение -1, а это недопустимый номер строки для свойства List.

Если для списка разрешен многострочный выбор (MultiSelect = fmMultiSelectMulti или MultiSelect = fmMultiSelectExtended), тогда, независимо от количества выбранных строк, свойство Value будет возвращать значение Null, а свойство Text – пустую строку. Свойство ListIndex будет возвращать номер строки, которую кликнули последней, независимо от того, что это было – выбор или отмена выбора.

Иногда перед загрузкой в ListBox требуется отобрать уникальные элементы из имеющегося списка. Смотрите, как это сделать с помощью объектов Collection и Dictionary.

Источник

SHD1

0 / 0 / 0

Регистрация: 14.02.2016

Сообщений: 26

10.11.2018, 20:23. Показов 7365. Ответов 12

Метки listbox, textbox, поиск в listbox (Все метки)

Здравствуйте!

Сразу скажу — в VB соображаю мало (очень), все коды искал в сети.

Помогите, пожалуйста, с поиском по ListBox и выделением строки в ListBox.
На форме есть TextBox, ListBox и Label.

При запуске формы в ListBox загружаются строки из столбца листа «База»:

Visual Basic

Private Sub UserForm_Initialize()
Dim i As Long, i_n  As Long
ListBox1.Clear
i_n = Worksheets("База").Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To i_n
        ListBox1.AddItem Worksheets("База").Cells(i, 8)
    Next i
End Sub

При вводе в TextBox символов происходит поиск совпадений в ListBox, и в самом ListBox остаются результаты совпадений:

Visual Basic

Private Sub TextBox10_Change()
Dim rng As Range, Адрес$
ListBox1.Clear
    If Len(TextBox10) > 0 Then
    With Range("H1:H117")
        Set rng = .Find(What:=TextBox10.Value, LookIn:=xlValues, LookAt:=xlPart)
        If Not rng Is Nothing Then
            Адрес = rng.Address
            Do
            ListBox1.AddItem rng
               Set rng = .FindNext(rng)
            Loop While Адрес <> rng.Address
        End If
    End With
    End If
End Sub

Также при выделении строки в ListBox в Label добавляется информация из ячеек листа «База»:

Visual Basic

Private Sub ListBox1_Change()
Dim roww As Long, F As Integer
If F = 1 Then Exit Sub
        roww = ListBox1.ListIndex
        roww = roww + 1
   Label16.Caption = Worksheets("База").Cells(roww, 7).Value & " " & Worksheets("База").Cells(roww, 8).Value _
        & ", рег.№ " & Worksheets("База").Cells(roww, 10).Value
End Sub

Проблема — если после выделения строки в ListBox (и соответствующего копирования ячеек из листа «База» в Label6) в после TextBox попытаться удалить Backspace’ом символы и ввести другие, то появляется ошибка «Run-time error 1004» в блоке ListBox1_Change:

Visual Basic

1 2	Label16.Caption = Worksheets("База").Cells(roww, 7).Value & " " & Worksheets("База").Cells(roww, 8).Value _ & ", рег.№ " & Worksheets("База").Cells(roww, 10).Value

Помогите, пожалуйста, решить проблему!!!
Пробовал очищать ListBox и TextBox кнопкой и сбрасывать выделение строки в ListBox, но ошибка всё-равно появляется

140 / 123 / 50

Регистрация: 10.11.2011

Сообщений: 620

12.11.2018, 20:32

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

Помогите, пожалуйста, решить проблему!!!

В первую очередь Вы помогите себе: приложите файл пример, Согласно правил форума

0 / 0 / 0

Регистрация: 14.02.2016

Сообщений: 26

15.11.2018, 16:24

[ТС]

Извините, тупанул.

Был в командировке, только сегодня приехал.

Не загружается файл, формат .xlsm не поддерживается.

Выложил его на файлообменнике https://yadi.sk/d/iSlyfV8ny-3owg

Модератор

11341 / 4660 / 748

Регистрация: 07.08.2010

Сообщений: 13,496

Записей в блоге: 4

15.11.2018, 16:30

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

Не загружается файл, формат .xlsm не поддерживается.

зазипуйте перед выкладыванием на форум

0 / 0 / 0

Регистрация: 14.02.2016

Сообщений: 26

15.11.2018, 17:05

[ТС]

Спасибо за подсказку

Святой НякаЛайк

653 / 246 / 88

Регистрация: 28.10.2015

Сообщений: 520

15.11.2018, 18:05

Сообщение было отмечено SHD1 как решение

Решение

При вводе чего бы то ни было в текстбокс срабатывает событие «TextBox10_Change»
В коде которого написано «ListBox1.Clear» (кроме всего прочего)
Эта команда очищает листбокс, удаляя все строки.
А во время удаления листбокса срабатывает событие «ListBox1_Change»
В котором написано, кроме прочего:

Visual Basic

Dim roww As Long
        roww = ListBox1.ListIndex
        roww = roww + 1
   Label16.Caption = Worksheets("База").Cells(roww, 7).Value & " " & Worksheets("База").Cells(roww, 8).Value _
        & ", рег. № " & Worksheets("База").Cells(roww, 10).Value

То есть мы имеем: листбокс только что очистился, количество строк у него — 0 (это фактически, но свойство «ListBox1.ListIndex» становится равным «-1»)
Далее вы к этому значению «-1» прибавляете единицу строкой кода «roww = roww + 1»
Что при этом получается? Правильно, получается ноль. Пока ничего опасного нет. Ноль — это тоже результат вычисления и с ним можно много чего поделать, но далее вы делаете это:
«Label16.Caption = Worksheets(«База»).Cells(roww, 7).Value & » » & Worksheets(«База»).Cells(roww, 8).Value _
& «, рег. № » & Worksheets(«База»).Cells(roww, 10).Value»
То есть вы обращаетесь к ячейке с адресом строка номер 0 и столбец номер 7.
А в листе экселя строки начинаются с 1. Вот вам и ошибка.
Обращение к недопустимой ячейке.

653 / 246 / 88

Регистрация: 28.10.2015

Сообщений: 520

15.11.2018, 18:12

проба.zip
Вот, небольшая переделка вашего кода и сабж решился. Хотя остальной код я не проверял

Святой НякаЛайк

15.11.2018, 18:31

Не по теме:

Кстати, прикольный у вас получился поисковый фильтр! Достаточно элегантное решение, хотя если база разрастётся до нескольких тысяч строк, то такой поиск может начать притормаживать…:good:

0 / 0 / 0

Регистрация: 14.02.2016

Сообщений: 26

15.11.2018, 18:32

[ТС]

В этом направлении я и думал, только вот по порядку сформулировать не получалось, как и решение найти.

проба.zip
Вот, небольшая переделка вашего кода и сабж решился. Хотя остальной код я не проверял

Огромнейшее спасибо!!!

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

Не по теме:

Код взял из этой темы Как сделать поиск по ListBox слова введеного в textBox
А насчет большой базы — завтра как раз и попробую, кол-во строк будет где-то 200-220. Отпишусь, как пройдет

653 / 246 / 88

Регистрация: 28.10.2015

Сообщений: 520

15.11.2018, 19:58

Бывает, напишешь кучю кода, вроде понимаешь, что написал, а чрез месяцы вдруг код надо поправить и теперь уже открыв свой собственный код обнаруживаешь, что чтение (и понимание) его стало процессом затруднявым. Как быть? Разобраться помогает функционал редактора.
Юзай функции остановки и окошко переменных (меню «Wiew -> Locals window»). Выполнять код можно кнопкой F8 — при этом по выполнении каждой строки кода выполнение будет прерываться и показывать в окне переменных состояние всех переменных текущей процедуры (хотя можно выбрать и другие, через «call stack»). При таком пошаговом режиме получаешь практически исчерпывающую информацию по всем переменным.
А когда код большой и прогон всего кода построчно займёт слишком много времени, можно просто расставить точки остановки в сомнительных местах (обычно хватает за пару строк до той строки, где выскакивает ошибка!)

А если освоить функционал Watch, позволяющий останавливать код при выполнении настраиваемого условия (икс, на который вскоре надо будет делить стал равен нулю например), то вообще начинаешь считать бейсик своим другом, а не сволочью, которой вечно что-то да не нравится =)))

0 / 0 / 0

Регистрация: 14.02.2016

Сообщений: 26

15.11.2018, 21:55

[ТС]

Попробовал сейчас 230 строк записать в ListBox — поиск идёт без тормозов.

Возникла проблема (вполне логичная) — при выделении строки в ListBox после поиска копируются данные строки, соответствующей таковой в столбце. То есть копирование идет на основе id ячейки, что опять же логично, исходя из кода.

Как сделать так, чтобы при выделении строки копировалась ячейка, связанная именно с «содержимым» строки? Т.е. данные не третьей строки, а двадцать третьей.

653 / 246 / 88

Регистрация: 28.10.2015

Сообщений: 520

15.11.2018, 22:32

Сообщение было отмечено SHD1 как решение

Решение

0 / 0 / 0

Регистрация: 14.02.2016

Сообщений: 26

15.11.2018, 23:03

[ТС]

Сообщение от Святой НякаЛайк

Так: проба.zip

Спасибо огромное!!!

IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604	15.11.2018, 23:03
13

Источник