Jak korzystać z ListView z CheckBox w VBA

Autor: Peter Berry
Data Utworzenia: 11 Sierpień 2021
Data Aktualizacji: 17 Listopad 2024
Anonim
ListView Checkboxes And Checked Item Userform Excel VBA
Wideo: ListView Checkboxes And Checked Item Userform Excel VBA

Zawartość

Użycie kontrolki ListView z polami wyboru na formularzu VBA może uczynić aplikację bardziej dynamiczną, udostępniając opcje użytkownikowi. ListView pokazuje elementy za pomocą jednego z czterech różnych widoków i układa je w kolumny z nagłówkami Microsoft Excel lub bez nich. Użyj właściwości „ListItems.Add”, aby dodać elementy i „Zaznaczone”, aby określić, które elementy zostały wybrane przez użytkownika.


Instrukcje

Wypełnij formant ListView w programie Excel przy użyciu VBA (Hemera Technologies / Photos.com / Getty Images)
  1. Otwórz Microsoft Excel, kliknij zakładkę „Developer”, a następnie „Visual Basic”, aby otworzyć okno edytora VBA Kliknij menu „Insert”, a następnie „UserForm” (formularz użytkownika), aby utworzyć nowy formularz. Kliknij „Narzędzia”, „Dodatkowe kontrolki” i zaznacz pole obok „Microsoft ListView Control” (kontrolka Microsoft ListView), aby dodać nową kontrolkę „ListView” do formularza.

  2. Kliknij prawym przyciskiem myszy formant „ListView”, a następnie „Właściwości”. Przewiń okno w dół i wybierz „Prawda” obok opcji „Pola wyboru”. Kliknij „CommandButton” w panelu „Toolbox”, a następnie w formularzu, aby dodać nowy przycisk. Dodaj drugi przycisk, wykonując te same czynności.

  3. Kliknij dwukrotnie „CommandButton1”, aby utworzyć nowe zdarzenie dla tego przycisku. Dodaj następujący kod do popularnego „ListBox” z trzema elementami:


    Me.ListView1.ListItems.Add (1) = "Sprawdź pozycję 1" Me.ListView1.ListItems.Add (2) = "Sprawdź pozycję 2" Me.ListView1.ListItems.Add (3) = "Sprawdź pozycję 3"

  4. Wróć do formularza i kliknij dwukrotnie „CommandButton2”, aby utworzyć nowe zdarzenie kliknięcia dla tego przycisku. Dodaj następujący kod, aby przejść przez elementy „ListBox” i wyświetlić wybrane elementy w oknie „Natychmiastowe”:

    Dla licznika = 1 Do Me.ListView1.ListItems.Count Jeśli Me.ListView1.ListItems.Item (licznik) .Sprawdzone Następnie Debug.Print Me.ListView1.ListItems.Item (licznik) .Text End If

  5. Wróć do formularza i kliknij „F5”, aby uruchomić program. Następnie kliknij „CommandButton1”, aby wypełnić kontrolkę „ListView”, a następnie „CommandButton2”, aby wyświetlić wybrane elementy.

Czego potrzebujesz

  • Microsoft Excel

Kupując przedmioty do użytku w wytroju domu, prawdopodobnie znajdziez deki w wieku i popękane. Te ozdoby ą eleganckim dodatkiem do wielu rodzajów dekoracji, które mogą być drogie; jednak mog...

Jak zastąpić jajka w ciasteczkach

Laura McKinney

Listopad 2024

Ciateczka ą jedną z najwiękzych przyjemności w życiu, ale czaami z powodu alergii na jaja lub ograniczeń dietetycznych, konieczne jet zrobienie ciatek bez jajek. Na zczęście dzięki dziiejzej technolog...

Pamiętaj, Aby Przeczytać