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