Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
spustení programu Excel 2003 a potom kliknite na ponuku Nástroje . Vyberte makro a potom Editor jazyka Visual Basic . Vložiť nový modul kliknutím na ponuku Vložiť a výberom modul . Zadajte nasledujúci príkaz na vytvorenie nového postupu :
Private Sub createDropDownList ( )
On Error GoTo Err_createDropDownList :
2
Zadajte nasledujúce dynamicky vytvoriť nový ComboBox riadenie v aktívnom hárku programu Excel :
S ActiveSheet.OLEObjects.Add ( ClassType : = " Forms.ComboBox.1 " , Link : = False , _
DisplayAsIcon : = False , vľavo : = 70 , Top : = 60 , _
Šírka : = 100 , Výška : .. = 25 )
s objektom
AddItem " List Item 1 "
. AddItem " List Item 2. "
. AddItem " List Item 3. "
End With
End With
kódu bude tiež pridať . tri položky do ovládacieho prvku ComboBox
3
Zadajte nasledujúce ukončite postup a spracovanie chýb :
Exit_createDropDownList :
Exit Sub
Err_createDropDownList :
MsgBox Err.Description
Resume Exit_createDropDownList :
End Sub
4
Stlačte " F5 " na spustenie procedúry . Uvidíte nový ovládací prvok ComboBox vytvorený v liste .
Copyright © počítačové znalosti Všetky práva vyhradené