Excel - Ustvarjanje spustnega seznama iz dinamičnega seznama v VBA

Težava

Poskušal sem narediti makro, ki lahko ustvari spustni seznam z dinamičnega seznama v stolpcu A. Do sedaj sem dobil naslednjo kodo:

 Sub Test () Range ("A1", območje ("A65536"). End (xlUp)) Name = "MyList" Cells (1, 3) .Izberite s Selection.Validation .Delete. : = xlValidAlertStop, Operator: = _ xlBetween, Formula1: = "= & MyList" .IgnoreBlank = False .InCellDropdown = True.InputTitle = "" .ErrorTitle = "". .ShowError = True End s končno podm 

Vendar klicanje storitve MyList ne deluje.

Rešitev

Poskusite to:

• Pojdite na preverjanje podatkov, izberite seznam in vnesite = MyList
• Zdaj z desno miškino tipko kliknite zavihek listov in izberite prikazno kodo ter prilepite naslednjo kodo:

 Zasebni poddelki_premenitev (spreminjanje cilja kot območje) Če je presek (tarča, stolpci ("A: A")) nič, potem zapustite podmaz lRow kot Integer lRow = Razpon ("A" & Rows.Count). Razpon vrstic ("A1: A" & lRow) .Name = "MyList" End Sub 

• Ta koda bo spremenila obseg seznama MyList, kadar koli v stolpcu A.

Hvala TrowaD-ju za ta nasvet.