Содержание

• направления
• Что вам нужно

Использование элемента управления ListView с флажками в форме VBA может сделать приложение более динамичным, предоставляя опции пользователю. ListView показывает элементы с помощью одного из четырех различных представлений и размещает их в столбцах с заголовками Microsoft Excel или без них. Используйте свойство «ListItems.Add», чтобы добавить элементы, и «Checked», чтобы определить, какие элементы были выбраны пользователем.

направления

Заполните элемент управления ListView в Excel, используя VBA (Hemera Technologies / Photos.com / Getty Images)

1. Откройте Microsoft Excel, щелкните вкладку «Разработчик», а затем «Visual Basic», чтобы открыть окно редактора VBA. Щелкните меню «Вставка», а затем «Пользовательская форма» (пользовательская форма), чтобы создать новую форму. Нажмите «Инструменты», «Дополнительные элементы управления» и установите флажок рядом с «Элемент управления Microsoft ListView» (элемент управления Microsoft ListView), чтобы добавить новый элемент управления «ListView» в форму.

2. Щелкните правой кнопкой мыши элемент управления «ListView», а затем «Свойства». Прокрутите окно вниз и выберите «True» рядом с опцией «Checkboxes». Нажмите «CommandButton» на панели «Панель инструментов», а затем в форме, чтобы добавить новую кнопку. Добавьте вторую кнопку, используя те же шаги.

   
   

3. Дважды щелкните «CommandButton1», чтобы создать новое событие для этой кнопки. Добавьте следующий код в популярный «ListBox» с тремя элементами:

   Me.ListView1.ListItems.Add (1) = "Проверить элемент 1" Me.ListView1.ListItems.Add (2) = "Проверить элемент 2" Me.ListView1.ListItems.Add (3) = "Проверить элемент 3"

4. Вернитесь к форме и дважды щелкните «CommandButton2», чтобы создать новое событие нажатия для этой кнопки. Добавьте следующий код, чтобы просмотреть элементы «ListBox» и отобразить выбранные элементы в окне «Немедленно»:

   Для counter = 1 To Me.ListView1.ListItems.Count If Me.ListView1.ListItems.Item (counter). Проверено, затем Debug.Print Me.ListView1.ListItems.Item (counter). Текст End If Next

5. Вернитесь к форме и нажмите «F5», чтобы запустить программу. Затем нажмите «CommandButton1», чтобы заполнить элемент управления «ListView», а затем «CommandButton2», чтобы отобразить выбранные элементы.

   
   

Что вам нужно

• Microsoft Excel