Just nu i M3-nätverket
Gå till innehåll

Excel VBA Listbox index på en rad


Rekommendera Poster

Hej!

jag importerar värden till min Listbox men i stället för att få dom en tabell uppifrån och ner så kommer allt på en rad med komma mellan.

vad är det för fel?

Länk till inlägg
Dela på andra webbplatser

Mja, det är ju den funktionen som du har varit inblandad i också!

jag samlar in alla bladflikarna till en variabel ”vaBlad” vars innehåll jag vill redovisa i Listboxen. Från början så kan det ju vara 8-10st flikar men efter man har gjort urvalet (vaBlad) så är det bara ett par kvar och dom redovisas då på en rad. Jag kommer ju inte åt innehållet i vaBlad...

Länk till inlägg
Dela på andra webbplatser

Så här ser koden ut:

        With ListBox1
            .Clear
            .AddItem VaBlad
        End With

Där vaBlad kan innehålla flera olika namn....

Länk till inlägg
Dela på andra webbplatser

Men, i tidigare fall loopade du (väl?) igenom alla blad och fyllde listboxen en rad i taget.

Nu säger du ju att texten i VaBlad skall läggas på rad i (om inte VA-rad är en matris).

Du kan dela upp din textsträng med Split t.ex för att skapa en matris

Sub tjo()

Dim vablad As Variant
Dim j As Integer
vablad = "a, b, c, d"

        With ActiveSheet.ListBox1
            .Clear
            For j = 0 To UBound(Split(vablad, ","))
                .AddItem Split(vablad, ",")(j)
            Next j
                
        End With

End Sub

Jag vet ärligt talat inte om du måste köra loopen eller om du kan fylla med arrayen direkt. Men nu gör du ju på samma sätt som tidigare så det borde kännas bekant.

 

Länk till inlägg
Dela på andra webbplatser
Postad (redigerade)

Ähh, nu blev jag tvungen att testa. Så här kan du tilldela arrayen direkt:

Sub tjo()
Dim vablad As string
vablad = "a,b,c,d"
ActiveSheet.ListBox1.List = Split(vablad, ",")
End Sub

 

Redigerad av MH_
  • Gilla 1
Länk till inlägg
Dela på andra webbplatser

Hmmm....

ja, det är ju otroligt att få till det med så lite kod! Verkligen snyggt!

Ja, det stämmer att jag loopade in värdena, men i nästa fas så tyckte jag att samma listbox kunde visa urvalet av bladflikarna! Det är ju lite det som är det roliga. Man blir aldrig färdig?

Stort tack!

Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu


×
×
  • Skapa nytt...