VBA - Hinzufügen der ComboBox und des zugehörigen Codes

Dieser Code ist relativ einfach und bedarf keiner weiteren Erläuterung.

Fügen Sie diese beiden Unterelemente in ein allgemeines Modul ein (z. B. Modul1).

 Option Explicit Sub CréerCombo (Lier As Range, Optional Sh As Worksheet, Optional Emplacement As Range) Dim Obj As Object Dim-Code Als String Dim Ix As Integer, Num As String Wenn Sh nichts ist, dann setze Sh = ActiveSheet End If Sh.Select Ix = ActiveSheet.OLEObjects.Count + 1 Num = "0" & Ix: Num = Right (Num, 2) Set Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.Combobox.1", _ Link: = False, DisplayAsIcon: = False, Left: =. Left, Top: =. Top, Width: =. ColumnWidth * 5.65, Height: =. RowHeight) Obj.Name = "ComboB_" & Num End With 'Eigenschaften der Kombination With ActiveSheet.OLEObjects (Ix) .Placement = xlMoveAndSize .PrintObject = True .ListFillRange = Lier.Address End With' Le texte de la Makro code = vbCrLf & "Private Sub ComboB_" & Num & "_Change ()" & vbCrLf code = code & "MsgBox" "Sie haben die Wahl zwischen" "& ComboB_" & Num & ".Text, " "ComboB_" & Num & "" "" & vbCrLf code = code & "End Sub" 'Modulende mit ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name) .CodeModule .insertlines .CountOfLines + 1, code End With End Sub

Laden Sie ein Beispiel für Excel 2007 herunter:

Projekt herunterladen: