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

Kako ustvariti spustni seznam z več izbirami ali vrednostmi v Excelu?

Privzeto lahko izberete samo en element na spustnem seznamu za preverjanje podatkov v Excelu. Kako lahko naredite več izbir na spustnem seznamu, kot je prikazano spodaj na sliki? Metode v tem članku vam lahko pomagajo rešiti težavo.


Ustvari spustni seznam z več izbirami s kodo VBA

V tem razdelku sta na voljo dve kodi VBA, ki vam pomagata narediti več izbir na spustnih seznamih na delovnem listu. Dve kodi VBA lahko dosežeta:

Koda VBA 1: Dovoli več izbir na spustnem seznamu brez dvojnikov
Koda VBA 2: Dovoli več izbir na spustnem seznamu brez dvojnikov (izbrišite obstoječe elemente tako, da jih znova izberete)

Uporabite lahko eno od naslednjih kod VBA, da naredite več izbir na spustnem seznamu na delovnem listu v Excelu. Prosimo, naredite naslednje.

1. Odprite delovni list, ki vsebuje spustne sezname za preverjanje podatkov, iz katerih želite narediti več izbir. Z desno miškino tipko kliknite zavihek lista in izberite Ogled kode iz kontekstnega menija.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte spodnjo kodo VBA v okno kode. Oglejte si posnetek zaslona:

Koda VBA 1: Dovoli več izbir na spustnem seznamu brez dvojnikov

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. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

Zdaj lahko izberete več elementov s spustnega seznama v trenutnem delovnem listu.

Recimo, da ste pomotoma izbrali element in ga morate odstraniti, ne da bi počistili celotno celico in začeli znova. Naslednja koda VBA 2 vam lahko naredi uslugo.

Koda VBA 2: Dovoli več izbir na spustnem seznamu brez dvojnikov (izbrišite obstoječe elemente tako, da jih znova izberete)

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

Opombe:

1). Podvojene vrednosti na spustnem seznamu ne dovolijo.
2). Zgornjo kodo VBA 2 je zagotovil naš navdušeni uporabnik Ken Gardner dne 2022/07/11.
3). Prosimo, shranite delovni zvezek kot Excelov delovni zvezek z omogočeno makro da bo koda delovala tudi v prihodnje.
4). Ko dodate kodo VBA 2, lahko odstranite obstoječi element tako, da ga znova izberete na spustnem seznamu. Oglejte si spodnji gif:


Z neverjetnim orodjem enostavno ustvarite spustni seznam z več izbirami

Tukaj toplo priporočamo Večkrat izberite spustni seznam značilnost Kutools za Excel zate. S to funkcijo lahko na spustnem seznamu enostavno izberete več elementov v določenem obsegu, trenutnem delovnem listu, trenutnem delovnem zvezku ali vseh odprtih delovnih zvezkih, kot jih potrebujete.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. klik Kutools > Spustni seznam > Večkrat izberite spustni seznam > Nastavitve. Oglejte si posnetek zaslona:

2. V Ljubljani Večkrat izberite Nastavitve spustnega seznama pogovorno okno, nastavite na naslednji način.

  • 2.1) Navedite obseg uporabe v Se nanaša na odsek. V tem primeru izberem Trenutni delovni list Iz Določeni obseg spustni seznam;
  • 2.2) V Smer besedila v razdelku izberite smer besedila glede na vaše potrebe;
  • 2.3) V separator vnesite ločilo, s katerim boste ločili več vrednosti;
  • 2.4) Preverite Ne dodajajte dvojnikov polje v možnosti če ne želite delati dvojnikov v spustnem seznamu;
  • 2.5) Kliknite OK . Oglejte si posnetek zaslona:

3. Prosim kliknite Kutools > Spustni seznam > Večkrat izberite spustni seznam da omogočite funkcijo.

Zdaj lahko izberete več elementov s spustnega seznama na trenutnem delovnem listu ali poljubnem obsegu, ki ste ga določili v koraku 2.

  Če želite imeti brezplačen preizkus (30-dan) tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Sorodni članki:

Samodokončanje pri vnašanju spustnega seznama v Excelu
Če imate spustni seznam za preverjanje veljavnosti podatkov z velikimi vrednostmi, se morate na seznamu pomakniti navzdol, samo da bi našli pravega, ali pa v besedilno polje vnesite celo besedo. Če obstaja način, ki omogoča samodejno dokončanje pri vnosu prve črke na spustnem seznamu, bo vse postalo lažje. Ta vadnica ponuja metodo za reševanje težave.

Ustvari spustni seznam iz drugega delovnega zvezka v Excelu
Na delovnih listih v delovnem zvezku je zelo enostavno ustvariti spustni seznam za preverjanje veljavnosti podatkov. Če pa se podatki seznama, ki jih potrebujete za preverjanje podatkov, nahajajo v drugi delovni knjigi, kaj bi storili? V tej vadnici boste podrobno izvedeli, kako iz drugega delovnega zvezka v Excelu ustvarite spustni seznam.

Ustvarite spustni seznam, ki ga je mogoče iskati v Excelu
Za spustni seznam s številnimi vrednostmi iskanje pravega ni lahko delo. Prej smo uvedli način samodejnega dokončanja spustnega seznama, ko v spustnem polju vnesemo prvo črko. Poleg funkcije samodokončanja lahko po spustnem seznamu omogočite tudi iskanje za povečanje delovne učinkovitosti pri iskanju ustreznih vrednosti na spustnem seznamu. Če želite omogočiti iskanje po spustnem seznamu, poskusite z metodo v tej vadnici.

Samodejno izpolnite druge celice pri izbiri vrednosti v spustnem seznamu Excel
Recimo, da ste ustvarili spustni seznam na podlagi vrednosti v obsegu celic B8: B14. Ko izberete katero koli vrednost na spustnem seznamu, želite, da se ustrezne vrednosti v območju celic C8: C14 samodejno vnesejo v izbrano celico. Za rešitev težave vam bodo storitve v tej vadnici naredile uslugo.

Več vadnic za spustni seznam ...


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (67)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, hvala za rešitev in kodo. Toda naslednji korak je, kako se prepričati, da uporabnik ne izbere "podvojenih" vrednosti s spustnega seznama. Npr. Če so na seznamu 4 elementi - pomaranča, jabolko, banana, breskev in če je uporabnik že izbral "oranžno", potem excel uporabniku ne bi smel dovoliti, da izbere "oranžno" ALI to možnost je treba odstraniti iz preostalih seznam. Ali lahko objavite kodo za izvedbo te funkcije. Hvala. Yezdi
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Yezdi, hvala za komentar. Koda je bila posodobljena in na spustnem seznamu zdaj niso dovoljene podvojene vrednosti. Hvala. sonce
Ta komentar je moderator na spletnem mestu minimiziral
Super je, da to omogoča več izbir, a kot je komentiral @Yezdi, ugotavljam, da bo dodal enega ali več dvojnikov, tudi če jih ne izberem. Torej, trenutno je to 80-odstotna rešitev... en korak stran od popolne. Nisem programer VB ali bi ponudil rešitev.
Ta komentar je moderator na spletnem mestu minimiziral
Kodo lahko spremenite v naslednjih vrsticah, da preprečite podvojene: Če xValue2 "" Potem Target.Value = xValue1 & ", " & xValue2 Konec Če Za: Če xValue2 "" Potem Če CheckIfAlreadyAdded(xValue1, xValue2) = False Potem Target .Value = xValue1 & ", " & xValue2 Else Target.Value = xValue1 Konec, če Konec, če In nato dodajte naslednjo funkcijo: Zasebna funkcija CheckIfAlreadyAdded(ByVal sText kot niz, sNewValue kot niz) Kot BooleanAd Die, kot je FAlreadyArray, kot FAlreadyArray. String WrdArray() = Split(sText, ",") Za i = LBound(WrdArray) na UBound(WrdArray) Če Trim(WrdArray(i)) = Trim(sNewValue) Potem CheckIfAlreadyAdded = True Next i End funkcija -- verjetno obstaja boljši načini za kodiranje, vendar za zdaj deluje.
Ta komentar je moderator na spletnem mestu minimiziral
Pravkar sem ugotovil, da nisem zapustil zanke v novi funkciji, če je bil pogoj nastavljen, tako da nam ni treba preverjati drugih vnosov.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Hvala za kodo in dodatek za omejitev dvojnikov. Še ena zahteva - kakšen dodatek/spremembo bi bilo treba narediti, da bi omogočili večkratno izbiro samo v enem ali dveh določenih stolpcih? Ta koda ponovno dodaja vrstice besedila v tiste celice, ki bi morale biti 'navadne', če grem popraviti tipkarsko napako ali spremeniti ali dodati besedilo v celici, namesto da bi se le obnašal "normalno" in sprejel spremembo. (brez ponovnega dodajanja celotnega besedila). Stolpec A je na primer "navaden" stolpec. Napišem stavek "Katere tri stvari si najbolj želiš?" Stolpec B je stolpec 'seznam', kjer želim imeti možnost izbrati samo eno vrednost (v tem primeru recimo ime otroka). Stolpec C je še en stolpec 'seznama', kjer mora biti uporabnik sposoben izbrati več elementov (kar mi ta koda omogoča popolno). Ko grem naprej, se zavedam, da sem naredil tipkarsko napako v stolpcu A in jo želim popraviti. Kot je ta koda, če vstopim (dvojni klik, F2) in popravim besedo "predmeti", dobim v celici ta rezultat: "Katere tri predmete si najbolj želiš? Katere so tri predmeti, ki si jih najbolj želiš?" vnaprej hvala za kakršno koli pomoč (od uporabnika, ki ima RES rad VBA, vendar je še vedno na najzgodnejši stopnji učenja!)
Ta komentar je moderator na spletnem mestu minimiziral
Kodo mi je uspelo spraviti v delo, a potem, ko sem dokument shranil (z omogočenimi makri), ga zaprl in se vrnil, koda ni več delovala (čeprav je bila še vedno tam). Ne morem ugotoviti, kaj sem naredil narobe. Kaj idej?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Cynthia, če izvirni avtor ne odgovori, ti bom odgovoril, vendar bom spet pred računalnikom šele 29. decembra. Tudi jaz nisem programer VBA. Medtem lahko storite iskanje v Googlu, kako prepoznati številko stolpca in pustiti, da se koda izvaja samo, če so podatki urejeni v tem določenem stolpcu(-ih). To sem naredil, vendar je koda na mojem delovnem računalniku in se je trenutno ne spomnim, morda poskusite postaviti debug.print na target.column ali kaj podobnega, da vidite, ali vam daje številko stolpca, ki ga urejate . Oprosti Jennifer, nisem prepričana o težavi, ki jo imaš :(
Ta komentar je moderator na spletnem mestu minimiziral
@Cynthia, če je še vedno potrebno, bi morali narediti nekaj takega, da zagotovite, da se koda izvaja samo v določenih stolpcih, v mojem primeru v stolpcih 34 in 35: Če (Target.Column 34 And Target.Column 35) Nato Exit Sub »Postavite to kodo na začetek za vašimi izjavami dim
Ta komentar je moderator na spletnem mestu minimiziral
[quote]@Cynthia, če je še vedno potrebno, bi morali imeti možnost narediti nekaj takega, da zagotovite, da se koda izvaja samo v določenih stolpcih, v mojem primeru v stolpcih 34 in 35: If (Target.Column 34 And Target.Column 35) Nato Exit Sub 'Postavite to kodo na začetek za vašimi izjavami dimAvtor: Mervyn[/quote] Živjo @Mervyn, popolnoma sem izgubil sled teme, a najlepša hvala za vaše odgovore. Poskusil sem uporabiti If (Target.Column 34 And Target.Column 35) Nato Exit Sub (moja različica se glasi If (Target.Column4 And Target.Column5) Nato Exit Sub, kot ste navedli, vendar dobivam "Run-time napaka '438': Objekt ne podpira te lastnosti ali metode"" napaka v tej novi vrstici. Tukaj je prvih nekaj vrstic moje kode: Private Sub Worksheet_Change(ByVal Target As Range) Dim xRng As Range Dim xValue1 As String Dim xValue2 Kot niz If (Target.Column4 In Target.Column5) Nato Exit Sub If Target.Count > 1 Nato Exit Sub On Error Resume Next Moj delovni list ima samo 6 stolpcev: Vprašanje | Odgovor | Kategorija | Podkategorija | Oznake | Povezava do fotografij Potrebujem samo več spustnih menijev vrednosti v podkategorijah in oznakah (stolpca 4 in 5). Še naprej bom iskal informacije, kot ste predlagali 12. 23., in si bom ogledal povezavo, ki jo ponuja Charity.
Ta komentar je moderator na spletnem mestu minimiziral
Če je Target.Column <> 34, potem zapustite pod

»Postavite to kodo na začetek za vašimi izjavami dim
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, trenutno uporabljam to formulo in vsi stolpci s preverjanjem podatkov imajo zdaj možnost večkratne izbire, vendar želim omejiti večkratno izbiro samo na en stolpec. Ali lahko kdo uredi to formulo zame, tako da se lahko večkratni izbor uporabi samo za stolpec 4? Hvala :) Private Sub Worksheet_Change(ByVal Target As Range) 'Posodobljeno: 2016/4/12 Dim xRng As Range Dim xValue1 Kot String Dim xValue2 Kot niz Če Target.Count > 1 Nato Exit Sub On Error Resume Next Set xRng = Cells. SpecialCells(xlCellTypeAllValidation) Če xRng ni nič, potem Exit Sub Application.EnableEvents = False Če ni Application. Intersect(Target, xRng) Is Nothing Potem xValue2 = Target.Value Application.Razveljavi xValue1 = Target.ValueValue = Target.ValueV If " Potem Če je xValue2 "" Potem Če je xValue1 = xValue2 Ali _ InStr(1, xValue2, ", " & xValue1) Ali _ InStr(1, xValue2, xValue1 & ",") Potem je Target.Value = xValue1 Else Target =. xValue2 & ", " & xValue1 Konec, če Konec, če Konec, če Konec, če Application.EnableEvents = True End Sub Vsaka pomoč bo cenjena!
Ta komentar je moderator na spletnem mestu minimiziral
To deluje dobro, vendar ne morem odstraniti izbranega elementa. Kakšen predlog, če slučajno kliknem na nekaj in ga moram odstraniti, ne da bi (upam) počistil celotno celico in začel znova? Za tiste, ki želijo definirati stolpec ali stolpce, ima Contextures odličen dodatek k kodi, ki je tukaj na voljo, ki vam to omogoča. http://www.contextures.com/excel-data-validation-multiple.html#column
Ta komentar je moderator na spletnem mestu minimiziral
[quote]To deluje dobro, vendar ne morem odstraniti elementa, ko je izbran. Kakšen predlog, če slučajno kliknem na nekaj in ga moram odstraniti, ne da bi (upam) počistil celotno celico in začel znova? Za tiste, ki želijo definirati stolpec ali stolpce, ima Contextures odličen dodatek k kodi, ki je tukaj na voljo, ki vam to omogoča. http://www.contextures.com/excel-data-validation-multiple.html#columnZ dobrodelnostjo[/quote] Koda deluje dobro. Vendar se zdi, da ne morem preklicati izbire elementa. Ko želim element odstraniti iz izbire, ta preprosto ni odstranjen. Ali se še kdo sreča s to težavo?[/quote] Živjo vsi, najdene rešitve za ta problem..prosim delite..
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, koda deluje dobro. Vendar se zdi, da ne morem preklicati izbire elementa. Ko želim element odstraniti iz izbire, ta preprosto ni odstranjen. Ali ima še kdo to težavo?
Ta komentar je moderator na spletnem mestu minimiziral
Ali je bil odgovor na to vprašanje. To je ista težava, ki jo imam jaz. Zdi se, da ne obstaja način za odstranitev izbranega elementa.
Ta komentar je moderator na spletnem mestu minimiziral
izbrišite vsebino v celici in nato znova izberite
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni vsi, to kodo imam na Excelovem listu in čisti vsebino s spustnega seznama, ko je celica izbrana – vem, kateri del kode to počne (del, ki pravi 'fillRng.ClearContents') in jaz so poskusili uporabiti nekaj od zgoraj navedenega, da bi to popravili neuspešno... sem nov v programiranju VBA itd. Ali lahko kdo ponudi pomoč, kako to spremeniti, tako da se, ko je celica izbrana, ne izbriše in vnosi ne bodo podvojeno prosim?? Možnost Eksplicitno 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 Nastavi LBobj = Me.OLEObjects("ListBox1") Nastavi kvalifikatorje TargetObject.R = LB. > 3 In Target.Column = 3 Nato nastavite fillRng = Target z LBobj .Left = fillRng.Left .Top = fillRng.Top .Width = fillRng.Width .Height = 155 .Visible = True End With Else LBobj.Visible = False Če Not fillRng ni nič Potem fillRng.ClearContents s kvalifikatorji Če .ListCount 0 Potem Za i = 0 Do .ListCount - 1 Če fillRng.Value = "" Potem Če .Selected(i) Potem fillRng.Value = .List(i) Drugače Če .Selected(i) Potem fillRng.Value = _ fillRng.Value & ", " & .List(i) Konec, če je naslednji konec, če je For i = 0 Do .ListCount - 1 .Selected(i) = False Next End With Set fillRng = Nič Konec Če Konec Če Konec Sub
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni vsi, moj spustni seznam bi lahko naredil odlično, a moje vprašanje je: ko izberem vse potrebne elemente, gredo eden za drugim vodoravno skozi celico, na primer: rumena, zelena, črna, rdeča. Toda kako lahko naredim, da je videti navpično?, bolj kot na primer: Oranžna črna rumena Rdeča Ker v vodoravnem položaju celica postane precej dolga, ko izberete veliko elementov. Mi lahko prosim poveš, če obstaja način za to? Hvala, Desiree
Ta komentar je moderator na spletnem mestu minimiziral
Uspelo mi je uporabiti to kodo in uspešno ustvariti spustna polja z več izbori. Delovalo je, ko sem zapiral in ponovno odprl ob različnih dneh. Vendar zdaj vse celice, ki sem jih prvotno izbral, ne omogočajo več izbire. Samo tiste, ki so bile narejene prej, kljub uporabi kode za celotno preglednico. Lahko pomagate?
Ta komentar je moderator na spletnem mestu minimiziral
jaz imam enak problem.
Ta komentar je moderator na spletnem mestu minimiziral
celice so najverjetneje zaklenjene, z desno miškino tipko kliknite na vse, pojdite na format celic, zaščita, nato počistite možnost zaklenjene celice
Ta komentar je moderator na spletnem mestu minimiziral
Ustvaril sem spustni seznam, kjer je bilo mogoče izbrati več izbir besedila, kot so "prehrana", "teža" in "delo" za razlog klicatelja, da pokliče. Imam stran s povzetkom, na kateri želim videti, koliko od vsakega razloga so bili navedeni v določenem mesecu. Kakšno formulo bi uporabil, da bi Excelu povedal, naj izvleče in izračuna vsako od teh posebej v določenem mesecu? Trenutno, tako kot imam nastavljen, se pravilno izračuna le, če imam v celici en razlog za vsakega klicatelja.
Ta komentar je moderator na spletnem mestu minimiziral
Dober dan,
Žal vam ne morem pomagati rešiti te težave. Sporočite mi, če najdete odgovor.
Ta komentar je moderator na spletnem mestu minimiziral
Poskušam ustvariti 4 stolpce s spustnimi seznami, kjer lahko izberem več vrednosti. Kako spremenim kodo VBA "spustni seznam z več izbori", tako da jo, ko kliknem na že vneseno vrednost, odstrani iz celice? Hvala v naprej.
Ta komentar je moderator na spletnem mestu minimiziral
Dragi Randy,
Kaj misliš "ko kliknem na že vneseno vrednost, jo odstrani iz celice?"
Ta komentar je moderator na spletnem mestu minimiziral
imam isto vprašanje. Moj spustni seznam ne zapomni izbranih vrednosti. Če nekdo klikne na celico, ki je že bila poseljena (ne on, ampak nekdo drug), se izbrane vrednosti počistijo in celica je spet prazna.
Ta komentar je moderator na spletnem mestu minimiziral
Spodnjo kodo uporabljam, da omogočim večkratni izbor na več delovnih listih, vendar ko grem na drug delovni list v delovnem zvezku, večnamenski izbor izgine. Ko shranim datoteko in se vrnem vanjo, bo delovala za en zavihek s kodo, ko pa ponovno kliknem na drug zavihek s kodo, ne deluje več. Imate kakšno idejo, kako to popraviti, tako da, če kliknem na delovni list s kodo VBA, bo vedno dovolil večnamenski izbor?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, ich bin totaler VBA Laie. Ich versuche den Code so zu modifizieren, dass
a) die Mehrfachauswahl nicht 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, dals da mir a niuf) Beim aktuellen Code müsste ich Eingaben entfernen und neu auswählen).
Hvala vnaprej!
Ta komentar je moderator na spletnem mestu minimiziral
Ne morem nadaljevati z ustvarjanjem večkratnega izbora spustnega seznama. Poslušal sem vadnice in prebral gradivo, vendar še vedno ne morem ustvariti. Prosim, če mi lahko kdo pomaga?
Ta komentar je moderator na spletnem mestu minimiziral
Vem, da je to lahko povsem naključno, vendar uporabljam različico VBA brez težav. Razen na eni strani, če izberete prve tri možnosti, vam ne bo dovolila, da izberete četrto. Omogočil vam bo izbiro 5., 6. in tako naprej, samo ne 4. možnosti. Misli?
Ta komentar je moderator na spletnem mestu minimiziral
Živijo Robert,
Preizkusil sem kodo, vendar nisem našel težave, kot ste omenili. Ali mi lahko poveš, katero različico Excela uporabljaš? Hvala za vaš komentar.
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL