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
-
- 1
- 2154
-
od petr22
Zobrazit poslední příspěvek
02 říj 2024 18:25
-
- 2
- 2175
-
od mmmartin
Zobrazit poslední příspěvek
29 led 2025 13:58
-
- 1
- 3973
-
od Mety
Zobrazit poslední příspěvek
15 úno 2025 09:59
-
-
Panely otevřených programů na hlavním panelu Příloha(y)
od Prorock » 20 říj 2024 15:00 » v Windows 11, 10, 8... - 28
- 7883
-
od Prorock
Zobrazit poslední příspěvek
02 lis 2024 13:41
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti