Как да използвате ListView с CheckBox в VBA

Автор: Peter Berry
Дата На Създаване: 11 Август 2021
Дата На Актуализиране: 17 Ноември 2024
Anonim
Как да използвате ListView с CheckBox в VBA - Статии
Как да използвате ListView с CheckBox в VBA - Статии

Съдържание

Използването на контрола ListView с квадратчета за отметка във VBA форма може да направи приложението по-динамично, като предостави опции на потребителя. ListView показва елементи, като използва един от четирите различни изгледа и ги подрежда в колони с или без заглавия на Microsoft Excel. Използвайте свойството "ListItems.Add", за да добавите елементи и "Checked", за да определите кои елементи са избрани от потребителя.


инструкции

Попълнете контрола ListView в Excel с помощта на VBA (Hemera Technologies / Photos.com / Getty Images)
  1. Отворете Microsoft Excel, щракнете върху раздела "Разработчик" и след това върху "Visual Basic", за да отворите прозореца на редактора на VBA.Щракнете върху менюто "Insert" и след това върху "UserForm" (потребителска форма), за да създадете нова форма. Кликнете върху "Инструменти", "Допълнителни контроли" и изберете полето до "Microsoft ListView Control" (контрол на Microsoft ListView), за да добавите нов контрол от "ListView" към формуляра.

  2. Щракнете с десния бутон върху контрола "ListView" и след това върху "Свойства". Превъртете надолу през прозореца и изберете опцията "True" до опцията "Checkboxes". Кликнете върху "CommandButton" в панела "Toolbox" и след това върху формуляра, за да добавите нов бутон. Добавете втори бутон, използвайки същите стъпки.


  3. Кликнете два пъти върху „CommandButton1“, за да създадете ново събитие за този бутон. Добавете следния код към популярния „ListBox“ с три елемента:

    Me.ListView1.ListItems.Add (1) = "Позиция 1" Me.ListView1.ListItems.Add (2) = "Check Item 2" Me.ListView1.ListItems.Add (3) = "Check Item 3"

  4. Върнете се във формуляра и кликнете два пъти върху "CommandButton2", за да създадете ново събитие за този бутон. Добавете следния код, за да преминете през елементите „ListBox“ и покажете избраните елементи в прозореца „Незабавно“:

    За брояч = 1 За Me.ListView1.ListItems.Count Ако Me.ListView1.ListItems.Item (брояч) .Checked След това Debug.Print Me.ListView1.ListItems.Item (брояч).

  5. Върнете се във формата и натиснете "F5", за да стартирате програмата. След това натиснете "CommandButton1", за да попълните контрола "ListView" и след това "CommandButton2", за да покажете избраните елементи.


Какво ви трябва

  • Microsoft Excel

Искате ли пъстра и екстравагантна пънк-рок коса без ангажимент? Боядисването на косата с желатин е лесен и забавен начин за бърза промяна в цвета ви! Ако имате тъмна коса, ще трябва да я обезцветите, ...

Компресираните файлове не заемат толкова място като некомпресираните файлове на твърдия диск и е много по-бързо да се изтеглят или качват компресирани файлове. Zip и Rar са станали много обичайни мето...

Интересни Статии