Kā lietot ListView ar CheckBox VBA

Autors: Peter Berry
Radīšanas Datums: 11 Augusts 2021
Atjaunināšanas Datums: 17 Novembris 2024
Anonim
Kā lietot ListView ar CheckBox VBA - Raksti
Kā lietot ListView ar CheckBox VBA - Raksti

Saturs

Izmantojot ListView vadību ar izvēles rūtiņām VBA veidlapā, lietojumprogrammai dodot iespējas, tas var padarīt lietojumprogrammu dinamiskāku. ListView parāda vienumus, izmantojot vienu no četriem dažādiem skatiem, un tos sakārto kolonnās ar vai bez Microsoft Excel galvenēm. Izmantojiet "ListItems.Add" rekvizītu, lai pievienotu vienumus, un "Pārbaudīts", lai noteiktu, kurus objektus izvēlējies lietotājs.


Instrukcijas

Aizpildiet ListView vadību programmā Excel, izmantojot VBA (Hemera Technologies / Photos.com / Getty Images)
  1. Atveriet Microsoft Excel, noklikšķiniet uz cilnes "Izstrādātājs" un pēc tam uz "Visual Basic", lai atvērtu VBA redaktora logu. Noklikšķiniet uz izvēlnes "Ievietot" un pēc tam "UserForm" (lietotāja veidlapa), lai izveidotu jaunu veidlapu. Noklikšķiniet uz "Rīki", "Papildu vadīklas" un atlasiet lodziņu blakus "Microsoft ListView Control" (Microsoft ListView vadība), lai veidlapai pievienotu jaunu "ListView" kontroli.

  2. Ar peles labo pogu noklikšķiniet uz "ListView" vadības un pēc tam uz "Properties". Ritiniet lejup logu un izvēlieties opciju “True” (izvēles) blakus opcijai “Checkbox” (izvēles rūtiņas). Noklikšķiniet uz "CommandButton" rūtī "Toolbox" un pēc tam uz veidlapas, lai pievienotu jaunu pogu. Pievienojiet otru pogu, izmantojot tās pašas darbības.


  3. Veiciet dubultklikšķi uz "CommandButton1", lai izveidotu jaunu pogu šai pogai. Pievienojiet šādu kodu populārajam "ListBox" ar trīs vienumiem:

    Me.ListView1.ListItems.Add (1) = "Pārbaudiet 1. Punktu" Me.ListView1.ListItems.Add (2) = "Pārbaudiet 2. Punktu" Me.ListView1.ListItems.Add (3) = "Pārbaudīt 3. punktu"

  4. Dodieties atpakaļ uz veidlapu un veiciet dubultklikšķi uz "CommandButton2", lai izveidotu jaunu klikšķa notikumu šai pogai. Pievienojiet šādu kodu, lai pārietu uz "ListBox" vienumiem un parādītu atlasītos vienumus "tūlītējā" logā:

    Par skaitītāju = 1 uz Me.ListView1.ListItems.Count Ja Me.ListView1.ListItems.Item (skaitītājs). Pārbaudīts pēc tam Debug.Print Me.ListView1.ListItems.Item (skaitītājs) .Text End Ja nākamais

  5. Dodieties atpakaļ uz veidlapu un noklikšķiniet uz F5, lai palaistu programmu. Pēc tam noklikšķiniet uz "CommandButton1", lai aizpildītu "ListView" kontroli un pēc tam "CommandButton2", lai parādītu atlasītos vienumus.


Kas jums nepieciešams

  • Microsoft Excel

Kā apgleznot savas jūtas

Robert Simon

Novembris 2024

No Picao līdz Rotko, dažādu tilu gleznotāji ir cīnījušie, lai izpautu ava jūta caur māklu. Lai gan kompozīcijai ir varīga krāa, truktūra, forma un līnija, emocija bieži vien ir mākla darbu radīšana pē...

Labi jautājumi par 20 jautājumiem

Robert Simon

Novembris 2024

"20 jautājumi" ir klaik pēle garlaicīgajām tundām, ka vecākiem jāglabā avā repertuārā. Kad bērni ir garlaicīgi automašīnu ceļojumā vai rindā, šī pēle var to pavadīt tundu vai ilgāk. Vien cil...

Aizraujošas Publikācijas