VBA - ComboBoxin ja siihen liittyvän koodin lisääminen

Tämä koodi on suhteellisen yksinkertainen eikä vaadi enää selitystä.

Liitä nämä kaksi osaa yleiseen moduuliin (esim. Moduuli 1).

 Vaihtoehto Selkeä Sub CréerCombo (Lier As Range, valinnainen Sh kuten työarkki, valinnainen sijoittelu alueena) Dim Obj objektina Dim code Merkkijono Dim Ix kokonaislukuna, numerona merkkijonoina Jos Sh ei ole mitään, aseta Sh = ActiveSheet End Jos Sh.Valitse Ix = ActiveSheet.OLEObjects.Count + 1 Num = "0" & Ix: Num = Oikea (Num, 2) 'Kaada 99 boutia Jos Emplacement ei ole mitään sitten' emplacement par défaut Set Emplacement = ActiveCell End Jos 'crée le bouton With Emplacement Aseta Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.Combobox.1", _ Link: = False, DisplayAsIcon: = False, Left: =. Left, Top: =. Top, Width: =. ColumnWidth * 5.65, Korkeus: =. RowHeight) Obj.Name = "ComboB_" & Num End "propriétés du combo kanssa ActiveSheet.OLEObjects (Ix) .Placement = xlMoveAndSize .PrintObject = True .ListFillRange = Lier. makrokoodi = vbCrLf & "Private Sub ComboB_" & Num & "_Change ()" & vbCrLf-koodi = koodi & "MsgBox" "Vous avez sélectionner la ligne" "& ComboB_" & Num & ".Text, " "ComboB_" & Num & "" "" & vbCrLf-koodi = koodi & "Lopeta alivaihtoehto" "Makro en fin de finu" -sovelluksella ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name) .CodeModule .insertlines .CountOfLines + 1, koodi Lopeta loppuun Sub

Lataa esimerkki Excel 2007: stä:

Lataa projekti: