Excel'de bir sütun olarak birden çok sütunda veri sıralama için makrolar nasıl kullanılır

Makale çevirileri Makale çevirileri
Makale numarası: 247311 - Bu makalenin geçerli olduğu ürünleri görün.
Hepsini aç | Hepsini kapa

Bu Sayfada

Özet

Microsoft Excel'in verileri (snaking) gazete sütunu sıralamak için yerleşik bir yöntem yoktur. Bu makale, gazete sütunu biçimindeki verileri sıralamak için bir makro örneği içerir.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Yerleşik sıralama

Microsoft Excel'de, genellikle sıralama özelliğini bir listeyi sıralamak için kullanın. Excel'de BIR liste, bir faturanın veritabanı veya istemci adları ve telefon numaraları gibi ilgili verileri içeren çalışma sayfası satır dizisidir. Bir listeyi, her satır bir kayıt olduğu bir veritabanı olarak kullanabilirsiniz ve sütunları alanlardır. Listenin ilk satırı genellikle, sütun etiketleri örneğin vardır:
   A1: Q1   B1: Q2   C1: Q3
   A2: 10   B2: 2    C2: 4
   A3: 14   B3: 18   C3: 9
   A4: 7    B4: 17   C4: 12
   A5: 1    B5: 13   C5: 5
   A6: 11   B6: 8    C6: 16
   A7: 3    B7: 6    C7: 15
				
bu listeyi artan düzende sıralanmış, (a sütunu) göre S1 alan, bu sonuçları aşağıdaki gibi olur:
   A1: Q1   B1: Q2   C1: Q3
   A2: 1    B2: 13   C2: 5
   A3: 3    B3: 6    C3: 15
   A4: 7    B4: 17   C4: 12
   A5: 10   B5: 2    C5: 4
   A6: 11   B6: 8    C6: 16
   A7: 14   B7: 18   C7: 9
				

Gazete stili sütunun sıralama

Gazete sayfası sütunları ve snaking sütunlar aynı veri biçimi türü için farklı terimler ' dir. Gazete sayfası sütunları, verileri bir sütununa doldurur ve üst kısmında sonraki sütuna devam eder. Bu durumda verileriniz büyük bir olasılıkla her sütun için etiketler örneğin yok:
   A1: 10   B1: 2    C1: 4
   A2: 14   B2: 18   C2: 9
   A3: 7    B3: 17   C3: 12
   A4: 1    B4: 13   C4: 5
   A5: 11   B5: 8    C5: 16
   A6: 3    B6: 6    C6: 15
				
gazete sayfası sütunları, artan düzende sıralamak için bu makaledeki örnek makroyu kullanabilirsiniz. Yukarıdaki verilerin makro örneği kullanıyorsanız, sonuçları şunlardır:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
				
açıklandığı gibi bir sıralama makro görmek için şu adımları izleyin:
  1. Yeni bir çalışma kitabını açın.
  2. Aşağıdaki örnek verileri çalışma sayfasına yazın:
       A1: 10   B1: 2    C1: 4
       A2: 14   B2: 18   C2: 9
       A3: 7    B3: 17   C3: 12
       A4: 1    B4: 13   C4: 5
       A5: 11   B5: 8    C5: 16
       A6: 3    B6: 6    C6: 15
    					
  3. Araçlar menüsünden, makro ' nun üzerine gelin ve sonra Visual Basic Düzenleyicisi ' ni tıklatın.
  4. Ekle menüsünden modülü ' nü tıklatın.
  5. Aşağıdaki kodu modüle yazın:

    Not Aşağıdaki örnek, artan düzende sıralama gösterilmiştir. Bu değeri değiştirerek değiştirebilirsiniz "Order1: =" bağımsız değişkeni xlDescending.
       Sub SortAllRangeData()
       ' Place column header for temporary sort area.
       Range("IV1").Value = "Numbers"
       
       ' Move numbers to temporary sort location.
       For Each cell In Selection
          Range("iv65536").End(xlUp).Offset(1, 0) = cell.Value
       Next cell
       
       ' Sort numbers in ascending order.
       Range("IV1", Range("IV1").End(xlDown)).Sort Key1:=Range("IV2"),  _
       Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
            
       ' Move sorted data back to original sheet location.
    
       Selection(1, 1).Activate ' Make sure the ActiveCell is the
                                ' top left of Selection first.
       CCnt = Selection.Columns.Count
       RCnt = Selection.Rows.Count
       CellCnt = Selection.Cells.Count
       Tcell = 2
       For c = 1 To CCnt
         For r = 1 To RCnt
            Range(ActiveCell.Address).Offset(r - 1, c - 1).Value =  _
            Range("iv" & Tcell).Value
            Tcell = Tcell + 1
         Next r
       Next c
       
       ' Clean up temporary sort location.
       Range("IV1", Range("IV1").End(xlDown)).Clear
    End Sub
    					
  6. Microsoft Excel X for Mac ve sonraki bir Mac için Excel sürümlerinde <a0>Excel menüsünde veya Excel'in başka sürümleri de <a1>Dosya</a1> menüsünde, Kapat ve Microsoft Excel'e dön'ı tıklatın.
  7. A1:C6 seçin.
  8. Araçlar menüsünden, makro ' nun üzerine gelin ve makrolar ' ı tıklatın. SortAllRangeData makroyu seçin ve sonra da <a2>Çalıştır</a2>'ı tıklatın.
Tüm seçili aralıktaki verileri artık sıralanır ve aşağıdaki gibi görünür:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
				

Referanslar

Mac ve sonraki sürümler için Excel X

Sıralamak için Yardım menüsünde <a1>Excel Yardımı</a1>'nı hakkında daha fazla bilgi için sıralama yazın, Ara ' yı tıklatın ve sonra görüntülemek için bir konuyu tıklatın.

Visual Basic Düzenleyicisi'nden <a0>sıralama yöntemini kullanın, Yardım menüsünde <a1>Visual Basic Yardım</a1>'ı sıralama yöntemi hakkında daha fazla bilgi için Ara ' yı tıklatın ve sonra sıralama yöntemi görüntülemek için tıklatın.

Excel 2001 for Mac

Sıralama hakkında daha fazla bilgi için Office Yardımcısı ', <a1>sıralama</a1> listesini yazın, Ara ' yı tıklatın ve sonra görüntülemek için bir konuyu tıklatın.

Not Yardımcı gizliyse, Office YardımcısıStandart araç çubuğu düğmesini tıklatın.

Visual Basic Düzenleyicisi'nden <a0>sıralama yöntemini kullanın, Office Yardımcısı ' sıralama yöntemi hakkında daha fazla bilgi için Ara ' yı tıklatın ve sonra sıralama yöntemi görüntülemek için tıklatın.

Özellikler

Makale numarası: 247311 - Last Review: 25 Ocak 2007 Perşembe - Gözden geçirme: 6.3
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X for Mac
  • Microsoft Excel 2001 for Macintosh
  • Microsoft Excel 98 for Macintosh
Anahtar Kelimeler: 
kbmt kbautomation kbprogramming kbhowto KB247311 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:247311

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com