У меня есть 2 столбца со списком, в одном мне нужно выбрать страну и в поле со списком рядом с ним мне нужно заполнить города из страны, выбранной в поле со списком один на основе таблицы со страной в столбец A & город в столбце B (см. рисунок).
Я создал столбцы полей со списком для городов, используя приведенный ниже код, но я не могу понять, как заполнить поле со списком для стран. Любая помощь высоко ценится!
Sub AddComboBoxTradeName()
'PURPOSE: Create a form control combo box and position/size it
With ActiveSheet
Dim theRng As Range
Set theRng = Range("b2:b30")
'theRng.Select
For Each cll In theRng
L = cll.Left: T = cll.Top: W = cll.Width: H = cll.Height
Set cmb = .OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, Left:=L, Top:=T, Width:=W, Height:=H)
cmb.Name = "cmbo" & cll.Address(0, 0)
cmb.ListFillRange = "City"
cmb.LinkedCell = cll.Address(0, 0)
cmb.Object.Font.Size = 11
cmb.Object.ShowDropButtonWhen = fmShowDropButtonWhenFocus
cmb.Object.SpecialEffect = fmSpecialEffectFlat
cmb.Object.BorderStyle = fmBorderStyleSingle
'cmb.Name = "cmbo" & cll.Address(0, 0) 'optional, to name the object according to the top left cell
Next cll
End With
End Sub
страна в столбце A и город в столбце B