VBA - ComboBox és a kapcsolódó kód hozzáadása

Ez a kód viszonylag egyszerű, és nem igényel további magyarázatot.

Illessze be ezeket a két alegységet egy általános modulba (pl. 1. modul).

 Opció Kifejezett Sub CréerCombo (Lier As Range, opcionális Sh mint munkalap, opcionális telepítés mint tartomány) Dim Obj mint objektum Dim kód mint karakterlánc Dim Ix mint integer, Num mint karakterlánc Ha nincs semmi, akkor állítsa Sh = ActiveSheet End Ha Sh. = ActiveSheet.OLEObjects.Count + 1 Num = "0" & ​​Ix: Num = Jobb (Num, 2) 'Öltöztesse meg a 99 botot, ha nincs elhelyezés, akkor' emplacement par défaut Set Emplacement = ActiveCell vége Ha 'Crée le bouton With Emplacement Beállítás Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.Combobox.1", _ Link: = Hamis, DisplayAsIcon: = Hamis, Bal: =. Bal, Felső: =. Top, Szélesség: =. ColumnWidth * 5.65, Height: = RowHeight) Obj.Name = "ComboB_" & Num End 'propriétés du combo Az ActiveSheet.OLEObjects (Ix) .Placement = xlMoveAndSize .PrintObject = True .ListFillRange = Lier.Address vége' Le texte de la makrókód = vbCrLf & "Private Sub ComboB_" & Num & "_Change ()" és vbCrLf kód = kód & "MsgBox" "Vous avez sélectionner la ligne" "& ComboB_ & Num &" .Text, "" ComboB_ " & Num & "" "" & vbCrLf kód = kód & "Végső rész" "Azonnali makró" és az ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name) .CodeModule .insertlines .CountOfLines + 1, kód vége Alatti 

Töltse le az Excel 2007 példáját:

Projekt letöltése:

  • 1. kiszolgáló: Combo és code.xlsm hozzáadása
  • Privát szerver: Combo és code.xlsm hozzáadása

Előző Cikk Következő Cikk

Top Tippek