VBA - ComboBoxi ja sellega seotud koodi lisamine

See kood on suhteliselt lihtne ja ei vaja täiendavaid selgitusi.

Kleepige need kaks allmooduli üldmoodulisse (nt moodul 1).

 Võimalus Selgesõnaline Sub CréerCombo (Lier as Range, valikuline Sh töölehtena, valikuline paigutus vahemikuna) Dim Obj kui objekt Dim kood kui string Dim Ix kui täisarv, Num kui string, kui ei ole midagi, siis seadke Sh = ActiveSheet End Kui Sh.Select Ix = ActiveSheet.OLEObjects.Count + 1 Num = "0" & Ix: Num = Right (Num, 2) 'Valage 99 boutonit, kui paigaldamine pole midagi muud, siis' emplacement par défaut Set Emplacement = ActiveCell End Kui 'Crée le bouton With Emplacement' Määra Obj = ActiveSheet.OLEObjects.Add (lisage ClassType: = "Forms.Combobox.1", _ link: = vale, DisplayAsIcon: = vale, vasak: = vasakul, üleval: =. Top, laius: =. ColumnWidth * 5.65, Kõrgus: = RowHeight) Obj.Name = "ComboB_" & Num End koos "propriétés du combo" ActiveSheet.OLEObjects (Ix) .Placement = xlMoveAndSize .PrintObject = True .ListFillRange = Lier.Address End 'Le texte de la makrokood = vbCrLf & "Private Sub ComboB_" & Num & "_Change ()" & vbCrLf kood = kood & "MsgBox" "Vous avez sélectionner la ligne" "& ComboB_" & Num & ".Text, " "ComboB_" & Num & "" "" "& vbCrLf kood = kood &" Lõpeta alam "" Aktiivne tööriist ". ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name) .CodeModule .insertlines .CountOfLines + 1, kood Lõpeta Sub

Allalaadimine Exceli 2007 jaoks:

Projekti allalaadimine: