Note: The other languages of the website are Google-translated. Back to English
English English

výstraha

JUser :: _load: Nelze načíst uživatele s ID: 8858

Jak vytvořit rozevírací seznam s více zaškrtávacími políčky v aplikaci Excel?

Mnoho uživatelů aplikace Excel má tendenci vytvářet rozevírací seznam s více zaškrtávacími políčky, aby vybrali více položek ze seznamu najednou. Ve skutečnosti nemůžete vytvořit seznam s více zaškrtávacími políčky pomocí Ověření dat. V tomto kurzu vám ukážeme dvě metody vytvoření rozevíracího seznamu s více zaškrtávacími políčky v aplikaci Excel.

Pomocí seznamu vytvořte rozevírací seznam s více zaškrtávacími políčky
Odpověď: Vytvořte seznam se zdrojovými daty
B: Pojmenujte buňku, ve které najdete vybrané položky
C: Vložte tvar, který pomůže výstupu vybraných položek
Snadno vytvářejte rozevírací seznam se zaškrtávacími políčky pomocí úžasného nástroje
Další výukové programy pro rozevírací seznam ...


Pomocí seznamu vytvořte rozevírací seznam s více zaškrtávacími políčky

Jak je ukázáno níže, v aktuálním listu budou zdrojovými daty seznamu všechny názvy v rozsahu A2: A11. Kliknutím na tlačítko v buňce C4 můžete vypsat vybrané položky a všechny vybrané položky v seznamu se zobrazí v buňce E4. K dosažení tohoto cíle postupujte následovně.

A. Vytvořte seznam se zdrojovými daty

1. cvaknutí Vývojka > Vložit > Seznam (ovládací prvek Active X). Viz snímek obrazovky:

2. Nakreslete seznam do aktuálního listu, klikněte na něj pravým tlačítkem a vyberte Nemovitosti z nabídky pravého tlačítka myši.

3. V Nemovitosti dialogové okno, musíte nakonfigurovat následujícím způsobem.

  • 3.1 V ListFillRange do pole zadejte rozsah zdroje, který se zobrazí v seznamu (zde zadám rozsah A2: A11);
  • 3.2 V ListStyle zaškrtněte políčko 1 - Volba stylu fmList;
  • 3.3 V Více násobný výběr zaškrtněte políčko 1 - fmMultiSelectMulti;
  • 3.4 Zavřete Nemovitosti dialogové okno. Viz snímek obrazovky:

B: Pojmenujte buňku, ve které najdete vybrané položky

Pokud potřebujete odeslat všechny vybrané položky do určené buňky, například E4, postupujte následovně.

1. Vyberte buňku E4, zadejte ListBoxOutput do Název Box a stiskněte tlačítko vstoupit klíč.

C. Vložte tvar, který pomůže výstupu vybraných položek

1. cvaknutí Vložit > Tvary > Obdélník. Viz obrázek:

2. Nakreslete do listu obdélník (zde nakreslím obdélník do buňky C4). Poté klikněte pravým tlačítkem na obdélník a vyberte Přiřadit makro z nabídky pravého tlačítka myši.

3. V Přiřadit makro dialogové okno, klepněte na tlačítko Nový .

4. V otvoru Microsoft Visual Basic pro aplikace v okně, nahraďte prosím původní kód v Modul okno s níže uvedeným kódem VBA.

Kód VBA: Vytvořte seznam s více zaškrtávacími políčky

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Poznámka: V kódu Obdélník 1 je název tvaru; ListBox1 je název seznamu; Zvolte Volby a Možnosti vyzvednutí jsou zobrazené texty tvaru; a ListBoxOutput je název rozsahu výstupní buňky. Můžete je změnit podle svých potřeb.

5. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

6. Kliknutím na tlačítko obdélníku rozbalíte nebo rozbalíte seznam. Když se seznam rozšiřuje, zkontrolujte položky v seznamu a poté znovu klikněte na obdélník, aby se všechny vybrané položky zobrazily do buňky E4. Viz níže demo:

7. A potom uložte sešit jako Sešit Excel MacroEnable pro opětovné použití kódu v budoucnu.


Vytvořte rozevírací seznam se zaškrtávacími políčky s úžasným nástrojem

Výše uvedená metoda je příliš vícestupňová, než aby ji bylo možné snadno zpracovat. Zde velmi doporučujeme Rozevírací seznam se zaškrtávacími políčky užitečnost Kutools pro vynikat které vám pomohou snadno vytvořit rozevírací seznam se zaškrtávacími políčky v zadaném rozsahu, aktuálním listu, aktuálním sešitu nebo všech otevřených sešitech podle vašich potřeb. Podívejte se na níže uvedenou ukázku:
Stáhněte si a vyzkoušejte hned! (30denní trasa zdarma)

Kromě výše uvedeného dema poskytujeme také podrobného průvodce, který ukazuje, jak použít tuto funkci k dosažení tohoto úkolu. Postupujte prosím následovně.

1. Otevřete list, který jste nastavili v rozevíracím seznamu pro ověření dat, klikněte na Kutools > Rozbalovací seznam > Rozevírací seznam se zaškrtávacími políčky > Nastavení. Viz obrázek:

2. V Rozevírací seznam s nastavením zaškrtávacích políček V dialogovém okně proveďte následující konfiguraci.

  • 2.1) V Naneste na V části zadejte rozsah použití, kde vytvoříte zaškrtávací políčka pro položky v rozevíracím seznamu. Můžete zadat a určitý rozsah, aktuální list, aktuální sešit or všechny otevřené sešity na základě vašich potřeb.
  • 2.2) V režim sekce, vyberte styl, kterým chcete vypsat vybrané položky;
  • Tady je Upravit jako příklad, pokud zvolíte toto, hodnota buňky se změní na základě vybraných položek.
  • 2.3) V oddělovač do pole zadejte oddělovač, který použijete k oddělení více položek;
  • 2.4) V Směr textu sekce vyberte směr textu podle svých potřeb;
  • 2.5) Klikněte na OK .

3. V posledním kroku klikněte na Kutools > Rozbalovací seznam > Rozevírací seznam se zaškrtávacími políčky > Povolit rozevírací seznam zaškrtávacích políček aktivovat tuto funkci.

Od nynějška, když kliknete na buňky s rozevíracím seznamem ve specifikovaném rozsahu, zobrazí se seznamové pole. Vyberte položky zaškrtnutím políček pro výstup do buňky, jak je ukázáno níže (ukázka je režim úprav) ).

Další podrobnosti o této funkci prosím navštivte zde.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Související články:

Automatické doplňování při psaní v rozevíracím seznamu aplikace Excel
Pokud máte rozevírací seznam pro ověření dat s velkými hodnotami, musíte v seznamu posunout dolů, abyste našli ten správný, nebo přímo zadat celé slovo do seznamu. Pokud existuje metoda umožňující automatické dokončení při psaní prvního písmene do rozevíracího seznamu, vše bude jednodušší. Tento výukový program poskytuje způsob řešení problému.

Vytvořte rozevírací seznam z jiného sešitu v aplikaci Excel
Je docela snadné vytvořit rozevírací seznam pro ověření dat mezi listy v sešitu. Ale pokud se seznamová data, která potřebujete pro ověření dat, nacházejí v jiném sešitu, co byste udělali? V tomto kurzu se naučíte, jak vytvořit seznam drop fown z jiného sešitu v aplikaci Excel podrobně.

Vytvořte prohledávatelný rozevírací seznam v aplikaci Excel
Pro rozevírací seznam s mnoha hodnotami není hledání správné práce snadná práce. Dříve jsme zavedli způsob automatického vyplňování rozevíracího seznamu při zadávání prvního písmene do rozevíracího seznamu. Kromě funkce automatického doplňování můžete také v rozevíracím seznamu vyhledávat, abyste zvýšili efektivitu práce při hledání správných hodnot v rozevíracím seznamu. Chcete-li v rozevíracím seznamu vyhledávat, vyzkoušejte metodu v tomto kurzu.

Automatické vyplnění dalších buněk při výběru hodnot v rozevíracím seznamu aplikace Excel
Řekněme, že jste vytvořili rozevírací seznam na základě hodnot v oblasti buněk B8: B14. Když vyberete libovolnou hodnotu z rozevíracího seznamu, chcete, aby se ve vybrané buňce automaticky naplnily odpovídající hodnoty v rozsahu buněk C8: C14. Při řešení problému vám metody v tomto tutoriálu udělají laskavost.

Další výukové programy pro rozevírací seznam ...


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (68)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
To je fantastické. Ale bude lepší, když bude možné umístit vícenásobný výběr tam, kde je aktivní kurzor. Ne nutně to, co specifikuje kód.
Tento komentář byl moderátorem webu minimalizován
To je přesně to, co jsem hledal, lze kód upravit tak, aby se vybraná data zobrazovala v samostatných buňkách ve sloupci? takže místo: pondělí, úterý, středa, zobrazit jako. pondělí úterý středa
Tento komentář byl moderátorem webu minimalizován
To je přesně to, co jsem hledal, existuje úprava kódu, která vloží další výběr ze seznamu na další řádek. např. jeden dva tři Místo : jeden, dva, tři
Tento komentář byl moderátorem webu minimalizován
můžete prosím vysvětlit, jak jste přidali ListBoxOutput na buňku E4
Tento komentář byl moderátorem webu minimalizován
Ahoj Jak lze zkopírovat tento seznam pro více buněk. Jen zkopírovat a vložit nefunguje. Mohl byste prosím vysvětlit například v každé buňce (E5,E6,E7,E8,...), jak mohu umístit toto výběrové pole?
Tento komentář byl moderátorem webu minimalizován
můžete prosím vysvětlit, jak mohu snadno zkopírovat tento seznam pro 100 řádků? (samostatné seznamy pro každý ze 100 řádků)
Tento komentář byl moderátorem webu minimalizován
Po dokončení výstupu a opětovném stisknutí tlačítka nelze předchozí vybrané položky v seznamu změnit. Jak vyřešit?
Tento komentář byl moderátorem webu minimalizován
Děkuji! Je to skvělé a funguje to!
Tento komentář byl moderátorem webu minimalizován
Jsem v tom nováček, ale může mi někdo říct, jak vytvořit seznam s vícenásobným výběrem, který se otevře, např. když vyberu jméno. Chci, aby se seznam vešel do jednoho.
PŘÍKLAD: Mám seznam jmen s kontaktními údaji atd. Chci vytvořit duplicitní seznam pro každé jméno v mém seznamu. Chtěl bych, aby se automaticky otevřel při výběru jména a sbalil zpět do buňky, když přejdu na další řádek informací. Prosím poraďte. Díky předem.
Tento komentář byl moderátorem webu minimalizován
Milý Randy,
Tento problém bohužel nelze vyřešit.
Tento komentář byl moderátorem webu minimalizován
Funguje to perfektně podle pokynů, ale pokud chráním list, dává to chybu. Nějaké řešení?
Tento komentář byl moderátorem webu minimalizován
Pracujte perfektně podle pokynů. Ale jak to mohu použít na chráněném listu. Aktuálně Pokud to použiji po ochraně listu, zobrazí se mi chyba „Chyba běhu '-2147024809 (80070057)': Zadaná hodnota je mimo rozsah“
Tento komentář byl moderátorem webu minimalizován
Vážený Amit Sood,
Před ochranou listu naformátujte výstupní buňku jako odemčenou a poté použijte níže uvedený kód VBA. Děkuji za váš komentář.

Sub Rectangle2_Click()
Dim xSelShp As Shape, xSelLst As Variant, I As Integer
On Error Resume Next
Nastavit xSelShp = ActiveSheet.Shapes(Application.Caller)
Nastavit xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Možnosti vyzvednutí"
Jiný
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Vybrat možnosti"
Pro I = xLstBox.ListCount - 1 až 0 Krok -1
If xLstBox.Selected(I) = True Then
xSelLst = xLstBox.List(I) & ";" & xSelLst
End If
Příště já
If xSelLst <> "" Then
Rozsah("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
Jiný
Range("ListBoxOutput") = ""
End If
End If
End Sub
Tento komentář byl moderátorem webu minimalizován
"Vytvořil jsem soubor pomocí pole seznamu ActiveX, jak je vysvětleno, tam jsem zadal některá data a přidal jsem také některé vlastnosti. Zkontroloval jsem některá data pomocí zaškrtávacího pole v seznamu a uložil a opustil soubor. Ale zatímco po opětovném otevření souboru se nezobrazují žádná zkontrolovaná data..může mi někdo dát návrh, jak tyto aktualizace uložit."
Může mi někdo prosím pomoci.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Vložte níže uvedený kód VBA do okna kódu ThisWorkbook.
V kódu je List6 výchozí název listu, který obsahuje pole se seznamem, ve kterém chcete zachovat výběr, jak je znázorněno na obrázku níže. A ListBox1 je název seznamu. Změňte je prosím podle potřeby.

Private Sub Workbook_BeforeSave (ByVal SaveAsUI jako Boolean, Zrušit jako Boolean)
Zavolejte SaveSelections
End Sub

Soukromá podřízená sešit_Open ()
Zavolejte RestoreSelections
End Sub

Private Sub SaveSelects()

Dim arr() As Variant, i As Long, j As Long

S List6.OLEObjects("ListBox1").Object
Pokud .ListIndex > 0 Pak
Pro i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
ReDim Preserve arr(1 až j)
arr(j) = i
End If
další
Names.Add Name:="Selections", RefersTo:=arr, Visible:=False
End If
Konec s

End Sub

Private Sub RestoreSelections()

Dim arr As Variant, i As Integer

arr = [Výběry]

S List6.OLEObjects("ListBox1").Object
Pro i = 1 až UBound(arr)
.Selected(arr(i)) = True
další
Konec s

End Sub
Tento komentář byl moderátorem webu minimalizován
Děkuji vám za odpověď, pane, ale v případě mého souboru to nefunguje, můžete prosím poslat své e-mailové ID, abych vám mohl poslat svůj soubor poštou.
Díky předem
Tento komentář byl moderátorem webu minimalizován
Milý manjusha isacu,
Pošlete prosím svůj soubor na zxm@addin99.com. Doufám, že pomůžu.
Tento komentář byl moderátorem webu minimalizován
Kromě toho musíte sešit uložit jako sešit Excel s podporou maker a aktivovat kód pokaždé, když změníte výběr v seznamu.
Tento komentář byl moderátorem webu minimalizován
Chci automaticky aktualizovat názvy v různých sloupcích. je to možné, pokud je to možné, laskavě mi sdělte kód.
Tento komentář byl moderátorem webu minimalizován
ÚŽASNĚ funguje, ale poté, co zavřu excel a znovu jej otevřu, zaškrtnutí políčka je pryč, takže když kliknu na tlačítko, veškerý seznam zmizí, jakékoli řešení pro to
prosím pomozte mi někdo
Předem mnohokrát děkuji
Tento komentář byl moderátorem webu minimalizován
milý anděli,
Publikovali jsme článek "Jak uložit nebo zachovat výběry seznamů ActiveX v Excelu?" který zavádí metodu ukládání výběrů seznamů po zavření a opětovném otevření sešitu.
Další informace získáte kliknutím na tento odkaz: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Tento komentář byl moderátorem webu minimalizován
úžasné jeho fungování, ale po uložení souboru a jeho opětovném otevření mám jeden problém, všechna kontrola ze seznamu zaškrtávacích políček je pryč
můžete mi pomoci s tímhle děkuji moc
Tento komentář byl moderátorem webu minimalizován
také změní velikost seznamu a tvar vždy po uložení a opětovném otevření souboru, pokud má někdo řešení tohoto problému, prosím pomozte mi

děkuji moc
Tento komentář byl moderátorem webu minimalizován
drahý marku,
Publikovali jsme článek "Jak uložit nebo zachovat výběry seznamů ActiveX v Excelu?" který zavádí metodu ukládání výběrů seznamů po zavření a opětovném otevření sešitu.
Další informace získáte kliknutím na tento odkaz: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Tento komentář byl moderátorem webu minimalizován
Ahoj,

Zajímalo by mě, zda existuje způsob, jak nasměrovat možnosti vyzvednutí na více než jednu buňku (nejen E4), nebo provést výběr jako rozevírací kontrolní seznam, abych mohl vybrat více možností z kontrolního seznamu, ale dělat to opakovaně a nezávisle na další výběry, které jsem provedl. Například, jak bych použil stejný seznam možností vyzvednutí pro zadání jiného výběru položek do E5, E6, E7 atd. ze stejného seznamu vyzvednutí.

Děkuji
Tento komentář byl moderátorem webu minimalizován
Ahoj LizKats,
Zkuste prosím níže uvedený kód. Doufám, že pomůžu. Děkuji.

Sub Rectangle2_Click()

'Aktualizováno Extendoffice 20200529

Dim xSelShp As Shape, xSelLst As Variant, i As Integer

Nastavit xSelShp = ActiveSheet.Shapes(Application.Caller)

Nastavit xLstBox = ActiveSheet.ListBox1

Dim xRg jako rozsah

Dim xCount, xFNum, xR, xC jako celé číslo

Dim xStr jako řetězec

If xLstBox.Visible = False Then

xLstBox.Visible = True

xSelShp.TextFrame2.TextRange.Characters.Text = "Možnosti vyzvednutí"

Jiný

xLstBox.Visible = False

xSelShp.TextFrame2.TextRange.Characters.Text = "Vybrat možnosti"

Nastavit xRg = Range("ListBoxOutput")

xCount = xLstBox.ListCount - 1

xStr = ""

Pro i = xLstBox.ListCount - 1 až 0 Krok -1

If xLstBox.Selected(i) = True Then

xStr = xLstBox.List(i) & ";" & xStr

End If

Příště já



Pokud xRg.Value = "" Pak

xRg.Value = xStr

Jiný

Nastavit xRg = xRg.Offset(1, 0)

Do While xRg.Value <> ""

Nastavit xRg = xRg.Offset(1, 0)

Smyčka

xRg.Value = xStr

End If

End If

End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj,

Děkuji moc za tento úžasný článek! Toto byl upravený kód, který jsem hledal v komentářích! Vidím však, že kombinovaný řetězec xStr přidává středník ";" nějak do konce. Nemohu ladit, jak nezahrnout středník na konec řetězce.

Existuje také způsob, jak určit konkrétní rozsahy buněk pro xRg? Mám na mysli Set xRg = Range("ListBoxOutput") a chci změnit ListBoxOutput na něco jako H5:H10 & H15:20. Bylo by to nějak možné?
Tento komentář byl moderátorem webu minimalizován
Funguje to dobře, děkuji moc za pomoc. Mám jeden problém, že veškerý výstup přichází do stejné buňky E4, jak můžeme získat výstup v různých buňkách Např.: výstup pro C4 v E4, C5 v E5, C6 v E6 atd.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Vámi zmíněný problém zatím nelze vyřešit.
Tento komentář byl moderátorem webu minimalizován
Добрый день Прошу помочь.
Как сделать так чтобы каждое значение выходило на новой клетке? чтобы по выходило по вертикали?
Tento komentář byl moderátorem webu minimalizován
POMOC!!! jak výstup v různých rozsazích (vertikálně)?
Tento komentář byl moderátorem webu minimalizován
Sub Rectangle2_Click()
'Aktualizováno Extendoffice 20190924
Dim xSelShp As Shape, xSelLst As Variant, I As Integer
Dim xRg jako rozsah
Nastavit xSelShp = ActiveSheet.Shapes(Application.Caller)
Nastavit xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
xLstBox.Visible = True
xSelShp.TextFrame2.TextRange.Characters.Text = "Možnosti vyzvednutí"
Jiný
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = "Vybrat možnosti"
Nastavit xRg = Range("ListBoxOutput")
Pro I = 0 To xLstBox.ListCount - 1
If xLstBox.Selected(I) = True Then
xSelLst = xLstBox.List(I)
xRg.Value = Mid(xSelLst, 1, Len(xSelLst))
Nastavit xRg = xRg.Offset(1, 0)
End If
Příště já
End If
End Sub
Tento komentář byl moderátorem webu minimalizován
Como puedo replicar éste ejercicio en las filas inferiores ?
Jak mohu zopakovat toto cvičení v řádcích níže?
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění