Zdravím všechny,
mám udělaný v Excelu vlastní panel s rozbalovacím seznamem, kde jsou údaje z listu data, které vkládám do oblasti buněk. V makru je vkládám pomocí
.AddItem List2.Cells(2, 1)
.AddItem List2.Cells(3, 1)
.AddItem List2.Cells(4, 1) atd.
Údajů je dost a chci se zeptat, jestli to nejde jinak, než to v makru zapisovat po řádku.
vkládání dat do rozbalovacího seznamu v panelu
- Jan Pašek
- Tvůrce článků
-
Level 6.5
- Příspěvky: 3701
- Registrován: leden 06
- Bydliště: Plzeň
- Pohlaví:
- Stav:
Offline
POkud by se jednalo o stejný list je možné použít funkci kontrola dat jejíž doučástí je také rozbalovací rolna a upozornění nebo zákaz pokud se zadá hodnota mimo seznam. V listu se pojmenuje určitá oblast a hodnoty s této oblasti se pak po nadefinování objevují v rolně buňky. Je to takové dost kostrbaté a jsem Excel zelenáč ale jak to tu píšete tak to vypadá že kuře učí slepici snášet vejce takže si stím určitě poradíte.
Jendův rozcestník (Odkazy, které jsem měl dříve v podpisu najdete v mém rozcestníku.) Jendovy novinky - Co je pro Vás odemne nového Pokud potřebujete mermomocí vědět na čem páchám PC kriminalitu sestavy jsou v profilu.
No já to řeším třeba takhle:
Kód: Vybrat vše
'Konstanta EndRow obsahuje hodnotu při níž se zastaví načítání
'položek ComBobboxu. Zde předpokládám prázdnou buňku
Const EndRow As String = ""
Dim MyRow As Single 'číslo řádku
ComboBox1.Clear 'Vymazat položky ComBoboxu
MyRow = 2 'Začínám na řádku 2
'Načtení položek ComBoboxu. Načítá se sloupec A
Do While Sheets(1).Range("A" & MyRow) <> EndRow
ComboBox1.AddItem Sheets(1).Range("A" & MyRow)
MyRow = MyRow + 1
Loop
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 4
- 1041
-
od mmmartin
Zobrazit poslední příspěvek
16 říj 2023 16:41
-
- 3
- 1074
-
od VOM
Zobrazit poslední příspěvek
05 led 2024 10:46
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti