Unselectable items in a Combo Box in an Excel VBA -
Unselectable items in a Combo Box in an Excel VBA -
i have combo box (in user form in excel) info source set of menu items headers (a named range in worksheet). right now, workaround erase these headers (e.g. main course, desserts, beverages, etc.) still know if it's possible add together these unselectable headers end user has distinctions between different menu items. help much appreciated :)
e.g.
main courses (**unselectable**) roast beef mashed potato (selectable) spicy spareribs (selectable) beef stroganoff (selectable) roast chicken (selectable) desserts (**unselectable**) mango float (selectable) brownies (selectable) lemon squares (selectable)
no afaik, can't that. below 2 alternatives. take pick :)
alternative 1
deselect moment user selects relevant header. example
private sub userform_initialize() combobox1.style = fmstyledropdownlist combobox1.additem "--- main courses ---" combobox1.additem "roast beef mashed potato" combobox1.additem "spicy spareribs" combobox1.additem "--- desserts ---" combobox1.additem "mango float" combobox1.additem "brownies" end sub private sub combobox1_click() select case combobox1.value case "--- main courses ---", "--- desserts ---" combobox1.value = "" end select end sub
alternative 2
use 2 comboboxes. 1 header , other different menu items. populate sec combobox based on selection of first combobox. example
private sub userform_initialize() combobox1.style = fmstyledropdownlist combobox2.style = fmstyledropdownlist combobox1.additem "--- main courses ---" combobox1.additem "--- desserts ---" end sub private sub combobox1_click() combobox2.clear select case combobox1.value case "--- main courses ---" combobox2.additem "roast beef mashed potato" combobox2.additem "spicy spareribs" case "--- desserts ---" combobox2.additem "mango float" combobox2.additem "brownies" end select end sub
also on safer side, utilize combobox1_change
event.
excel vba excel-vba combobox
Comments
Post a Comment