Jak używać języka Visual Basic for Applications (VBA) do zmiany formularze niemodalne w programie Excel

Zakończono świadczenie pomocy technicznej dla pakietu Office 2003

Firma Microsoft zakończyła świadczenie pomocy technicznej dla pakietu Office 2003 8 kwietnia 2014. Ta zmiana wpłynęła na Twoje aktualizacje oprogramowania i opcje zabezpieczeń. Dowiedz się, co to oznacza dla Ciebie i jak zapewnić sobie kontynuację ochrony.

WAŻNE: Ten artykuł został przetłumaczony przy użyciu oprogramowania firmy Microsoft do tłumaczenia maszynowego i może być poprawiony przy użyciu technologii Community Translation Framework (CTF). Firma Microsoft udostępnia artykuły tłumaczone maszynowo, poprawione przez społeczność, a także tłumaczone przez tłumaczy profesjonalnych, aby zapewnić dostęp do wszystkich artykułów w bazie wiedzy w wielu językach. Artykuły tłumaczone maszynowo i poprawione mogą zawierać błędy pisowni, składniowe i gramatyczne. Firma Microsoft nie ponosi odpowiedzialności za żadne nieścisłości, błędy ani szkody spowodowane przez niepoprawne tłumaczenia zawartości ani przez korzystanie z niej przez klientów. Więcej o strukturze CTF: http://support.microsoft.com/gp/machine-translation-corrections/pl.

Anglojęzyczna wersja tego artykułu to: 829070
Streszczenie
W tym artykule opisano jak zmienić formularze niemodalne programowo w programie Microsoft Excel. Zawiera przykłady i Microsoft Visual Basic dla makr Applications (VBA), które pokazują, jak korzystać z funkcji formularze niemodalne i jak używać formantów ActiveX ™, które są dostępne dla językowi.

Wprowadzenie do podstawowych zasad formularze niemodalne opisano sposób wyświetlić formularze niemodalne, jak tymczasowo ukryć formularze niemodalne i odrzucić językowi. Widoczne są także sposobu używania typowych zdarzeń, które są skojarzone z językowi — Inicjowanie zdarzenia, Kliknij przycisk zdarzenia oraz Zakończenie zdarzenie. Jeden lub więcej z poniższych przykładów przedstawiają sposób zastosowania każdego z następujących formantów ActiveX ™ w UserForm:
  • Etykieta Kontrola
  • Pole tekstowe Kontrola
  • Formant CommandButton Kontrola
  • Pole listy Kontrola
  • Składnik ComboBox Kontrola
  • Ramki Kontrola
  • OptionButton Kontrola
  • Pole wyboru Kontrola
  • ToggleButton Kontrola
  • TabStrip Kontrola
  • Wielostronicowy Kontrola
  • Pasek przewijania Kontrola
  • SpinButton Kontrola
  • Edytowanie odwołania Kontrola
  • Obraz Kontrola
WPROWADZENIE
W tym artykule opisano używanie języka VBA do wprowadzania zmian w formularze niemodalne w programie Excel.
Więcej informacji
Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że czytelnik zna demonstrowany język programowania oraz narzędzia używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać żadnych funkcji i konstruować nowych procedur w celu zaspokojenia określonych potrzeb.

Podstawy UserForm

Jak wyświetlić UserForm

Składnia, który jest używany do wyświetlania UserForm programowo jest następująca:
UserFormName. Pokaż
Aby wyświetlić UserForm, o nazwie UserForm1, należy użyć następującego kodu:
UserForm1.Show
Można załadować UserForm pamięci bez faktycznie wyświetlania go. Złożone UserForm może zająć kilka sekund do stawienia się. Ponieważ mogą wstępnie załadować UserForm do pamięci, można zdecydować, kiedy można ponieść to obciążenie. Aby załadować do pamięci UserForm1, bez wyświetlania go, należy użyć następującego kodu:
Load UserForm1
Aby wyświetlić UserForm, należy użyć metodyPokaż , który wcześniej był wyświetlany.

Jak tymczasowo ukryć UserForm

Jeśli chcesz tymczasowo ukryć UserForm, należy użyć metodyukryć . Możesz ukryć UserForm, jeżeli aplikacja pociąga za sobą przenoszenie między językowi. Aby ukryć UserForm, należy użyć następującego kodu:
UserForm1.Hide
Aby uzyskać dodatkowe informacje, kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
213747 XL2000: Jak przejść między niestandardowe formularze niemodalne z przyciskami poleceń

Jak usunąć UserForm z pamięci

Aby usunąć UserForm z pamięci, należy użyć instrukcjiUnload . Aby zwolnić UserForm, o nazwie UserForm1, należy użyć następującego kodu:
Unload UserForm1
Jeśli zwolnisz UserForm w procedurze zdarzenia, która jest skojarzona z UserForm lub skojarzonego z formantem na UserForm (na przykład, można kliknąć formantCommandButton ), można użyć "Me" słowa kluczowego zamiast nazwy UserForm. Aby użyć "Me" słowa kluczowego zwolnić UserForm, należy użyć następującego kodu:
Unload Me

Sposób użycia UserForm zdarzenia

Formularze niemodalne obsługuje wiele wstępnie zdefiniowanych zdarzeń, które można dołączyć procedury VBA. Gdy wystąpi zdarzenie, uruchamiana jest procedura, dołączonego do zdarzenia. Pojedyncza akcja, która jest wykonywana przez użytkownika mogą inicjować wiele zdarzeń. Jedną z najbardziej często używane terminy dla UserForm są zainicjować zdarzenia, kliknij zdarzenie i zdarzenia Terminate .

Uwaga: Moduł języka Visual Basic, która zawiera procedurę zdarzenia może być określone jako moduł "za" UserForm. Moduł, który zawiera już procedury zdarzenia nie jest widoczny w kolekcji modułów programu Microsoft Project Explorer okna Edytora Visual Basic. Należy kliknąć dwukrotnie treści UserForm do wyświetlania modułu kodu UserForm.

Nadlewek i podlewek UserForm zdarzenia

Do zalewkowania zdarzenia UserForm, wykonaj następujące kroki:
  1. Utwórz nowy skoroszyt w programie Excel.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Kliknij dwukrotnie UserForm Aby wyświetlić Kodeksie miejskim dla UserForm.
  5. W module wpisz następujący kod:
    Private Sub UserForm_Click()    Me.Height = Int(Rnd * 500)    Me.Width = Int(Rnd * 750)End SubPrivate Sub UserForm_Initialize()    Me.Caption = "Events Events Events!"    Me.BackColor = RGB(10, 25, 100)End SubPrivate Sub UserForm_Resize()    msg = "Width: " & Me.Width & Chr(10) & "Height: " & Me.Height    MsgBox prompt:=msg, Title:="Resize Event"End SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)    msg = "Now Unloading " & Me.Caption    MsgBox prompt:=msg, Title:="QueryClose Event"End SubPrivate Sub UserForm_Terminate()    msg = "Now Unloading " & Me.Caption    MsgBox prompt:=msg, Title:="Terminate Event"End Sub
  6. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Po wczytaniu UserForm makra użyto zainicjować zdarzenia, aby zmienić właściwości Caption UserForm "Zdarzenia wydarzenia!" i właściwość BackColor na ciemnoniebieski.

Po kliknięciu przycisku UserForm inicjować zdarzenie Click . Zdarzenie Click powoduje zmianę rozmiaru UserForm. Ponieważ utworzyć procedurę zdarzenia zmiany rozmiaru , otrzymujesz dwóch okien komunikatów, po kliknięciu przycisku UserForm. Zmiana rozmiaru zdarzenie występuje dwa razy, ponieważ kod za zdarzenie Click zmienia zarówno właściwość Width i właściwość Wysokość UserForm.

Zamykanie UserForm inicjuje zdarzenie QueryClose . Zdarzenia QueryClose Wyświetla okno komunikatu, zawierający podpis dał UserForm w kodzie zainicjować zdarzenia. Można użyć zdarzenia QueryClose , gdy chcesz wykonać określone działania, jeśli użytkownik zamknie UserForm.

Zdarzenie Terminate następnie generuje okno komunikatu z informacją, że podpis UserForm jest UserForm1. Zdarzenie Terminate występuje po UserForm jest usuwany z pamięci i podpis UserForm powraca do stanu oryginalnego.

Jak zapobiec UserForm zamykane za pomocą przycisku Zamknij

Po uruchomieniu UserForm przycisk Zamknij jest dodawany do prawego górnego rogu okna UserForm. Jeśli chcesz uniemożliwić UserForm zamykane za pomocą przycisku Zamknij , zostanie umieszczony zdarzenia QueryClose .

Zdarzenie QueryClose występuje tuż przed UserForm jest usuwane z pamięci. Argument CloseMode zdarzenia QueryClose umożliwia określenie, jak UserForm jest zamknięty. Wartość vbFormControlMenu dla argumentu CloseMode wskazuje, że został kliknięty przycisk Zamknij . Aby zachować UserForm aktywny zestaw argumentu Cancel zdarzenia QueryClose na wartość True. Aby użyć zdarzenia QueryClose , aby zapobiec UserForm zamykane za pomocą przycisku Zamknij , wykonaj następujące kroki:
  1. Utwórz nowy skoroszyt w programie Excel.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodaj formant CommandButton Run.
  5. Kliknij dwukrotnie UserForm Aby wyświetlić Kodeksie miejskim dla UserForm.
  6. W oknie kodu wpisz następujący kod:
    Private Sub CommandButton1_Click()    Unload MeEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)    IF CloseMode = vbFormControlMenu Then        Cancel = True        Me.Caption = "Click the CommandButton to close Me!"    End IfEnd Sub
  7. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
UserForm nie jest zamknięty, po kliknięciu przycisku Zamknij . Należy kliknąć formant CommandButton aby zamknąć UserForm.

Aby uzyskać dodatkowe informacje, kliknij następujące numery artykułów w celu wyświetlenia tych artykułów z bazy wiedzy Microsoft Knowledge Base:
207714 XL2000: Za pomocą kolekcji formularze niemodalne błędów czasu wykonywania
211527 XL2000: Nie można przeciągnąć formant UserForm na arkuszu
211868 XL2000: Uruchomione makro, które wstawia formant do UserForm błąd
213582 XL2000: Problemy podczas używania makro dodać formant do UserForm
213583 XL2000: Nie można pokazać formularze niemodalne w innych projektach
213736 XL2000: Jak określić klucz wciśnięty wraz z przyciskiem myszy
213744 XL2000: Jak tymczasowo ukryć UserForm
213747 XL2000: Jak przejść między niestandardowe formularze niemodalne z przyciskami poleceń
213749 XL2000: Jak używać UserForm do wprowadzania danych
213768 XL2000: Jak dynamicznie zmienić rozmiar formularza użytkownika
213774 XL2000: Jak utworzyć ekran startowy z UserForm

Kod języka VBA

Program Excel zawiera piętnaście różnych formantów, które można używać na formularze niemodalne. Ta sekcja zawiera różne przykłady, które programowo użyć tych formantów.

Uwaga: Kod VBA, który znajduje się w tym artykule nie zawiera przykłady, które wpływają na wszystkie właściwości i zdarzenia dla formantów. Jeśli zachodzi potrzeba, może służyć okno właściwości, aby wyświetlić listę właściwości, które są dostępne dla formantu. Aby zobaczyć listę właściwości, w menu Widok , kliknij Okno właściwości.

Jak używać trybu projektowania do edytowanie formantów

Korzystając z Edytora Visual Basic do projektowania okno dialogowe, używany jest tryb projektowania. W trybie projektowania można edytować formantów i właściwości formantu na UserForm w oknie właściwości można zmienić. Aby wyświetlić okno właściwości, w menuWidok , kliknij Okno właściwości.

Uwaga: Formanty nie reagują na zdarzenia, gdy jesteś w trybie projektowania. Po uruchomieniu okno dialogowe, aby wyświetlić go w sposób, w jaki użytkownicy widzą go, program jest w trybie uruchomieniowym. Zmiany wprowadzone do właściwości formantu w trybie uruchamiania nie są zachowywane, gdy UserForm jest usuwane z pamięci.

Uwaga: Formanty reagować na zdarzenia zachodzące w trybie uruchomieniowym.

Sposób odwoływania się do formantów na UserForm

Jak odnoszą się do kontroli programowo, zależy od typu arkusz modułu języka Visual Basic, gdzie wykonywania kodu. Jeśli kod jest uruchomiony z modułu ogólne, składnia jest następująca:
UserFormName.Controlname.Property = Wartość
Na przykład jeśli chcesz ustawić właściwościtekstu formantu pola tekstowego o nazwie Poletekstowe1 na UserForm, o nazwie UserForm1 do wartości Bob, służy poniższy kod:
UserForm1.TextBox1.Text = "Bob"
Kod jest w procedurze jest inicjowane przez zdarzenie formantu lub UserForm, nie trzeba odwołać się do nazwy UserForm. Zamiast tego należy użyć następującego kodu:
TextBox1.Text = "Bob"
Po dołączeniu kod do obiektu, kod jest załączony do jednego ze zdarzeń tego obiektu. W wielu przykładach w tym artykule można dołączyć kod zdarzeniakliknijformant CommandButton obiektu.

Formantów etykiet

Formantów etykiet służą głównie do opisania innych formantów w UserForm. Nie można edytować formantu etykiety przez użytkownika, jest uruchomiona UserForm. Aby ustawić lub zwraca tekst w formancie etykiety , należy użyć właściwości podpisu . Inne często używanych właściwości formatowania formantu etykiety obejmują właściwości czcionki , a właociwooć ForeColor .

Jak używać Instrukcja WITH sformatować formant etykiety

Aby zmienić właściwości formantu etykiety , należy użyć instrukcji WITH , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodaj formant etykiety Run.
  5. Dodaj formant CommandButton Run.
  6. Kliknij dwukrotnie UserForm toopen formant CommandButton w oknie Kod.
  7. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Private Sub CommandButton1_Click()    With Label1        ' Set the text of the label.        .Caption = "This is Label Example 1"        ' Automatically size the label control.        .AutoSize = True        .WordWrap = False        ' Set the font used by the Label control.        .Font.Name = "Times New Roman"        .Font.Size = 14        .Font.Bold = True        ' Set the font color to blue.        .ForeColor = RGB(0, 0, 255)    End WithEnd Sub
  8. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
  9. Kliknij formant CommandButton.
Tekst "to jest przykład etykieta 1" zostanie wyświetlone w formancie etykiety czcionką pogrubioną Times New Roman o rozmiarze czcionki 14.

Formanty pole tekstowe

Formanty pole tekstowe są często używane do gromadzenia danych wprowadzanych przez użytkownika. Właściwość Text zawiera wpis, który znajduje się w formancie pola tekstowego .

Jak używać formantu pole tekstowe hasło

Jeśli ustawisz właściwość Wartości PasswordChar formantu pola tekstowego staje się kontroli "maskowane Edytuj". Każdy znak, który jest wpisany w formancie pola tekstowego zastępuje wizualnie znak, który określisz. Aby użyć formantu pola tekstowego do sprawdzania poprawności hasła, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu pola tekstowego Run.
  5. W menu Widok kliknij polecenieWłaściwości , aby wyświetlić okno właściwości.
  6. W polu właściwości Wartości PasswordChar formantu pola tekstowego wpisz *.

    Uwaga: Zmieniasz wartość do gwiazdki.
  7. Dodaj formant CommandButton Run.
  8. Kliknij dwukrotnie UserForm toopen formant CommandButton w oknie Kod.
  9. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Private Sub CommandButton1_Click()    If TextBox1.Text <> "userform" Then        MsgBox "Password is Incorrect. Please reenter."        TextBox1.Text = ""        TextBox1.SetFocus    Else        MsgBox "Welcome!"        Unload Me    End IfEnd Sub
  10. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
  11. Wpisz hasło UserForm w formancie pola tekstowego .
  12. Kliknij formant CommandButton.
Na przykład hasło jest "Run". Jeśli użytkownik wpisze niepoprawne hasło, pojawi się okno komunikatu, który stwierdza, że hasło jest niepoprawne, formant pola tekstowego jest wyczyszczone i może następnie ponownie wpisz hasło. Po wpisaniu poprawnego hasła, zostanie wyświetlony komunikat powitalny i UserForm jest zamknięty.

Aby uzyskać dodatkowe informacje, kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
213555 XL2000: Nie sprawdzania poprawności danych właściwość dla pola tekstowe UserForm

Formanty CommandButton

Formant CommandButton można użyć, aby uruchomić procedurę języka VBA. Procedury VBA jest zazwyczaj dołączony do zdarzenia kliknij formant CommandButton . Aby użyć procedury jest uruchamiana po wystąpieniu zdarzenia kliknij formant CommandButton , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodaj formant CommandButton Run.
  5. Kliknij dwukrotnie UserForm todisplay formant CommandButton w oknie Kod.
  6. W oknie kodu wpisz następujący kod:
    Private Sub CommandButton1_Click()    red = Int(Rnd * 255)    green = Int(Rnd * 255)    blue = Int(Rnd * 255)    CommandButton1.BackColor = RGB(red, green, blue)End Sub 
  7. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Kolor tła formantu CommandButton1 zmienia się każdorazowo, kliknij go.

Aby uzyskać dodatkowe informacje na temat formant CommandButton kliknij następujące numery artykułów w celu wyświetlenia tych artykułów z bazy wiedzy Microsoft Knowledge Base:
213572 XL2000: Kliknięcie przycisku Anuluj nie może odrzucić UserForm
213743 XL2000: Jak ustawić domyślnego przycisku polecenia UserForm

Formanty ListBox

Celem formant typu pole listy jest przedstawienie użytkownikowi listę elementów do wyboru. Można przechowywać elementu listy dla formantu pola listy w arkuszu programu Excel. Aby wypełnić formant typu pole listy z zakresu komórek w arkuszu, należy użyć właściwości RowSource . Korzystając z właściwości MultiSelect , można skonfigurować formant pola listy , aby zaakceptować wiele zaznaczeń.

Jak uzyskać aktualnie zaznaczonego elementu w formancie pola listy

Właściwości wartości formantu pola listy umożliwia powrót aktualnie zaznaczonego elementu. Aby przywrócić aktualnie zaznaczonego elementu w pojedynczej instrukcji select formant pola listy , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W komórkach a1: a5 na arkuszu Arkusz1 wpisz wartości, które mają touse aby wypełnić formant typu pole listy .
  3. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  4. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  5. Dodawanie formantu pola listy Run.
  6. Kliknij dwukrotnie todisplay formantu pola listy okno kodu dla formantu pola listy .
  7. W oknie kodu wpisz następujący kod dla zdarzenia Pole_listy1 kliknij przycisk :
    Private Sub ListBox1_Click()    MsgBox ListBox1.ValueEnd Sub 
  8. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Gdy zostanie kliknięty element na liście, pojawi się komunikat z aktualnie zaznaczonego elementu.

Jak uzyskać zaznaczone elementy w wielu wybierz formant typu pole listy

Aby określić elementy, które są zaznaczone w wielu wybierz formant pola listy , można pętli wszystkich elementów na liście, a następnie kwerendy właściwości wybrane . Aby przywrócić aktualnie wybrane elementy w wielu wybierz formant pola listy , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W komórkach a1: a5 na arkuszu Arkusz1 wpisz wartości, które mają touse aby wypełnić formant typu pole listy .
  3. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  4. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  5. Dodawanie formantu pola listy Run.
  6. W menu Widok kliknij polecenieWłaściwości , aby wyświetlić okno właściwości.
  7. Wpisz wartości, które są oznaczone dla następujących właściwości formantu pola listy :
       Property	   Value   -----------     -----------------------   MultiSelect	   1 - frmMultiSelectMulti   RowSource	   Sheet1!A1:A8
  8. Dodaj formant CommandButton Run.
  9. Kliknij dwukrotnie UserForm todisplay formant CommandButton w oknie Kod.
  10. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Sub CommandButton1_Click ()       ' Loop through the items in the ListBox.       For x = 0 to ListBox1.ListCount - 1          ' If the item is selected...          If ListBox1.Selected(x) = True Then             ' display the Selected item.             MsgBox ListBox1.List(x)          End If       Next x    End Sub 
  11. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
  12. Zaznacz jeden lub więcej elementów na liście.
  13. Kliknij CommandButton1.
Po kliknięciu przycisku CommandButton1w osobnym oknie komunikatu pojawia się każdy element zaznaczony w formancie pola listy . Po wszystkich wybranych elementów są wyświetlane w oknie komunikatu, UserForm jest automatycznie zamykana.

Jak używać właściwości RowSource wypełnić formant typu pole listy z komórek w arkuszu

Aby użyć właściwości RowSource wypełnić formant typu pole listy z zakresu komórek w arkuszu, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W komórkach a1: a5 na arkuszu Arkusz1 wpisz wartości, które mają touse aby wypełnić formant typu pole listy .
  3. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  4. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  5. Dodawanie formantu pola listy Run.
  6. Dodaj formant CommandButton Run.
  7. Kliknij dwukrotnie UserForm todisplay formant CommandButton w oknie Kod.
  8. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Private Sub CommandButton1_Click()    ListBox1.RowSource = "=Sheet1!A1:A5"End Sub 
  9. W menu Uruchamianie kliknij polecenie RunSub/UserForm.

    Uwaga:Pole_listy1 nie zawiera żadnych wartości.
  10. Kliknij CommandButton1.
Wartości w komórkach a1: a5 na arkuszu Arkusz1 Pole_listy1 jest wpisywany.

W jaki sposób wypełniać formant pola listy z wartości w tablicy

W tym przykładzie przedstawiono wypełnić formant pola listy z zmienną tablicową . Należy przypisać wartości z tablicy do formantu pola listy o jeden element naraz. Zazwyczaj proces ten wymaga użycia konstrukcji pętli, takich jak dla... Następny pętli. Aby wypełnić formant pola listy z zmienną tablicową , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu pola listy Run.
  5. W menu Wstaw kliknij poleceniemoduł Aby wstawić arkusz modułu.
  6. W oknie kodu wpisz następujący kod:
    Sub PopulateListBox()    Dim MyArray As Variant    Dim Ctr As Integer    MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")        For Ctr = LBound(MyArray) To UBound(MyArray)        UserForm1.ListBox1.AddItem MyArray(Ctr)    Next        UserForm1.ShowEnd Sub 
  7. W menu Narzędzia kliknij poleceniemakra, kliknij PopulateListBox, a następnie kliknij polecenieUruchom.
Procedura PopulateListBox buduje proste tablicy, a następnie dodaje elementy w tablicy do formantu pola listy przy użyciu metody AddItem . Następnie pojawi się UserForm.

Jak użyć do poziomego zakresu komórek w arkuszu, aby wypełnić formant pola listy

Jeśli ustawisz właściwość RowSourceformant pola listy do poziomego zakresu komórek, pojawi się tylko pierwsza wartość w formancie pola listy .

Aby wypełnić formant pola listy z poziomego zakresu komórek przy użyciu metody AddItem , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W A1:E1 komórek na arkuszu Arkusz1 wpisz wartości, które mają touse aby wypełnić formant typu pole listy .
  3. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  4. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  5. Dodawanie formantu pola listy Run.
  6. W menu Wstaw kliknij poleceniemoduł Aby wstawić arkusz modułu.
  7. W oknie kodu wpisz następujący kod:
    Sub PopulateListWithHorizontalRange()    For Each x In Sheet1.Range("A1:E1")        UserForm1.ListBox1.AddItem x.Value    Next        UserForm1.ShowEnd Sub
  8. W menu Narzędzia kliknij poleceniemakra, kliknijPopulateListWithHorizontalRange, a następnie kliknij polecenieUruchom.
Procedura makro w pętli A1:E5 komórki na arkuszu Arkusz1 dodanie wartości do Pole_listy1 jednym naraz.

Uwaga:Pole_listy1 nie jest powiązany z A1:E5 komórki na arkuszu 1.

Jak zwracać wiele wartości z powiązanej z wielu kolumn danych formantu pola listy

Można formatować formanty ListBox , aby wyświetlić więcej niż jednej kolumny danych. Oznacza to, że formant typu pole listy Wyświetla więcej niż jeden element w każdym wierszu listy. Aby zwracać wiele wartości od zaznaczonego elementu na liście, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. Wpisz następujące dane w komórkach, które są wskazane onSheet1:

    A1: rokB1: RegionC1: sprzedaż
    A2: 1996 R. B2: PółnocnaC2: 140
    A3: 1996 R.B3: PołudniowaC3: 210
    A4: 1997 R.B4: PółnocnaC4: 190
    A5: 1997 R.B5: PołudniowaC5: 195
  3. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  4. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  5. Dodaj formant etykiety Run.
  6. Dodawanie formantu pola listy Run.
  7. Kliknij prawym przyciskiem myszy pole listy, a następnie kliknij polecenieWłaściwości.
  8. Wpisz lub wybierz wartości, które są oznaczone następującymi danymi we właściwościach formantu pola listy , jak wymieniono w poniższej tabeli:
       Property       Value   ----------------------------   BoundColumn     1   ColumnCount     3   ColumnHeads     True   RowSource       Sheet1!A2:A5
  9. Kliknij dwukrotnie todisplay formantu pola listy okno kodu dla formantu pola listy .
  10. W oknie kodu wpisz następujący kod:
    Private Sub ListBox1_Change()    Dim SourceData As Range    Dim Val1 As String, Val2 As String, Val3 As String        Set SourceRange = Range(ListBox1.RowSource)        Val1 = ListBox1.Value    Val2 = SourceRange.Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value    Val3 = SourceRange.Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value        Label1.Caption = Val1 & " " & Val2 & " " & Val3End Sub
  11. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Po kliknięciu przycisku wpis w formancie pola listy etykieta zmienia się i wyświetlane wszystkie trzy elementy w tej pozycji.

Jak usunąć wszystkie elementy z formantu pola listy powiązanej z arkusza

Aby usunąć wszystkie elementy z formantu pola listy powiązanej z arkusza, usuń wartość przechowywaną we właściwości RowSource . Aby usunąć elementy z formantu pola listy powiązanej z arkusza, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W komórkach a1: a5 na arkuszu Arkusz1 wpisz wartości, które mają touse aby wypełnić formant typu pole listy .
  3. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  4. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  5. Dodawanie formantu pola listy Run.
  6. Kliknij prawym przyciskiem myszy formant pola listy , a następnie kliknij przycisk Właściwości.
  7. W polu właociwooci RowSource wpisz Arkusz1! A1: A5.
  8. Dodaj formant CommandButton Run.
  9. Kliknij dwukrotnie todisplay formant CommandButton okna kodu formant CommandButton .
  10. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Private Sub CommandButton1_Click()    ListBox1.RowSource = ""End Sub
  11. W menu Uruchamianie kliknij polecenie RunSub/UserForm.

    Formant typu pole listy, które dodałeś do UserForm jest wypełniona thevalues, który został wprowadzony na arkuszu Arkusz1.
  12. Kliknij CommandButton1.
Wszystkie elementy są usuwane z Pole_listy1.

Jak usunąć wszystkie elementy z formant pola listy, który nie jest powiązany z arkusza

Nie ma żadnego pojedynczego polecenia VBA, który usuwa wszystkie elementy z formantu pola listy , jeśli lista nie jest związana z arkuszem. Aby usunąć wszystkie elementy z formantu pola listy wypełnianego z tablicy języka Visual Basic, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu pola listy Run.
  5. W menu Wstaw kliknij poleceniemoduł Aby wstawić arkusz modułu.
  6. W oknie kodu wpisz następujący kod:
    Sub PopulateListBox()    Dim MyArray As Variant    Dim Ctr As Integer    MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")        For Ctr = LBound(MyArray) To UBound(MyArray)        UserForm1.ListBox1.AddItem MyArray(Ctr)    Next        UserForm1.ShowEnd Sub 
  7. Dodaj formant CommandButton Run.
  8. Kliknij dwukrotnie todisplay formant CommandButton okna kodu formant CommandButton .
  9. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Private Sub CommandButton1_Click()    For i = 1 To ListBox1.ListCount        ListBox1.RemoveItem 0    Next IEnd Sub
  10. W menu Narzędzia kliknij poleceniemakra, kliknij PopulateListBox, a następnie kliknij polecenieUruchom.

    Formant typu pole listy jest wypełniane, a następnie pojawi się UserForm.
  11. Kliknij CommandButton1.
Wszystkie elementy są usuwane z Pole_listy1.

Aby uzyskać dodatkowe informacje na temat formantu pola listy kliknij następujące numery artykułów w celu wyświetlenia tych artykułów z bazy wiedzy Microsoft Knowledge Base:
161598 OFF: Jak dodać dane do składnika ComboBox lub pola listy w programie Excel lub Word
211446 XL2000: Właściwość TextColumn wyświetla tylko pierwszą kolumnę
211896 XL2000: Jak symulować kombinację formant edycji listy dla formularze niemodalne
211899 XL2000: Ustawianie nagłówków kolumn w formancie pola listy problemów
213721 XL2000: Jak usunąć wszystkie elementy z pola listy lub ComboBox
213722 XL2000: Jak używać właściwości TextColumn
213723 XL2000: Jak zwracać wartości z listy wyboru, która zawiera wiele kolumn
213746 XL2000: Jak wypełnić formant typu pole listy z wielu zakresów
213748 XL2000: W jaki sposób wypełniać jednym polu listy oparte na innym polu listy
213752 XL2000: Za pomocą metody AddItem powoduje błąd, gdy RowSource jest powiązane z danymi
213756 XL2000: Przy użyciu metody RemoveItem z formantu pola listy lub ComboBox
213759 XL2000: Jak określić, które elementy są zaznaczone w polu listy

Formanty ComboBox

Formant ComboBox można użyć jako pole listy rozwijanej lub pole kombi, gdzie można wybrać wartość z listy lub wpisz nową wartość. Właściwość Styl Określa, jeśli formant ComboBox działa jako pole listy rozwijanej lub pole kombi.

Uwaga: Wszystkie przykłady w poprzedniej sekcji dla formantu pola listy mogą być również stosowane do sterowania ComboBox , z wyjątkiem przykład "Jak uzyskać zaznaczone elementy w wielu wybierz formant pola listy".

Jak dodać nowy element do listy, jeśli do arkusza nie jest związany formant ComboBox

Wpisz wartość, która nie jest już na liście w ComboBox formantu, można dodać do listy nową wartość. Aby dodać nową wartość, która została wpisana w ComboBox formantu, jeśli formant ComboBox nie jest związany z arkusza, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodaj formant typu pole kombi Run.
  5. W menu Wstaw kliknij poleceniemoduł Aby wstawić arkusz modułu.
  6. W oknie kodu wpisz następujący kod:
    Sub PopulateComboBox()     Dim MyArray As Variant     Dim Ctr As Integer     MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")         For Ctr = LBound(MyArray) To Ubound(MyArray)         UserForm1.ComboBox1.AddItem MyArray(Ctr)     Next         UserForm1.Show End Sub
  7. Dodaj formant CommandButton Run.
  8. Kliknij dwukrotnie todisplay formant CommandButton okna kodu formant CommandButton .
  9. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Private Sub CommandButton1_Click()     Dim listvar As Variant          listvar = ComboBox1.List         On Error Resume Next     ' If the item is not found in the list...     If IsError(WorksheetFunction.Match(ComboBox1.Value, listvar, 0)) Then         ' add the new value to the list.         ComboBox1.AddItem ComboBox1.Value     End If End Sub
  10. W menu Narzędzia kliknij poleceniemakra, kliknij PopulateListBox, a następnie kliknij polecenieUruchom.

    Formant ComboBox jest wypełniona, a następnie pojawia się UserForm.
  11. W formancie, ComboBox wpisz Mango (lub jakaś wartość thatis nie jest już na liście).
  12. Kliknij CommandButton1.
Nową wartość, która została wpisana teraz pojawia się na końcu listy.

Jak dodać nowy element do listy, jeśli arkusz jest powiązany formant ComboBox

Jeśli użytkownik wpisze wartość, która nie jest już na liście w ComboBox formantu, można dodać do listy nową wartość. Aby dodać nową wartość, która została wpisana w formancie ComboBox do listy, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W komórkach a1: a5 na arkuszu Arkusz1 wpisz wartości, które mają touse aby wypełnić formant ComboBox .
  3. Zaznacz komórki a1: a5 na arkuszu 1.
  4. W menu Wstaw wskaż polecenieNazwa, a następnie kliknij przycisk Definiuj.

    W polunazwy w skoroszycie wpisz ListRange , a następnie kliknij przycisk OK. Spowoduje to utworzenie zdefiniowaną nazwę ListRange. Zdefiniowana nazwa ListRange można użyć powiązać właściwości RowSourceComboBox formantu w arkuszu.
  5. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  6. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  7. Dodaj formant typu pole kombi Run.
  8. We WłaściwościComboBox1należy wpisać Arkusz1! ListRange jako właściwośćRowSource .
  9. Dodaj formant CommandButton Run.
  10. Kliknij dwukrotnie todisplay formant CommandButton okna kodu formant CommandButton .
  11. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Private Sub CommandButton1_Click()    Dim SourceData As Range    Dim found As Object        Set SourceData = Range("ListRange")    Set found = Nothing    ' Try to find the value on the worksheet.    Set found = SourceData.Find(ComboBox1.Value)        ' If the item is not found in the list...    If found Is Nothing Then        ' redefine ListRange.        SourceData.Resize(SourceData.Rows.Count + 1, 1).Name = "ListRange"        ' Add the new item to the end of the list on the worksheet.        SourceData.Offset(SourceData.Rows.Count, 0).Resize(1, 1).Value _         = ComboBox1.Value        ' Reset the list displayed in the ComboBox.        ComboBox1.RowSource = Range("listrange").Address(external:=True)    End IfEnd Sub
  12. W menu Uruchamianie kliknij polecenie RunSub/UserForm.

    UserForm pojawia się w arkuszu 1.
  13. W formancie, ComboBox wpisz wartość, która nie jest już na liście.
  14. Kliknij CommandButton1.
Nowy element, który został wpisany w formancie ComboBox jest dodawany do listy, a listy, który jest powiązany formant ComboBox jest rozszerzona w celu uwzględnienia A1:A6 komórki.

Jak wyświetlić listę formant typu pole kombi po wyświetleniu UserForm

Czasami może być przydatne wyświetlić listę formant typu pole kombi , gdy po raz pierwszy pojawi się UserForm. W poniższym przykładzie użyto zdarzeniu Activate UserForm. Aby wyświetlić listę formant typu pole kombi , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W komórkach a1: a5 na arkuszu Arkusz1 wpisz wartości, które mają touse aby wypełnić formant ComboBox .
  3. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  4. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  5. Dodaj formant typu pole kombi Run.
  6. We WłaściwościComboBox1należy wpisać Arkusz1! A1: A5 jako właściwośćRowSource .
  7. Kliknij dwukrotnie UserForm Aby wyświetlić Kodeksie miejskim dla UserForm.
  8. W oknie kodu wpisz następujący kod dla zdarzenia Kliknij formant CommandButton :
    Private Sub UserForm_Activate()           ComboBox1.DropDown       End Sub
  9. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
UserForm pojawia się w arkuszu 1, a zostanie wyświetlona lista do ComboBox1.

Sposób wyświetlania listy jeden formant ComboBox, po dokonaniu wyboru w innym formancie ComboBox

Aby automatycznie wyświetlać listę jeden formant ComboBox , w przypadku wyboru w innym formancie ComboBox , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W komórkach a1: a10 na arkuszu Arkusz1 wpisz wartości, które mają touse aby wypełnić formant ComboBox .
  3. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  4. W menu Wstaw kliknij poleceniemoduł.
  5. W oknie Kod modułu wpisz następujący kod:
    Sub DropDown_ComboBox()    UserForm1.ComboBox2.DropDownEnd Sub
  6. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  7. Dodaj formant typu pole kombi Run.
  8. We WłaściwościComboBox1należy wpisać Arkusz1! A1: A5 jako właściwośćRowSource .
  9. Kliknij dwukrotnie formant ComboBox formant ComboBox rozwiń w oknie Kod.
  10. W oknie Kod dla formantu składnik ComboBox wpisz następujący kod dla zdarzenia ComboBox Click :
    Private Sub ComboBox1_Click()    Application.OnTime Now, "DropDown_ComboBox"End Sub
  11. Dodać drugi formant ComboBox Run.
  12. We WłaściwościComboBox2należy wpisać Arkusz1! A6:A10 jako właściwośćRowSource .
  13. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Po kliknięciu elementu na liście ComboBox1 , automatycznie pojawia się na liście ComboBox2 .

Aby uzyskać dodatkowe informacje na temat ComboBox formantu kliknij następujące numery artykułów w celu wyświetlenia tych artykułów z bazy wiedzy Microsoft Knowledge Base:
161598 OFF: Jak dodać dane do składnika ComboBox lub pola listy w programie Excel lub Word
211446 XL2000: Właściwość TextColumn wyświetla tylko pierwszą kolumnę
211899 XL2000: Ustawianie nagłówków kolumn w formancie pola listy problemów
213717 XL2000: Błąd w czasie wykonywania korzystania z listy rozwijanej Metoda z ComboBox
213718 XL2000: Sposób wyświetlania listy ComboBox, gdy UserForm jest wyświetlane
213721 XL2000: Jak usunąć wszystkie elementy z pola listy lub ComboBox
213722 XL2000: Jak używać właściwości TextColumn
213752 XL2000: Za pomocą metody AddItem powoduje błąd, gdy jest RowSource dane powiązane
213756 XL2000: Przy użyciu metody RemoveItem z formantu pola listy lub ComboBox

Formant typu ramka

Za pomocą formantu ramki grupować logicznie powiązanych ze sobą elementów w UserForm. Formanty ramki często są używane do grupowania OptionButton formantów.

Jak przeglądać wszystkie formanty na formant typu ramka

Aby użyć dla każdego... Następny pętli dostęp do wszystkich formantów w formancie ramki , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu ramki Run.
  5. Dodawanie formantu OptionButton do formantu ramki .

    Powtórz ten krok, aby dodać dwa formanty OptionButton więcej w formancie ramki .
  6. Kliknij dwukrotnie formant typu Ramka okna Kodeksie miejskim dla formantu ramki .
  7. W oknie kodu wpisz następujący kod dla zdarzenia Kliknij ramkę :
    Private Sub Frame1_Click()    Dim Ctrl As Control        For Each Ctrl In Frame1.Controls        Ctrl.Enabled = Not Ctrl.Enabled    NextEnd Sub
  8. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
  9. W UserForm kliknij formant ramki.
Kliknij przycisk formantu ramki , po raz pierwszy wszystkie formanty w formancie ramki są niedostępne. Gdy ponownie klikniesz formant typu Ramka formanty są ponownie dostępne.

Kontrola OptionButton

Grupy formantów OptionButton umożliwia dokonanie wyboru jednego spośród grupy opcji. Można użyć jednej z następujących technik do grupy OptionButton formantów:
  • Formant typu Ramka
  • Właściwość GroupName
Uwaga: Wartość na wartość Tak i prawdziwej wartości wskazują, że OptionButton jest zaznaczone. Wartość Off , wartość No i wartość False wskazują, że OptionButton nie jest zaznaczone.

Jak ustalić kontroli OptionButton, który był zaznaczony podczas kontroli OptionButton są na formant typu ramka

Gdy grupujesz formantów PrzyciskOpcji za pomocą formantu ramki można określić formant PrzyciskOpcji , który jest zaznaczony w pętli wszystkich formantów w formancie ramki i sprawdzając wartość właściwości każdego formantu. Aby określić formant PrzyciskOpcji , który jest zaznaczony, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu ramki Run.
  5. Dodawanie formantu OptionButton do formantu ramki .

    Powtórz ten krok, aby dodać dwa formanty OptionButton więcej w formancie ramki .
  6. Dodaj formant CommandButton na UserForm poza kontrolą ramki .
  7. Kliknij dwukrotnie UserForm todisplay formant CommandButton w oknie Kod.
  8. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Private Sub CommandButton1_Click()     For Each x In Frame1.Controls         If x.Value = True Then             MsgBox x.Caption         End If     Next End Sub
  9. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
  10. W UserFormkliknij jeden formant PrzyciskOpcji , a następnie kliknijCommandButton1.
Pojawi się komunikat zawierający podpis aktualnie zaznaczony formant OptionButton .

Jak określić formant PrzyciskOpcji, który jest zaznaczony

Celem w poniższym przykładzie jest ustalenie kontroli OptionButton wybranej w grupa1. Aby utworzyć UserForm, który składa się z dwóch grup OptionButton formanty, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu ramki Run.
  5. Dodawanie formantu OptionButton w formancie ramki .

    Powtórz ten krok, aby dodać dwa formanty OptionButton więcej w formancie ramki .
  6. Dla każdego formantu PrzyciskOpcji wpisz Grupa1 w polu właściwości GroupName .
  7. Powtórz kroki 4 i 5, aby utworzyć drugi formant ramki , która zawiera trzy formanty OptionButton .
  8. Dla każdego formantu OptionButton w drugi formant ramki należy wpisać Grupa2 w polu właściwości GroupName .
  9. Dodaj formant CommandButton na UserForm poza formantów ramkę .
  10. Kliknij dwukrotnie UserForm todisplay formant CommandButton w oknie Kod.
  11. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Private Sub CommandButton1_Click()     Dim x As Control          ' Loop through ALL the controls on the UserForm.     For Each x In Me.Controls         ' Check to see if "Option" is in the Name of each control.         If InStr(x.Name, "Option") Then             ' Check Group name.             If x.GroupName = "Group1" Then                 ' Check the status of the OptionButton.                 If x.Value = True Then                     MsgBox x.Caption                     Exit For                 End If             End If         End If     Next End Sub
  12. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
  13. W UserForm kliknij jeden formant OptionButton w grupa1, a następnie kliknijCommandButton1.
Pojawi się komunikat zawierający podpis formantu OptionButton , który jest aktualnie zaznaczony.

Aby uzyskać dodatkowe informacje na temat OptionButton formantów kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
213724 XL2000: Problemy z używaniem Właociwooć TripleState dla przycisku opcji

Formant pola wyboru

Formant typu pole wyboru umożliwia oznaczenie wartości PRAWDA lub FAŁSZ. Wartość Truewskazuje, pojawiający się ze znacznikiem wyboru wewnątrz formantu pola wyboru . Składnik CheckBox pojawia się bez znacznika wyboru wskazuje wartość False. Jeżeli wartość właściwość TripleState jest True, formant pola wyboru również może mieć wartości Null. Formant pola wyboru , która ma wartość Null wydaje się być niedostępny.

Uwaga: Wartość na , wartość Tak i prawdziwej wartości wskazują, że jest zaznaczone pole wyboru. Wartość Off , wartość No i wartość False wskazuje, że pole wyboru jest wyczyszczone.

Jak sprawdzić wartość formantu pola wyboru

Aby użyć właściwości Value zwraca bieżącą wartość formantu pola wyboru , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodać formant pola wyboru Run.
  5. Na liście właściwości pole wyboru 1wybierz PRAWDA jako właściwość TripleState .
  6. Kliknij dwukrotnie pole wyboru kontrola todisplay okno kodu dla formantu pola wyboru .
  7. W oknie kodu wpisz następujący kod dla zdarzenia Change pole wyboru 1 :
    Private Sub CheckBox1_Change()    Select Case CheckBox1.Value        Case True            CheckBox1.Caption = "True"        Case False            CheckBox1.Caption = "False"        Case Else            CheckBox1.Caption = "Null"    End SelectEnd Sub
  8. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Po kliknięciu formantu pola wyboru podpis odzwierciedlać bieżącą wartość zmiany formantu pola wyboru .

Formant typu przycisk przełącznika

Formant typu przycisk przełącznika ma taki sam wygląd jak formant CommandButton dopiero po kliknięciu przycisku. Po kliknięciu formantu ToggleButton wydaje się wciśnięty lub przesuwana. Właściwości wartości formantu ToggleButton jest True , gdy przycisk jest zaznaczony i False , gdy przycisk nie jest zaznaczony. Jeżeli wartość właściwość TripleState jest True, formant typu przycisk przełącznika również może mieć wartości Null. Formant typu przycisk przełącznika , który ma wartość Null wydaje się być niedostępny.

Uwaga: Wartość na wartość Tak i prawdziwej wartości wskazują, że formant typu przycisk przełącznika jest zaznaczone. Wartość Off , wartość No i wartość False wskazuje, czy formant typu przycisk przełącznika nie jest zaznaczone.

Jak uzyskać wartość formantu ToggleButton

Aby uzyskać wartość formantu ToggleButton , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodaj formant typu przycisk przełącznika na UserForm.
  5. Dodaj formant etykiety Run.
  6. Kliknij dwukrotnie toopen kontroli ToggleButton okno kodu dla kontroli ToggleButton .
  7. W oknie kodu wpisz następujący kod dla zdarzenia ToggleButton1Click :
    Private Sub ToggleButton1_Click()    If ToggleButton1.Value = True Then        ' Set UserForm background to Red.        Me.BackColor = RGB(255, 0, 0)    Else        ' Set UserForm background to Blue.        Me.BackColor = RGB(0, 0, 255)    End IfEnd Sub
  8. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Po kliknięciu formantu ToggleButton kolor tła zmienia UserForm.

Jak stworzyć grupę wzajemnie się wykluczają formantów ToggleButton

W tym przykładzie użyto zdarzenia MouseUp do ustawienia zmiennej i wywołuje procedurę ExclusiveToggleButtons . Procedura ExclusiveToggleButtons Określa formant typu przycisk przełącznika , który jest zaznaczony, a następnie anuluje innych. Aby utworzyć grupę formantów ToggleButton wzajemnie się wykluczają, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij poleceniemoduł.
  4. W oknie Kod modułu wpisz następujący kod:
    ' Variable that holds the name of the ToggleButton that was clicked.Public clicked As StringSub ExclusiveToggleButtons()   Dim toggle As Control   ' Loop through all the ToggleButtons on Frame1.   For Each toggle In UserForm1.Frame1.Controls       ' If Name of ToggleButton matches name of ToggleButton       ' that was clicked...       If toggle.Name = clicked Then          '...select the button.          toggle.Value = True       Else          '...otherwise clear the selection of the button.          toggle.Value = False       End If    NextEnd Sub
  5. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  6. Dodawanie formantu ramki Run.
  7. Dodaj formant typu przycisk przełącznika w formancie ramki .

    Powtórz ten krok, aby dodać dwa formanty ToggleButton więcej w formancie ramki .
  8. Kliknij dwukrotnie formant typu Ramka do okna kodu displaythe UserForm.
  9. W oknie Kod modułu wpisz następujący codefor zdarzenia ToggleButton MouseUp :
    Private Sub ToggleButton1_MouseUp(ByVal Button As Integer, _              ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)       clicked = ToggleButton1.Name       Application.OnTime Now, "ExclusiveToggleButtons"    End Sub    Private Sub ToggleButton2_MouseUp(ByVal Button As Integer, _              ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)        clicked = ToggleButton2.Name        Application.OnTime Now, "ExclusiveToggleButtons"    End Sub    Private Sub ToggleButton3_MouseUp(ByVal Button As Integer, _              ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)        clicked = ToggleButton3.Name        Application.OnTime Now, "ExclusiveToggleButtons"    End Sub
  10. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Po kliknięciu formantu ToggleButton poprzednio wybrany formant typu przycisk przełącznika jest anulowane.

Formant TabStrip

Umożliwia wyświetlanie różnych zestawów informacji dla zestawu formantów formantu TabStrip .

Jak kontrolować programowo formantu TabStrip

Aby zmienić właściwości BackColor w formancie obrazu , oparty na karcie jest zaznaczone, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij polecenie Edytor Visual Basic.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu TabStrip Run.
  5. Dodawanie formantu obrazu , który obejmuje podstawy kontroli TabStrip , ale nie obejmuje kart.
  6. W okienku właściwości dla obraz1 wpiszIDEALNA H000000FF IDEALNA Właściwość BackColor .
  7. Kliknij dwukrotnie formant TabStrip Rozwiń okno kodu dla formantu TabStrip .
  8. W oknie kodu wpisz następujący kod dla zdarzenia TabStrip1 zmiany :
    Private Sub TabStrip1_Change()    Dim i As Integer    i = TabStrip1.SelectedItem.Index    Select Case i        Case 0            ' If Tab1 is selected, change the color of Image control to Red.            Image1.BackColor = RGB(255, 0, 0)        Case 1            ' If Tab2 is selected, change the color of Image control to Green.            Image1.BackColor = RGB(0, 255, 0)    End SelectEnd Sub
  9. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Kolor obrazu zmiany kontroli w zależności od strony w formancie TabStrip , który jest aktywny.

Aby uzyskać dodatkowe informacje na temat formantu TabStrip kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
213254 XL2000: Jak używać formantu TabStrip na UserForm

Kontrola wielostronicowych

Formant wielostronicowy służy do pracy z większą ilością informacji, które można sortować na kilka kategorii. Formant wielostronicowy składa się z jednej lub więcej stron obiektów każda zawiera inny zestaw formantów. Aktywna strona można ustawić programowo przez ustawienie właściwości wartości formantu szablonie wielostronicowym .

Jak kontrolować wielostronicowych kontroli programowo

Aby dodać formant wielostronicowy i nią sterować za pomocą makra, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu wielostronicowy Run.
  5. Dodaj formant etykiety do Strona1 kontroli szablonie wielostronicowym .
  6. Dodawanie formantu pola tekstowego do Strona1 kontroli szablonie wielostronicowym .
  7. W obszarze sterowania szablonie wielostronicowym kliknij Strona2, a następnie powtórz kroki 5and 6, aby dodać formant formant typu Etykieta i formant pola tekstowego .
  8. Kliknij dwukrotnie formant wielostronicowy Rozwiń okno kodu dla formantu szablonie wielostronicowym .
  9. W oknie kodu wpisz następujący kod dla zdarzenia MultiPage1 zmiany :
    Private Sub MultiPage1_Change()    Select Case MultiPage1.Value        ' If activating Page1...        Case 0            Label1.Caption = TextBox2.Text            TextBox1.Text = ""        ' If activating Page2...        Case 1            Label2.Caption = TextBox1.Text            TextBox2.Text = ""    End SelectEnd Sub
  10. W oknie kodu wpisz następujący kod dla zdarzenia UserForm Initialize :
    Private Sub UserForm_Initialize()    ' Force Page1 to be active when UserForm is displayed.    MultiPage1.Value = 0    Label1.Caption = ""End Sub
  11. W menu Uruchamianie kliknij polecenie RunSub/UserForm.

    W formancie pola tekstowego Strona1 wpisz Test. Kiedy youclick karcie Strona2Poletekstowe2 jest wyczyszczone, a podpis Label2 zmienia się do wpisu, który wprowadzono w Poletekstowe1 na Strona1 ("Test").

Jak utworzyć interfejsu kreatora przy użyciu wielostronicowych formantu

Gdy zadanie wymaga kilku kroków przyrostowe, interfejs kreatora mogą być bardzo skuteczne. Formant wielostronicowy utworzyć interfejs kreatora zamiast przy użyciu wielu językowi. W tym przykładzie manipuluje wielostronicowy formantu, który ma trzy strony. Procedura, która jest dołączona do zainicjowania zdarzenia UserForm wyłącza Strona2 i strona3 i wymusza Strona1 formantu wielostronicowy będzie aktywny.

Uwaga: Podczas indeksowania stron formantu wielostronicowy za pomocą kolekcji stron , pierwszy w kolekcji jest strona zero. Procedura ta również ustawi podpis formantów formant CommandButton i wyłącza <> przycisk.

Uwaga: Procedura, która jest przypisany do zdarzenia kliknijCommandButton1 steruje funkcjami <> przycisk. Procedura, która jest przypisany do zdarzenia kliknijCommandButton2 steruje funkcjami Dalej > przycisk. Aby utworzyć interfejs kreatora przy użyciu formantu szablonie wielostronicowym , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu wielostronicowy Run.
  5. Kliknij prawym przyciskiem myszy kartę Strona1 , a następnie kliknijNową stronę , aby dodać strona3 do formantu w szablonie wielostronicowym .
  6. Dodaj formant CommandButton na UserForm, który nie znajduje się na formancie szablonie wielostronicowym .

    Powtórz ten krok, aby dodać drugi formant CommandButton na UserForm.
  7. Kliknij dwukrotnie UserForm otworzyć CodeWindow — do UserForm.
  8. W oknie kodu wpisz następujący kod dla zdarzenia UserForm Initialize :
    Private Sub UserForm_Initialize()    With MultiPage1        ' The next 2 lines disable Page2 & Page3.        .Pages(1).Enabled = False        .Pages(2).Enabled = False        ' Make Page1 the active page.        .Value = 0    End With        ' Set the caption on the CommandButtons.    CommandButton1.Caption = "<Back"    CommandButton1.Enabled = False    CommandButton2.Caption = "Next>"End Sub' Procedure for the "<Back" buttonPrivate Sub CommandButton1_Click()    Select Case MultiPage1.Value        Case 1                                 ' If Page2 is active...            With MultiPage1                .Pages(0).Enabled = True       ' Enable Page1.                .Value = MultiPage1.Value - 1  ' Move back 1 page.                .Pages(1).Enabled = False      ' Disable Page2.            End With            CommandButton1.Enabled = False     ' Disable Back button.                    Case 2                                 ' If Page3 is active...            With MultiPage1                .Pages(1).Enabled = True       ' Enable Page2.                .Value = MultiPage1.Value - 1  ' Move back 1 page.                .Pages(2).Enabled = False      ' Disable Page3.   CommandButton2.Caption = "Next>"            End With    End SelectEnd Sub' Procedure for the "Next>" buttonPrivate Sub CommandButton2_Click()    Select Case MultiPage1.Value        Case 0                                  ' If Page1 is active...            With MultiPage1                .Value = MultiPage1.Value + 1   ' Move forward 1 page.                .Pages(1).Enabled = True        ' Enable Page2.                .Pages(0).Enabled = False       ' Disable Page1.            End With            CommandButton1.Enabled = True       ' Enable Back button.                    Case 1                                  ' If Page2 is active...            With MultiPage1                .Value = MultiPage1.Value + 1   ' Move forward 1 page.                .Pages(2).Enabled = True        ' Enable Page3.                .Pages(1).Enabled = False       ' Disable Page2.            End With            CommandButton2.Caption = "Finish"   ' Change Next button to Finish.                    Case 2                                  ' If Page3 is active...            MsgBox "Finished!"                  ' User is Finished.            Unload Me                           ' Unload the UserForm.    End SelectEnd Sub
  9. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Po kliknięciu przycisku Dalej >, Strona2 jest aktywna i <> przycisk stanie się dostępny. Po kliknięciu przycisku Dalej > po raz drugi, strona3 jest aktywna i podpis CommandButton2 zmienia się na "Zakończ".

Formant typu pasek przewijania

Formant typu pasek przewijania można użyć, gdy chcesz zmienić wartość, która jest wyświetlana w innym formancie, takie jak formant etykiety .

Jak zmienić formant etykiety, który opiera się na wartości formantu paska przewijania

Aby zmienić właściwości Caption formant etykiety bieżące ustawienie właściwości wartości formantu paska przewijania , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodaj formant typu pasek przewijania Run.
  5. Dodaj formant etykiety Run.
  6. Kliknij dwukrotnie formant typu pasek przewijania do okna kodu rozwiń pasek przewijania formantu.
  7. W oknie kodu wpisz następujący kod dla zdarzenia ScrollBar1 zmiany :
    Private Sub ScrollBar1_Change()    Label1.Caption = ScrollBar1.ValueEnd Sub
  8. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Podczas przewijania przy użyciu formantu paska przewijaniaLabel1 jest aktualizowana z bieżącą wartość formantu paska przewijania .

Formant SpinButton

Formant SpinButton , takich jak formant pasek przewijania jest często używany, aby zwiększyć lub zmniejszyć wartość innego formantu, takie jak formant etykiety . Właściwość SmallChange Określa, ile wartość formantu SpinButton zmienia się, gdy zostanie kliknięty.

Jak dodać formant SpinButton, który zwiększa lub zmniejsza liczbę, datę, który jest przechowywany w formancie pola tekstowego

Aby dodać formant SpinButton , który zwiększa lub zmniejsza liczbę, datę, który jest przechowywany w formancie pola tekstowego , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu SpinButton Run.
  5. Dodawanie formantu pola tekstowego Run.
  6. Kliknij dwukrotnie SpinButton kontroli toopen w oknie kodu dla formantu SpinButton .
  7. W oknie kodu wpisz następujący kod dla zdarzenia SpinButton1 SpinUp :
    Private Sub SpinButton1_SpinUp()    TextBox1.Text = DateValue(TextBox1.Text) + 1End Sub
  8. W oknie kodu wpisz następujący kod dla zdarzenia SpinButton1 SpinDown :
    Private Sub SpinButton1_SpinDown()    TextBox1.Text = DateValue(TextBox1.Text) - 1End Sub
  9. W oknie kodu wpisz następujący kod dla zdarzenia UserForm Initialize :
    Private Sub UserForm_Initialize()    TextBox1.Text = DateEnd Sub
  10. W menu Uruchamianie kliknij polecenie RunSub/UserForm.
Po wyświetleniu UserForm w Poletekstowe1pojawi się bieżącą datę. Po kliknięciu formantu SpinButton , data jest przyrostowo lub zmniejszany o jeden dzień.

W tym przykładzie Jeśli zmienisz właściwości SmallChangeSpinButton1, można nie wpływają na liczbę dni, przez które wpis w Poletekstowe1 zostanie zmieniony przez kliknięcie przycisku SpinButton1. Dni jest określana wyłącznie przez procedurę, dołączonego do zdarzeń SpinUp i zdarzenia SpinDownSpinButton1.

Aby uzyskać dodatkowe informacje na temat formantu SpinButton kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
213224 XL2000: przykład programu Visual Basic za pomocą przycisku pokrętła z datą

Edytowanie odwołania kontroli

Edytowanie odwołania kontroli imituje zachowanie pola odniesienia, które są wbudowane w program Excel. Właściwość Value służy do uzyskania bieżący adres komórki są przechowywane w formancie Edycja odnośnika .

Jak wypełnić zakres komórek na podstawie zakresu, wybrane za pomocą formantu Edycja odnośnika

Aby użyć formantu Edycja odnośnika do wypełnienia komórek, wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu Edycja odnośnika Run.
  5. Dodaj formant CommandButton Run.
  6. Kliknij dwukrotnie toopen formant CommandButton okna kodu formant CommandButton .
  7. W oknie kodu wpisz następujący kod dla zdarzenia CommandButton1 kliknij przycisk :
    Private Sub CommandButton1_Click()    Dim MyRange As String    MyRange = RefEdit1.Value    Range(MyRange).Value = "test"    Unload MeEnd Sub
  8. W menu Uruchamianie kliknij polecenie RunSub/UserForm.

    UserFormappears.
  9. Kliknij przycisk w formancie Edycja odnośnika .

    Należy zauważyć, że zwija UserForm.
  10. Zaznacz zakres komórek, takich jak a1: a5, a następnie kliknij przycisk Rozwiń UserForm formantu Edycja odnośnika .
  11. Kliknij CommandButton1.
Zamyka UserForm i komórki, które wybrano teraz zawierać słowo "test".

Aby uzyskać dodatkowe informacje na temat formantu Edycja odnośnika kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
213776 XL2000: Jak używać formantu Edycja odnośnika z UserForm

Sterowanie obrazem

Aby wyowietlić obraz na UserForm jest celem formant obrazu . Aby przypisać obraz na formant obrazu w czasie wykonywania, należy użyć funkcji LoadPicture .

Jak załadować obrazu w formancie obrazu

Aby wstawić formant obrazu , który monituje o wybranie obrazu do załadowania po kliknięciu formantu obrazu , wykonaj następujące kroki:
  1. Uruchom program Excel, a następnie otwórz nowy pusty skoroszyt.
  2. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  3. W menu Wstaw kliknij polecenieUserForm wstawić UserForm w skoroszycie.
  4. Dodawanie formantu obrazu na UserForm.
  5. Kliknij dwukrotnie formant obrazu , aby otworzyć okno Kodeksie miejskim formantu obrazu .
  6. W oknie kodu wpisz następujący kod dla zdarzenia Obraz1 kliknij przycisk :
    Private Sub Image1_Click()    Dim fname As String        ' Display the Open dialog box.    fname = Application.GetOpenFilename(filefilter:= _            "Bitmap Files(*.bmp),*.bmp", Title:="Select Image To Open")        ' If you did not click Cancel...    If fname <> "False" Then        ' Load the bitmap into the Image control.        Image1.Picture = LoadPicture(fname)        ' Refresh the UserForm.        Me.Repaint    End IfEnd Sub
  7. W menu Uruchamianie kliknij polecenie RunSub/UserForm.

    Pojawi się UserForm.
  8. Kliknij formant obrazu .

    Kiedy kliknij formant obrazu , Zaznacz obraz do otwarcia boxappears okno dialogowe, a następnie wybraniu pliku mapy bitowej, aby wstawić do thecontrol.
Aby uzyskać dodatkowe informacje na temat formantu obrazu kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
213732 XL2000: Przy użyciu funkcji LoadPicture z formantu obrazu

Dodatkowe informacje

Przeglądarka obiektów

Pełną listę właściwości i metod, za pomocą odpowiedniego polecenia są dostępne w Przeglądarce obiektów. Aby znaleźć te informacje w programie Excel, wykonaj następujące kroki:
  1. W menu Narzędzia wskaż poleceniemakro, a następnie kliknij przycisk Visual BasicEditor.
  2. W menu Widok kliknij polecenie ObjectBrowser.
  3. W polu Tekstowym Wyszukaj wpisz nazwę formantu, który ma i kliknij przycisk Wyszukaj.
Aby uzyskać więcej informacji o sposobach używania przeglądarki obiektów w Edytorze Visual Basic kliknij polecenie Microsoft Visual Basic – Pomoc w menu Pomoc , wpisz Przeglądarka obiektów w Asystencie pakietu Office lub w Kreatorze odpowiedzi a następnie kliknij przycisk Wyszukaj , aby wyświetlić temat.
Aby uzyskać dodatkowe informacje dotyczące sposobu instalowania pomocy programu Microsoft Excel na komputerze kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
231946 OFF2000: Jak dodać/usunąć pojedynczy program pakietu Office lub składnik

Ostrzeżenie: ten artykuł przetłumaczono automatycznie

Właściwości

Identyfikator artykułu: 829070 — ostatni przegląd: 09/23/2015 07:48:00 — zmiana: 4.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007, Excel 2016, Microsoft Excel 2013

  • kbprogramming kbfunctions kbhowtomaster kbhowto kbmt KB829070 KbMtpl
Opinia