VBA - Dodawanie ComboBox i powiązanego kodu

Ten kod jest stosunkowo prosty i nie wymaga dalszych wyjaśnień.

Wklej te dwa elementy podrzędne do modułu ogólnego (np. Moduł1).

 Opcja Wyraźny Sub CréerCombo (Lier As Range, Opcjonalny Sh As Worksheet, Opcjonalne zatrudnienie jako Range) Dim Obj jako obiekt Dim code Jako String Dim Ix jako Integer, Num As String Jeśli Sh nie ma nic wówczas Sh = ActiveSheet End If Sh.Select Ix = ActiveSheet.OLEObjects.Count + 1 Num = "0" i Ix: Num = Right (Num, 2) 'Wlej jusque 99 boutons Jeśli Employment Is Nothing to' emplacement par défaut Set Emplacement = ActiveCell End If 'crée le bouton With Emplacement Set Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.Combobox.1", _ Link: = False, DisplayAsIcon: = False, Left: =. Left, Top: =. Top, Width: =. ColumnWidth * 5.65, Wysokość: =. RowHeight) Obj.Name = "ComboB_" & Num End Z 'propriétés du combo Z ActiveSheet.OLEObjects (Ix) .Placement = xlMoveAndSize .PrintObject = True .ListFillRange = Lier.Address End with' Le texte de la kod makra = vbCrLf & "Private Sub ComboB_" & Num & "_Change ()" & kod vbCrLf = kod i "MsgBox" "Vous avez sélection wybór la" "& ComboB_" & Num & ".Text, " "ComboB_" & Num & "" "" & vbCrLf code = kod & "End Sub" 'Ajoute la macro en fin de module feuille With ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name) .CodeModule .insertlines .CountOfLines + 1, code End With End Pod

Pobierz przykład programu Excel 2007:

Pobierz projekt: