lancio Excel 2003 e fare clic sul menu Strumenti . Selezionare Macro e quindi Visual Basic Editor. Inserire un nuovo modulo facendo clic sul menu Inserisci e selezionare Module . Digitare quanto segue per creare una nuova procedura :
createDropDownList Private Sub ( ) per
On Error GoTo Err_createDropDownList :
2
digitare quanto segue per creare dinamicamente un nuovo ComboBox controllo nel foglio di lavoro di Excel attivo :
ActiveSheet.OLEObjects.Add ( ClassType : = " Forms.ComboBox.1 " , link: = False , _
DisplayAsIcon : = False , Sinistra : = 70 , Top : = 60 , _
Larghezza: = 100 , Altezza: . ». elemento lista 1 " = 25 ) per
oggetto
AddItem
. AddItem "Item List 2"
. AddItem " Voce Elenco 3 "
End With
End With
Questo codice sarà anche aggiungere tre elementi al controllo ComboBox
3
digitare quanto segue per uscire dalla procedura e gli errori . Pseudonimo:
Exit_createDropDownList :
Exit Sub
Err_createDropDownList :
MsgBox Err.Description Resume
Exit_createDropDownList :
End Sub
4
Premere " F5 " per eseguire il procedimento . Vedrete un nuovo controllo ComboBox creato nel foglio di lavoro .
software © www.354353.com