VBA - ComboBox un saistītā koda pievienošana

Šis kods ir salīdzinoši vienkāršs un neprasa papildu paskaidrojumus.

Ielīmējiet šos divus apakšpunktus vispārējā modulī (piemēram, 1. modulī).

 Iespēja Skaidrs Sub CréerCombo (Lier As Range, izvēles Sh kā darblapas, izvēles iespējas kā diapazons) Dim Obj kā objekts Dim kods Kā virkne Dim Ix kā integritāte, Num kā virkne Ja Sh nekas nav, tad iestatiet Sh = ActiveSheet End Ja Sh.Izvēlieties Ix = ActiveSheet.OLEObjects.Count + 1 Num = "0" & Ix: Num = Tiesības (Num, 2) 'Ielejiet 99 boutonus Ja Emplacement ir nekas, tad' emplacement par défaut Set Emplacement = ActiveCell beigas Ja 'crée le bouton With Emplacement Iestatīt Obj = ActiveSheet.OLEObjects.Add (ClassType: = "Forms.Combobox.1", _ Link: = False, DisplayAsIcon: = False, Left: =. Left, Top: =. Top, Platums: =. ColumnWidth * 5.65, Height: =. RowHeight) Obj.Name = "ComboB_" & Num End ar 'propriétés du combo ar ActiveSheet.OLEObjects (Ix) .Placement = xlMoveAndSize .PrintObject = True .ListFillRange = Lier.Address beigas ar' Le texte de la makro kods = vbCrLf & "Privātais sub ComboB_" & Num & "_Change ()" & vbCrLf kods = kods & "MsgBox" "Vous avez sélectionner la ligne" "& ComboB_" & Num & ".Text, " "ComboB_" & Num & "" "" & vbCrLf kods = kods & "Beigt sub" "Makroekonomikas modulis" ar ActiveWorkbook.VBProject.VBComponents (ActiveSheet.Name) .CodeModule .insertlines .CountOfLines + 1, kods Beigas ar beigu Sub

Lejupielādēt Excel 2007 piemēru:

Lejupielādēt projektu: