Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na tlačidlo " Developer " kartu je " Visual Basic " pre vstup do programovacieho prostredia VBA , kliknite na " Vložiť " menu v " UserForm " položku , ktorú chcete vytvoriť nový formulár , na ktorom chcete umiestniť ovládacie prvky . Keď je karta " Vývojár " sa nezobrazuje medzi vaše ponuky možností v programe Excel , možno budete musieť obrátiť na jeho displeji v možnostiach Exceli .
2
Kliknite na tlačidlo " " kontrolu na krabicu s náradím , potom pretiahnite na UserForm vytvoriť tlačidlo . Kliknite na " OptionButton " ovládanie z krabice nástrojov , pretiahnite na UserForm vytvoriť prepínač . Kliknite pravým tlačidlom myši na toto tlačidlo a kliknite na tlačidlo " Properties " sa zobrazí zoznam atribútov pre kontrolu .
3
Kliknite na " Enabled " riadok v okne " Vlastnosti " , zadajte " False " čo znamená , že prepínač je schopný spracovať vstup . Všimnite si , že príkazové tlačidlo , ktorý ste vytvorili v kroku 2 , je v predvolenom nastavení povolená .
4
Kliknite na " Frame " kontrolu na krabicu s náradím , a potom pretiahnite na UserForm . Kliknite na tlačidlo ovládacieho prvku ste vykonali v kroku 1 , a stlačte tlačidlo " Control " a " X " súčasne znížiť túto kontrolu do schránky .
5
Kliknite na " Frame " ovládanie , potom stlačte tlačidlo " Control " a " V " súčasne vložiť tlačidlo vnútri rámu . Opakujte vyberiete a vložíte pomocou tlačidla možnosť vložiť ho do rámu rovnako . Tým , že oba ovládacie prvky do rámu , ktoré ste vykonali jednu skupinu , ktorá obsahuje ako prvky . Teraz budete písať kód , ktorý kontroluje vlastnosti každého ovládacieho prvku .
6
Dvakrát kliknite na UserForm zobrazíte programovací okno , vložte nasledujúci program do okna . Tento program prechádza každý prvok v ráme , čítanie na " Povolené " vlastnosť , ktorú ste nastavili v kroku 3 , a tlač hodnotu tohto majetku .
Private Sub UserForm_Click ( )
Dim ct As ovládacie
Dim s As String
každý CT Frame1.Controls
Ak ct.Enabled = True Then
s = ct.Name & " je povolené . "
Else
s = ct.Name & " je zakázaná . "
End If
MsgBox s
budúci
End Sub
7
Kliknite na príkaz v ponuke " Run " v " Spustiť " pre zobrazenie vášho UserForm , kliknite kamkoľvek na formulári , ktorý nemá kontrolu . Váš program bude spustený , zobrazuje správu o " Enabled " majetok popísaný v kroku 3.
Copyright © počítačové znalosti Všetky práva vyhradené