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

Jak vytvořit rozevírací seznam s více výběry nebo hodnotami v aplikaci Excel?

Ve výchozím nastavení můžete vybrat pouze jednu položku v rozevíracím seznamu ověření dat v aplikaci Excel. Jak můžete provést více výběrů v rozevíracím seznamu, jak je uvedeno níže? Metody v tomto článku vám mohou pomoci problém vyřešit.


Vytvořte rozevírací seznam s více výběry pomocí kódu VBA

Tato část obsahuje dva kódy VBA, které vám pomohou provést více výběrů v rozevíracích seznamech v listu. Dva kódy VBA mohou dosáhnout:

Kód VBA 1: Umožňuje vícenásobný výběr v rozevíracím seznamu bez duplicit
Kód VBA 2: Povolit vícenásobný výběr v rozevíracím seznamu bez duplicit (smazat existující položky opětovným výběrem)

Chcete-li provést více výběrů v rozevíracím seznamu v listu v aplikaci Excel, můžete použít jeden z následujících kódů VBA. Postupujte prosím následovně.

1. Otevřete list s rozevíracími seznamy ověření dat, ze kterých chcete provést více výběrů. Klikněte pravým tlačítkem na záložku listu a vyberte Zobrazit kód z kontextové nabídky.

2. V Microsoft Visual Basic pro aplikace zkopírujte níže uvedený kód VBA do okna kódu. Viz snímek obrazovky:

Kód VBA 1: Umožňuje vícenásobný výběr v rozevíracím seznamu bez duplicit

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

3. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

Nyní můžete vybrat více položek z rozevíracího seznamu v aktuálním listu.

Předpokládejme, že jste náhodně vybrali položku a potřebujete ji odstranit, aniž byste vyčistili celou buňku a začali znovu. Následující kód VBA 2 vám může udělat laskavost.

Kód VBA 2: Povolit vícenásobný výběr v rozevíracím seznamu bez duplicit (smazat existující položky opětovným výběrem)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2023/01/11
    'Updated by Ken Gardner 2022/07/11
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim semiColonCnt As Integer
    Dim xType As Integer
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    
    xType = 0
    xType = Target.Validation.Type
    If xType = 3 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
                    xValue1 = Replace(xValue1, "; ", "")
                    xValue1 = Replace(xValue1, ";", "")
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, "; " & xValue2) Then
                    xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, xValue2 & ";") Then
                    xValue1 = Replace(xValue1, xValue2, "")
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & "; " & xValue2
                End If
                Target.Value = Replace(Target.Value, ";;", ";")
                Target.Value = Replace(Target.Value, "; ;", ";")
                If Target.Value <> "" Then
                    If Right(Target.Value, 2) = "; " Then
                        Target.Value = Left(Target.Value, Len(Target.Value) - 2)
                    End If
                End If
                If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
                    Target.Value = Replace(Target.Value, "; ", "", 1, 1)
                End If
                If InStr(1, Target.Value, ";") = 1 Then
                    Target.Value = Replace(Target.Value, ";", "", 1, 1)
                End If
                semiColonCnt = 0
                For i = 1 To Len(Target.Value)
                    If InStr(i, Target.Value, ";") Then
                        semiColonCnt = semiColonCnt + 1
                    End If
                Next i
                If semiColonCnt = 1 Then ' remove ; if last character
                    Target.Value = Replace(Target.Value, "; ", "")
                    Target.Value = Replace(Target.Value, ";", "")
                End If
            End If
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Poznámky:

1). Duplicitní hodnoty nejsou v rozevíracím seznamu povoleny.
2). Výše uvedený kód VBA 2 poskytl náš nadšený uživatel Ken Gardner dne 2022/07/11.
3). Uložte sešit jako soubor Sešit se zvýšeným makra Excel aby kód fungoval i v budoucnu.
4). Po přidání kódu VBA 2 můžete odstranit existující položku tak, že ji znovu vyberete v rozevíracím seznamu. Podívejte se na gif níže:


Snadno vytvářejte rozevírací seznam s více výběry pomocí úžasného nástroje

Zde vřele doporučujeme Multi-select rozevírací seznam vlastnost Kutools pro Excel pro tebe. Díky této funkci můžete snadno vybrat více položek z rozevíracího seznamu v zadaném rozsahu, aktuálním listu, aktuálním sešitu nebo ve všech otevřených sešitech, jak potřebujete.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. cvaknutí Kutools > Rozbalovací seznam > Multi-select rozevírací seznam > Nastavení. Viz obrázek:

2. V Multi-select Nastavení rozevíracího seznamu V dialogovém okně proveďte následující konfiguraci.

  • 2.1) Upřesněte použitelný rozsah v Naneste na sekce. V tomto případě vyberu Aktuální list z Specifikovaný rozsah rozbalovací seznam;
  • 2.2) V Směr textu sekce vyberte směr textu podle svých potřeb;
  • 2.3) V oddělovač do pole zadejte oddělovač, který použijete k oddělení více hodnot;
  • 2.4) Zkontrolujte Nepřidávejte duplikáty pole v možnosti sekce, pokud nechcete dělat duplikáty v buňkách rozevíracího seznamu;
  • 2.5) Klikněte na OK knoflík. Viz screenshot:

3. Klikněte prosím Kutools > Rozbalovací seznam > Multi-select rozevírací seznam pro povolení této funkce.

Nyní můžete vybrat více položek z rozevíracího seznamu v aktuálním listu nebo v jakémkoli oboru, který jste zadali v kroku 2.

  Pokud chcete mít bezplatnou zkušební verzi (30-den) této utility, 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ý program 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-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné 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 snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (67)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj, díky za řešení a kód. Ale dalším krokem je, jak zajistit, aby uživatel nevybral „duplicitní“ hodnoty z rozevíracího seznamu. Např. Pokud jsou v seznamu 4 položky - pomeranč, jablko, banán, broskev a pokud uživatel již vybral "pomeranč", pak by Excel neměl umožnit uživateli vybrat "oranžový" NEBO tato možnost by měla být odstraněna ze zbytku seznam. Můžete prosím publikovat kód k provedení této funkce. Dík. Yezdi
Tento komentář byl moderátorem webu minimalizován
Ahoj Yezdi, děkuji za tvůj komentář. Kód byl aktualizován a v rozevíracím seznamu nyní nejsou povoleny žádné duplicitní hodnoty. Dík. Sluneční svit
Tento komentář byl moderátorem webu minimalizován
Je skvělé, že to umožňuje více výběrů, ale jak poznamenal @Yezdi, zjišťuji, že přidá jeden nebo několik duplikátů, i když je nevyberu. V současnosti je to tedy 80% řešení... od dokonalosti dělí jedna úprava. Nejsem VB kodér nebo bych nabídl řešení.
Tento komentář byl moderátorem webu minimalizován
Chcete-li předejít duplicitám, můžete změnit kód v následujících řádcích: If xValue2 "" Then Target.Value = xValue1 & ", " & xValue2 End If To: If xValue2 "" Then If CheckIfAlreadyAdded(xValue1, xValue2) = False Then Target .Value = xValue1 & ", " & xValue2 Else Target.Value = xValue1 End If End If A potom přidejte následující funkci: Private Function CheckIfAlreadyAdded(ByVal sText As String, sNewValue As String) As Boolean CheckIfAlreadyAdded = False Dim String WrdArray() = Split(sText, ",") For i = LBound(WrdArray) To UBound(WrdArray) If Trim(WrdArray(i)) = Trim(sNewValue) Then CheckIfAlreadyAdded = True Další i End Funkce -- Pravděpodobně existuje lepší způsoby kódování, ale zatím to funguje.
Tento komentář byl moderátorem webu minimalizován
Právě jsem si uvědomil, že jsem neopustil smyčku v nové funkci, pokud byla podmínka nastavena, takže nemusíme kontrolovat další položky.
Tento komentář byl moderátorem webu minimalizován
Ahoj. Děkujeme za kód a přidání k omezení duplikátů. Ještě jeden požadavek – jaké doplnění/změnu by bylo nutné provést, aby bylo možné vícenásobný výběr pouze v jednom nebo dvou konkrétních sloupcích? Tento kód znovu přidává řádky textu do buněk, které by měly být „prosté“, pokud jdu opravit překlep nebo provést změnu nebo doplnění textu v buňce, na rozdíl od pouhého „normálního“ chování a přijetí změny. (bez opětovného přidání celého textu). Například sloupec A je „prostý“ sloupec. Píšu větu "Jaké tři položky chceš nejvíc?" Sloupec B je sloupec „seznam“, kde chci mít možnost vybrat pouze jednu hodnotu (v tomto případě řekněme jméno dítěte). Sloupec C je další sloupec „seznamu“, kde musí mít uživatel možnost vybrat více položek (což mi tento kód umožňuje dokonale). Postupem času si uvědomuji, že jsem ve sloupci A udělal překlep a chci to opravit. Jak tento kód vypadá, když vstoupím (dvojité kliknutí, F2) a opravím slovo „položky“, skončím s tímto výsledkem v mé buňce: „Jaké jsou tři položky, které chcete nejvíce? položky, které chcete nejvíc?" předem děkuji za jakoukoli pomoc (od uživatele, který má OPRAVDU rád VBA, ale je stále v nejranější fázi učení!)
Tento komentář byl moderátorem webu minimalizován
Podařilo se mi zprovoznit kód, ale když jsem dokument uložil (s povolenými makry), zavřel ho a vrátil, kód už nefungoval (ačkoli tam stále byl). Nemůžu přijít na to, co jsem udělal špatně. Nějaké nápady?
Tento komentář byl moderátorem webu minimalizován
Ahoj Cynthie, Pokud původní autor neodpoví, dostanu odpověď, ale před počítačem budu znovu až 29. prosince. Také nejsem žádný VBA programátor. Mezitím můžete hledat na Googlu, jak identifikovat číslo sloupce a nechat kód běžet pouze v případě, že jsou data v tomto konkrétním sloupci upravena. Udělal jsem to, ale kód je na mém pracovním počítači a momentálně si ho nemůžu vybavit, možná zkuste vložit debug.print na target.column nebo něco v tom smyslu, abyste zjistili, zda vám to dává číslo sloupce, který se upravuje . Promiň Jennifer, nejsem si jistý problémem, který máš :(
Tento komentář byl moderátorem webu minimalizován
@Cynthia, Pokud je to stále nutné, měli byste být schopni udělat něco takového, abyste zajistili, že kód běží pouze na konkrétních sloupcích, v mém případě ve sloupcích 34 a 35: If (Target.Column 34 And Target.Column 35) Then Exit Sub „Dejte tento kód na začátek za vaše matné příkazy
Tento komentář byl moderátorem webu minimalizován
[quote]@Cynthia, Pokud je to stále nutné, měli byste být schopni udělat něco takového, abyste zajistili, že kód běží pouze na konkrétních sloupcích, v mém případě ve sloupcích 34 a 35: If (Target.Column 34 And Target.Column 35) Potom Exit Sub 'Umístěte tento kód na začátek za vaše příkazy dimOd Mervyna[/quote] Ahoj @Mervyn, úplně jsem ztratil přehled o vláknu, ale moc děkuji za vaše odpovědi. Zkoušel jsem použít If (Target.Column 34 And Target.Column 35) Then Exit Sub (moje verze zní If (Target.Column4 And Target.Column5) Then Exit Sub, jak jste uvedli, ale dostávám „Doba běhu chyba '438': Objekt nepodporuje tuto vlastnost nebo metodu"" chyba na tomto novém řádku. Zde je prvních několik řádků mého kódu: Private Sub Worksheet_Change(ByVal Target As Range) Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If (Target.Column4 And Target.Column5) Then Exit Sub If Target.Count > 1 Then Exit Sub On Error Pokračovat Další Můj list má pouze 6 sloupců: Otázka | Odpověď | Kategorie | Podkategorie | Tagy | Odkaz na fotku Potřebuji pouze rozbalovací nabídky s více hodnotami v podkategorii a značkách (sloupce 4 a 5). 12. 23. budu nadále hledat informace, jak jste navrhovali, a podívám se na poskytnutý odkaz Charity.
Tento komentář byl moderátorem webu minimalizován
If Target.Column <> 34 Then Exit Sub

„Dejte tento kód na začátek za vaše matné příkazy
Tento komentář byl moderátorem webu minimalizován
Ahoj, momentálně používám tento vzorec a všechny sloupce s ověřením dat mají nyní možnost vícenásobného výběru, chci však omezit vícenásobný výběr pouze na jeden sloupec. Může mi někdo upravit tento vzorec, aby bylo možné vícenásobný výběr použít pouze na sloupec4? Díky :) Private Sub Worksheet_Change(ByVal Target As Range) 'Updated: 2016/4/12 Dim xRng As Range Dim xRng As String Dim xRng1 As String If Target.Count > 2 Then Exit Sub On Error Resume Next Set xRng = Cells. SpecialCells(xlCellTypeAllValidation) If xRng Is Nothing Then Exit Sub Application.EnableEvents = False If Not Application.Intersect(Target, xRng) Is Nothing Then xValue1 = Target.Value Application.Undo xValue2 = Target.Value If Target.Value1 If x Target.Value2 " Then If xValue1 "" Then If xValue2 = xValue1 Or _ InStr(2, xValue1, ", " & xValue1) Nebo _ InStr(2, xValue1, xValue1 & ",") Then Target.Value = xValue2 Else Target =. xValue1 & ", " & xValue1 End If End If End If End If Application.EnableEvents = True End Sub Jakákoli pomoc bude oceněna!
Tento komentář byl moderátorem webu minimalizován
Funguje to dobře, ale po výběru položky nemohu odstranit. Nějaké návrhy pro případ, že na něco kliknu omylem a potřebuji to odstranit, aniž bych (doufejme) vyčistil celou buňku a začal znovu? Také pro ty, kteří chtějí definovat sloupec nebo sloupce, má Contextures skvělý doplněk ke zde poskytnutému kódu, který vám to umožňuje. http://www.contextures.com/excel-data-validation-multiple.html#column
Tento komentář byl moderátorem webu minimalizován
[quote]Funguje to dobře, ale po výběru nemohu položku odstranit. Nějaké návrhy pro případ, že na něco kliknu omylem a potřebuji to odstranit, aniž bych (doufejme) vyčistil celou buňku a začal znovu? Také pro ty, kteří chtějí definovat sloupec nebo sloupce, má Contextures skvělý doplněk ke zde poskytnutému kódu, který vám to umožňuje. http://www.contextures.com/excel-data-validation-multiple.html#columnDobročinností[/quote] Kód funguje dobře. Nedaří se mi však zrušit výběr položky. Když chci odstranit položku z výběru, prostě se neodstraní. Má někdo jiný také zkušenosti s tímto problémem?[/quote] Ahoj všichni, našli jsme nějaké řešení tohoto problému..prosím sdílejte..
Tento komentář byl moderátorem webu minimalizován
Dobrý den, kód funguje dobře. Nedaří se mi však zrušit výběr položky. Když chci odstranit položku z výběru, prostě se neodstraní. Má někdo jiný také zkušenosti s tímto problémem?
Tento komentář byl moderátorem webu minimalizován
Byla na tento problém nějaká reakce. Je to stejný problém, který mám já. Zdá se, že neexistuje způsob, jak odstranit položku, která byla vybrána.
Tento komentář byl moderátorem webu minimalizován
odstraňte obsah v buňce a poté znovu vyberte
Tento komentář byl moderátorem webu minimalizován
Ahoj všichni, mám tento kód na listu aplikace Excel a jeho čištění obsahu z rozevíracího seznamu, když je vybrána buňka - vím, která část kódu to dělá (část, která říká 'fillRng.ClearContents') a pokusil jsem se to pomocí některých z výše uvedených neúspěšně opravit... Jsem nový v programování VBA atd. Může někdo nabídnout pomoc, jak to změnit tak, aby se to po výběru buňky nevymazalo a položky nebudou duplikovat prosím?? Možnost Explicitní Dim fillRng As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Qualifiers As MSForms.ListBox Dim LBobj As OLEObject Dim i As Long Set LBobj = Me.OLETargetObjects("ListBox1") Set Qualifiers = LBobj.Object > 3 And Target.Column = 3 Pak nastavte fillRng = Target With LBobj .Left = fillRng.Left .Top = fillRng.Top .Width = fillRng.Width .Height = 155 .Visible = True End With Else LBobj.Visible = False If Not fillRng Is Nothing Then fillRng.ClearContents With Qualifiers If .ListCount 0 Then For i = 0 To .ListCount - 1 If fillRng.Value = "" Then If .Selected(i) Then fillRng.Value = .List(i) Else If .Selected(i) Then fillRng.Value = _ fillRng.Value & ", " & .List(i) End If Next End If For i = 0 To .ListCount - 1 .Selected(i) = False Další konec With Set fillRng = Nic End If End If End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj všichni, můj rozevírací seznam bych uměl perfektně, ale moje otázka zní: když vyberu všechny položky, jde to jedna po druhé vodorovně přes buňku, například: žlutá, zelená, černá, červená. Ale jak to udělat, aby to vypadalo svisle?, spíš jako například: Oranžová černá žlutá Červená Protože v horizontále se buňka při výběru velkého množství položek prodlouží. Můžete mi prosím říct, jestli existuje nějaký způsob, jak to udělat?. Děkuji, Desiree
Tento komentář byl moderátorem webu minimalizován
Podařilo se mi použít tento kód a úspěšně vytvořit rozbalovací seznamy s více výběry. Fungovalo to, když jsem zavíral a znovu otevíral v různé dny. Nyní však ne všechny buňky, které jsem původně vybral, umožňují vícenásobný výběr. Pouze ty, které byly provedeny dříve, navzdory použití kódu pro celou tabulku. Můžete pomoci?
Tento komentář byl moderátorem webu minimalizován
Mám stejný problém.
Tento komentář byl moderátorem webu minimalizován
buňky jsou s největší pravděpodobností zamčené, klikněte pravým tlačítkem na všechny, přejděte na formátování buněk, ochrana a zrušte zaškrtnutí možnosti zamčené buňky
Tento komentář byl moderátorem webu minimalizován
Vytvořil jsem rozevírací seznam, kde bylo možné vybrat více textových výběrů, jako je „výživa“, váha a „práce“ pro každý důvod volajícího, aby se ozval. Mám stránku se souhrnem, kde chci vidět, kolik z každého důvodu byly uvedeny v konkrétním měsíci. Jaký vzorec bych použil, abych řekl Excelu, aby vytáhl a sečetl každý z nich samostatně v daném měsíci? Aktuálně tak, jak to mám nastavené, se to správně počítá pouze v případě, že mám u každého volajícího v buňce jeden důvod.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Je nám líto, ale nemůžeme vám pomoci vyřešit tento problém. Pokud najdete odpověď, dejte mi prosím vědět.
Tento komentář byl moderátorem webu minimalizován
Snažím se vytvořit 4 sloupce s rozevíracími seznamy, kde mohu vybrat více hodnot. Jak upravím kód VBA „rozbalovací seznam s více výběry“ tak, aby se po kliknutí na již zadanou hodnotu odstranila z buňky? Děkuji předem.
Tento komentář byl moderátorem webu minimalizován
Milý Randy,
Co myslíš tím "když kliknu na hodnotu, která již byla zadána, odstraní se z buňky?"
Tento komentář byl moderátorem webu minimalizován
mám stejnou otázku. Můj rozevírací seznam si nepamatuje vybrané hodnoty. Pokud někdo klikne na buňku, která již byla vyplněna (ne jimi, ale někým jiným), vybrané hodnoty se vymažou a buňka je opět prázdná.
Tento komentář byl moderátorem webu minimalizován
Níže uvedený kód používám k povolení vícenásobného výběru na více listech, ale když přejdu na jiný list v sešitu, vícenásobný výběr zmizí. Když soubor uložím a vrátím se do něj, bude fungovat pro jednu kartu s kódem, ale znovu, když kliknu na jinou kartu s kódem, už to nefunguje. Máte nápad, jak to opravit, takže když kliknu na list s kódem VBA, vždy to umožní vícenásobný výběr?
Tento komentář byl moderátorem webu minimalizován
Ahoj, jsem bin totaler VBA Laie. Ich versuche den Code so zu modifizieren, dass
a) die Mehrfachauswahl nict in allen, sondern nur ein zwei Spalten aktiv ist
b) ich Items auch wieder rausnehmen kann, zB in dem ich in der Listenauswahl das Item noch einmal anklicke (Beispiel: ich habe über die Mehrfachauswahl ausgewählt: A, D, X, Y... nun fällt das D mir a gehört. Beim aktuellen Code müsste ich Eingaben entfernen und neu auswählen).
Díky předem!
Tento komentář byl moderátorem webu minimalizován
Nemohu pokračovat ve vytváření vícenásobného výběru rozevíracího seznamu. Poslouchal jsem výukový program a četl jsem materiál, ale stále nemohu tvořit. Může mi prosím někdo pomoci?
Tento komentář byl moderátorem webu minimalizován
Vím, že to může být zcela náhodné, ale bez problémů používám variantu VBA. S výjimkou jedné stránky, pokud vyberete první tři možnosti, neumožní vám vybrat čtvrtou. Umožní vám vybrat 5., 6. atd., jen ne 4. možnost. myšlenky?
Tento komentář byl moderátorem webu minimalizován
Ahoj Robert,
Testoval jsem kód, ale nenašel jsem problém, jak jste uvedl. Můžete mi říct, jakou verzi Excelu používáte? Děkuji za váš komentář.
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í

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL