Bu yazıda, verileri alfabetik sıraya göre sıralamak için özel bir fonksiyon oluşturacağız.
Ham veriler, sıralamak istediğimiz rastgele adlardan oluşur.
Mantıksal açıklama
Verileri alfabetik olarak sıralamak için “SortString” özel işlevi oluşturduk. Girdi olarak kaynak aralığı ve konumu alır ve belirtilen konuma göre değerler döndürür. Bu fonksiyon öncelikle sıralanmış bir dizi oluşturur ve ardından belirtilen konum, sıralanmış diziden gerekli değeri çıkarmak için kullanılır.
Kod açıklaması
UBound(değerler)
Yukarıdaki fonksiyon, dizi içindeki değerlerin sayısını almak için kullanılır.
değerler(j) = değerler(j - 1)
Yukarıdaki kod, dizi içindeki değerleri bir indeks kaydırmak için kullanılır.
Lütfen kod için aşağıdan takip edin
Option Explicit Function SortString(Source As Range, Position As Long) As String 'Değişkenleri Bildirme Dim Cell As Range Dim değerleri() As String Dim i As Long, j As Long Dim Done As Boolean ReDim değerleri(1 - 1) 'Döngü üzerinden aralıktaki tüm hücreler Kaynaktaki Her Hücre İçin Done = False i = 1 'Sıralanmış bir isim dizisi oluşturma Do If Cell.Value < değerler(i) Then Done = True Else i = i + 1 End If Döngü Biterken Bitti = False Ve i <= UBound(değerler) ReDim Değerleri koru(1 To UBound(değerler) + 1) Eğer i <= UBound(değerler) O zaman 'Sıralanmış isim dizisindeki değeri ayarlama For j = UBound(değerler) İçin i + 1 Adım - 1 değerler(j) = değerler(j - 1) Sonraki j End If değerler(i) = Cell.Value Sonraki Hücre 'Gerekli pozisyona değer atama SortString = değerler(Konum + 1) End Function
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın