Садржај
Употреба ЛистВиев контроле са контролним пољима у ВБА обрасцу може учинити апликацију динамичнијом тако што ће кориснику пружити опције. ЛистВиев приказује ставке користећи један од четири различита приказа и распоређује их у колоне са или без Мицрософт Екцел заглавља. Користите својство "ЛистИтемс.Адд" за додавање ставки и "Цхецкед" да бисте одредили које ставке је корисник изабрао.
Упутства
Попуните ЛистВиев контролу у Екцелу користећи ВБА (Хемера Тецхнологиес / Пхотос.цом / Гетти Имагес)-
Отворите Мицрософт Екцел, кликните на картицу "Девелопер", а затим на "Висуал Басиц" да бисте отворили прозор ВБА едитор.Кликните на "Инсерт" мени, а затим на "УсерФорм" (кориснички образац) да бисте креирали нови образац. Кликните на "Тоолс", "Аддитионал Цонтролс" и изаберите поље поред "Мицрософт ЛистВиев Цонтрол" (Мицрософт ЛистВиев контрола) да бисте у образац додали нову контролу "ЛистВиев".
-
Кликните десним тастером миша на контролу "ЛистВиев", а затим на "Пропертиес". Померите се доле кроз прозор и изаберите опцију "Труе" поред опције "Цхецкбокес". Кликните на "ЦоммандБуттон" у окну "Тоолбок", а затим на обрасцу да бисте додали ново дугме. Додајте друго дугме користећи исте кораке.
-
Двапут кликните на "ЦоммандБуттон1" да бисте креирали нови догађај за то дугме. Додајте следећи код у популарни "ЛистБок" са три ставке:
Ме.ЛистВиев1.ЛистИтемс.Адд (1) = "Цхецк Итем 1" Ме.ЛистВиев1.ЛистИтемс.Адд (2) = "Цхецк Итем 2" Ме.ЛистВиев1.ЛистИтемс.Адд (3) = "Цхецк Итем 3"
-
Вратите се у форму и двапут кликните на "ЦоммандБуттон2" да бисте креирали нови догађај кликом за то дугме. Додајте следећи код да бисте прегледали ставке "ЛистБок" и приказали изабране ставке у прозору "Одмах":
За цоунтер = 1 За Ме.ЛистВиев1.ЛистИтемс.Цоунт Ако Ме.ЛистВиев1.ЛистИтемс.Итем (бројач) .Цхецкед Затим Дебуг.Принт Ме.ЛистВиев1.ЛистИтемс.Итем (бројач).
-
Вратите се на образац и кликните на "Ф5" да бисте покренули програм. Затим кликните на "ЦоммандБуттон1" да бисте попунили "ЛистВиев" контролу, а затим "ЦоммандБуттон2" да бисте приказали изабране ставке.
Шта ти треба
- Мицрософт Екцел