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

Автор: Peter Berry
Дата На Създаване: 11 Август 2021
Дата На Актуализиране: 1 Ноември 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

Land Rover Freelander е началният модел в луксозната UV линия от този английски производител. Стартира, когато Land Rover принадлежи на Ford и те искаха да разширят линията извън топ моделите Range Ro...

Коремът може да бъде проблемна зона за тези, които възнамеряват да влязат във форма, но никога не успяват да превърнат ентусиазма в желаните резултати. "Pneuzinho" е изразът, използван с оби...

Не Забравяйте Да Погледнете