Så här använder du ListView med en CheckBox i VBA

Författare: Laura McKinney
Skapelsedatum: 10 April 2021
Uppdatera Datum: 20 November 2024
Anonim
Så här använder du ListView med en CheckBox i VBA - Artiklar
Så här använder du ListView med en CheckBox i VBA - Artiklar

Innehåll

Att använda en ListView-kontroll med kryssrutor på en VBA-blankett kan göra en applikation mer dynamisk genom att ge användarna alternativ. En listvy visar objekt med hjälp av en av fyra olika vyer och ordnar dem i kolumner med eller utan Microsoft Excel-rubriker. Använd egenskapen "ListItems.Add" för att lägga till objekt och "Kontrollerat" för att bestämma vilka objekt som har valts av användaren.


vägbeskrivning

Fyll i ListView-kontrollen i Excel med VBA (Hemera Technologies / Photos.com / Getty Images)
  1. Öppna Microsoft Excel, klicka på "Developer" fliken och sedan på "Visual Basic" för att öppna VBA redigeringsfönstret. Klicka på "Insert" menyn och sedan "UserForm" (användarnamn) för att skapa en ny form. Klicka på "Verktyg", "Ytterligare kontroller" och välj rutan bredvid "Microsoft ListView Control" (Microsoft ListView-kontroll) för att lägga till en ny "ListView" -kontroll i formuläret.

  2. Högerklicka på "ListView" -kontrollen och sedan på "Egenskaper". Bläddra ner i fönstret och välj "True" bredvid alternativet "Checkboxes". Klicka på "Kommandotangent" i rutan "Verktygslåda" och sedan på formuläret för att lägga till en ny knapp. Lägg till en andra knapp med samma steg.


  3. Dubbelklicka på "CommandButton1" för att skapa en ny händelse för den knappen. Lägg till följande kod till populära "ListBox" med tre saker:

    Me.ListView1.ListItems.Add (1) = "Kontrollera objekt 1" Me.ListView1.ListItems.Add (2) = "Kontrollera objekt 2" Me.ListView1.ListItems.Add (3) = "Kontrollera objekt 3"

  4. Gå tillbaka till formuläret och dubbelklicka på "CommandButton2" för att skapa en ny klickhändelse för den knappen. Lägg till följande kod för att gå igenom "ListBox" -objekten och visa de valda objekten i fönstret "Omedelbart":

    För räknare = 1 Till Me.ListView1.ListItems.Count Om Me.ListView1.ListItems.Item (counter) .Check Then Debug.Print Me.ListView1.ListItems.Item (counter) .Text End If Next

  5. Gå tillbaka till formuläret och klicka på "F5" för att köra programmet. Klicka sedan på "CommandButton1" för att fylla i "ListView" -kontrollen och sedan "CommandButton2" för att visa de valda objekten.


Vad du behöver

  • Microsoft Excel

Om du är ny ho djur och inte är äker på vad avvänjning är, är det proceen där valpar börjar konumera andra mat än mjölk. Det finn inget nabbt ...

Med tanke på att du penderar en tredjedel av ditt liv i ängen är det viktigt att hitta en kvalitetmadra. Förutom komfortnivån bör du ockå överväga den plat...

Rekommenderas Av Oss