küme

[akcacaki]

belli bir kurala göre hazırlanmış sayılardan oluşan bir küme tanımlanabilir mi?
A={2,3,5,....} asal sayılar kümesi mesela,
bu küme oluşturulup, yeni eklenen sayılarla beraber bu kümenin elemanları için işlem tanımlanabilir mi?

 

[Recep İpek]

Anladığım kadarıyla bunun için Array(Dizi) ve Collection(Koleksiyon) olaylarını kullanabilirsiniz.
Size tavsiyem Collection (Koleksiyon) kullanmanız.

Küçük bir örnek;

Sub Göster()
    Dim alan, Hucre As Range
    Dim data As New Collection
    Dim i As Integer, j As Integer
    Dim Temp1, Temp2, Item, son As Variant
'*****************Hafızaya Alma*********************
    Range("A1").Select

    Application.ScreenUpdating = False
    
    Set alan = Range("A2:A20")
    
    On Error Resume Next
    For Each Hucre In alan
    data.Add Hucre.Value
    Next Hucre
'*****************Sıralama*************************
    On Error GoTo 0
    For i = 1 To data.Count - 1
        For j = i + 1 To data.Count
            If data(i) > data(j) Then
                Temp1 = data(i)
                Temp2 = data(j)
                data.Add Temp1, before:=j
                data.Add Temp2, before:=i
                data.Remove i + 1
                data.Remove j + 1
            End If
        Next j
    Next i
    'data.Remove (1)
'*****************Kullanma************************
MsgBox data(5)     '5 veri sırası
[B2].Value = data(5)

Application.ScreenUpdating = True
End Sub

 

[akcacaki]

çok teşekkür, sanırım işime yarayacak

sanırım işime yarayacak