VBA - Добавяне на ComboBox и съответния код

Този код е сравнително прост и не изисква допълнително обяснение.

Поставете тези две части в общ модул (напр. Модул1).

 Опция Изрично Sub CréerCombo (Lier като обхват, незадължително Sh като работен лист, незадължително разширение като обхват) Dim Obj като обект Дим код Като низ Dim Ix като цяло число, Num като низ Ако Sh е нищо, тогава Sh = ActiveSheet End Ако Sh.Select Ix = ActiveSheet.OLEObjects.Count + 1 Num = "0" & Ix: Num = Право (Num, 2) 'Изсипете jusque 99 boutons Ако Emplacement е нищо по-нататък' emplacement par défaut Set Emplacement = ActiveCell End Ако 'crée le bouton With Emplacement Задайте Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.Combobox.1", _ Link: = False, DisplayAsIcon: = False, Left: =. Left, Top: =. Top, Width: =. ColumnWidth * 5.65, Височина: =. RowHeight) Obj.Name = "ComboB_" & Num End С "propriétés du combo" с ActiveSheet.OLEOобекти (Ix) .Placement = xlMoveAndSize .PrintObject = True. макрокод = vbCrLf & "Частни подкомпоненти" & Num & "_Промяна ()" & vbCrLf код = код & "MsgBox" "Vous avez sélectionner la ligne" "& ComboB_" & Num & ".Text, " "ComboB_" & Num & "" & vbCrLf code = code & "End Sub" "Добавете макрос към модула с ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name) .CodeModule .insertlines .CountOfLines + 1, code End With End подводница

Изтеглете пример за Excel 2007:

Изтеглете проекта: