Fare clic sul pulsante della scheda " sviluppatori" " Visual Basic ", per accedere all'ambiente di programmazione VBA , quindi fare clic su voce " form " del menu "Inserisci" per creare un nuovo modulo in cui inserire i controlli . Se la scheda " Sviluppo " non compare tra le scelte di menu in Excel , potrebbe essere necessario attivare la visualizzazione in Opzioni di Excel .
2
Fare clic sul controllo " Button " sulla cassetta degli attrezzi , quindi trascinare sul form per creare un pulsante . Fare clic sul controllo " OptionButton " dalla cassetta degli attrezzi , quindi trascinare sul form per creare un pulsante di opzione . Tasto destro del mouse su questo pulsante e fare clic su "Proprietà" per visualizzare un elenco di attributi per il controllo .
3
Fare clic nella riga " Enabled " della finestra "Proprietà" , quindi digitare " False "per indicare che il pulsante di opzione è in grado di elaborare l'input . Si noti che il pulsante di comando , che si è creato nel passo 2 , è abilitato di default .
4
Fare clic sul controllo "Frame" sulla cassetta degli attrezzi , quindi trascinare sul form. Fare clic sul pulsante di controllo apportate nel passaggio 1 , quindi premere il tasto "Control" e "X" contemporaneamente per tagliare questo controllo negli Appunti .
5
Fare clic sul controllo "Frame" , quindi premere il tasto " Control" e "V " per incollare simultaneamente il pulsante all'interno del telaio . Ripetere il taglia e incolla con il tasto opzione per incollarlo nel telaio pure. Inserendo entrambi i controlli nel telaio , hai fatto un gruppo che contiene entrambi i controlli . Ora bisogna scrivere codice che controlla una proprietà di ciascun controllo .
6
doppio clic sul form per visualizzare la finestra di programmazione , quindi incollare il seguente programma nella finestra. Questo programma consente di scorrere ogni controllo nel telaio , la lettura della proprietà "Enabled" impostato al punto 3 , e la stampa del valore di tale proprietà .
Private Sub UserForm_Click ( ) per
Dim ct come controllo
Dim s As String
Ogni ct In Frame1.Controls
ct.Enabled = True Then
s = ct.Name & " è abilitata . "
Else
s = ct.Name &" è disabilitata . "
End If
MsgBox s
Avanti
End Sub
7
Clicca comando " Esegui" del menu " Esegui" per visualizzare la form utente, quindi fare clic su un punto qualsiasi della forma che non dispone di un controllo. Il vostro programma verrà eseguito , mostra un messaggio sulla proprietà "Enabled" descritta al punto 3.
software © www.354353.com