Заполните поле со списком с множественным обратным поиском - PullRequest
Новая
       47

Заполните поле со списком с множественным обратным поиском

0 голосов
/ 30 января 2020

У меня есть 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 enter image description here

...