VBA - Προσθήκη του ComboBox και του σχετικού κώδικα

Αυτός ο κώδικας είναι σχετικά απλός και δεν απαιτεί περαιτέρω εξηγήσεις.

Επικολλήστε τα δύο αυτά τμήματα σε μια γενική ενότητα (π.χ. Ενότητα1).

 Επιλογή Oblic ως αντικείμ. Κώδικα Dim As String Dim Ix ως ακεραιότητα, Num ως συμβολοσειρά Εάν Sh δεν υπάρχει τίποτα τότε Set Sh = ActiveSheet End Αν Sh.Select Ix (Lier As Range, προαιρετικό Sh ως φύλλο εργασίας, Optional Emplacement As Range) = ActiveSheet.OLEObjects.Count + 1 Num = "0" & Ix: Num = Δεξιά (Num, 2) 'Pour jusque 99 boutons Αν το Emplacement δεν υπάρχει τίποτα τότε' τοποθετήστε το απόθεμα Set Emplacement = ActiveCell End If 'crée le bouton With Emplacement Ορίστε Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.Combobox.1", _Link: = False, DisplayAsIcon: = False, Left: = Αριστερά, Top: = Top, Width: = ColumnWidth * 5.65, Ύψος: = .RowHeight) Όνομα_τομέα = "ComboB_" & Num End με 'ιδιοκτήτες du combo Με ActiveSheet.OLEObjects (Ix) .Placement = xlMoveAndSize .PrintObject = True .ListFillRange = Lier.Address End With' Le texte de la Ο κώδικας και ο κωδικός "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, κωδικός End With End Υπο

Κάντε λήψη ενός παραδείγματος για το Excel 2007:

Λήψη έργου: