(آموزشی) نمایش مقادیر غیر تکراری در list box

[ali.b]

با سلام

برای نمایش مقادیر غیر تکراری در لیست

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
     
    Set Rng1 = Sheets("A").Range("A1:A100")
    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.ListBox1.AddItem (c.Text)
                UniqueList(y) = c.Text
            End If
        End If
    Next
     
End Sub


[FONT=tahoma][/FONT]

[iranweld]

با سلام

با استفاده از collection هم میتوانید یک لیست بدون تکرار ایجاد کنید و از آن در لیست باکس استفاده نمایید

Private Sub UserForm_Initialize()

Set rng1 = Sheets("A").Range("A1:A100")

Dim listUnique As New Collection

On Error Resume Next

For Each cell In rng1

listUnique.Add cell, CStr(cell)

Next

For i = 1 To listUnique.Count

listbox1.AddItem listUnique.Item(i)

Next

End Sub