..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

ComboBox sortiranje

Pomoč pri izdelavi makrov

ComboBox sortiranje

OdgovorNapisal/-a BJ » To nov 05, 2013 11:44 am

Pozdravljeni!
Sedaj, ko v ComboBox-u iščem podatek, ali vpišem začetne črke, se mi odpre seznam, po vrsti, kot so si sledili vnosi.
Želel pa bi, da bi bil seznam prikazan razvrščeno po abecedi in brez podvojenih vnosov
Hvala in lep pozdrav B
Koda: Izberi vse
 Private Sub UserForm_Initialize()
  Dim UniqueList()    As String
    Dim x               As Long
    Dim Rng1            As Range
    Dim c               As Range
    Dim Unique          As Boolean
    Dim y               As Long
   
    '______________________za cbo "Objekt"________
    Set Rng1 = Sheets("Podatki").Range("C9:C380")
    y = 1
     
    ReDim UniqueList(1 To Rng1.Rows.Count)
     
    For Each c In Rng1
        If Not c.Value = vbNullString Then
            Unique = True
            For x = 1 To y
                If UniqueList(x) = c.Text Then
                    Unique = False
                End If
            Next
            If Unique Then
                y = y + 1
                 
                Me.cboObjekt.AddItem (c.Text)
                UniqueList(y) = c.Text
            End If
        End If
       Next
 
BJ
 
Prispevkov: 152
Pridružen: Sr okt 26, 2005 5:46 pm



Matjazev.NET
 

Re: ComboBox sortiranje

OdgovorNapisal/-a admin » To nov 05, 2013 12:51 pm

Pozdravljeni,

Poslali ste samo del kode... Ali vi napolnite padajoč seznam iz nekega območja na listu (C9:C380)? Če je temu tako potem ne potrebujete ničesar novega. Nad omenjenim območjem preprosto spustite funkcijo (UniqueList), za katero sklepam da ste jo pobrali z neta in vam bo slednja tako sortirala in seznam in iz njega izločila podvojene elemente.

Potem pa vi samo še inicializirajte padajoč seznam iz omenjenega območja. Torej takole:
Koda: Izberi vse
1. nad nekim območjem spustite finkcijo UniqueList
2. Če ta funkcija že tudi sortira podatke potem ok, sicer nad tem območje spustite še funkcijo Sort
3. Napolnite podatke iz omenjenega območja
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3428
Pridružen: Sr jul 20, 2005 10:06 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 0 gostov

cron