Cara menggunakan makro untuk mengurutkan data dalam beberapa kolom sebagai satu kolom dalam Excel

PENTING: Artikel ini diterjemahkan oleh perangkat lunak penerjemahan mesin Microsoft, dan mungkin telah diedit oleh Masyarakat Microsoft melalui teknologi CTF dan bukan oleh seorang penerjemah profesional. Microsoft menawarkan baik artikel yang diterjemahkan oleh manusia maupun artikel hasil editan terjemahan oleh mesin/komunitas, sehingga Anda dapat mengakses semua artikel di Sentra Pengetahuan yang kami miliki dalam berbagai bahasa. Namun artikel hasil editan mesin atau bahkan komunitas tidak selalu sempurna. Artikel ini dapat mengandung kesalahan dalam hal kosa kata, sintaksis atau tatabahasa, sangat mirip dengan penutur asing yang membuat kekeliruan ketika berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab atas ketidakakuratan, kesalahan atau kerugian apa pun akibat dari kekeliruan dalam penerjemahan isi atau penggunaannya oleh pelanggan kami. Microsoft juga akan senantiasa memperbarui perangkat lunak penerjemahan mesin dan alat untuk menyempurnakan Editan Hasil Penerjemahan Mesin.

Klik disini untuk melihat versi Inggris dari artikel ini: 247311
Artikel ini telah diarsipkan. Artikel ditawarkan dalam bentuk "apa adanya" dan tidak akan dapat diperbarui lagi.
Ringkasan
Microsoft Excel tidak memiliki metode internal untuk menyortir Surat Kabar (snaking) bidang data. Artikel ini berisi contoh makro untuk menyortir data yang ada dalam format kolom Surat Kabar.
Informasi lebih lanjut
Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrogram yang muncul dan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.

Pengurutan internal

Dalam Microsoft Excel, Anda biasanya menggunakan fitur Sortir untuk menyortir daftar. Daftar di Excel adalah serangkaian lembar kerja baris yang berisi data yang terkait, seperti database faktur atau serangkaian klien nama dan nomor telepon. Anda dapat menggunakan daftar sebagai pangkalan data, di mana setiap baris adalah catatan, dan kolom adalah kolom. Baris pertama dalam daftar biasanya memiliki label untuk kolom, misalnya:
   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				
Jika Anda diurutkan daftar ini dalam urutan menurun menaik, dengan kolom Q1 (kolom A), hasilnya akan seperti berikut:
   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				

Pengurutan kolom Surat Kabar-style

Kolom Surat Kabar dan kolom Mengular adalah istilah yang berbeda untuk jenis format data yang sama. Di kolom Surat Kabar, data mengisi satu kolom dan tetap di atas kolom berikutnya. Dalam hal ini, data Anda mungkin tidak memiliki label untuk setiap kolom, misalnya:
   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				
Anda dapat menggunakan makro contoh dalam artikel ini untuk menyortir Surat Kabar kolom dalam urutan menurun menaik. Jika Anda menggunakan makro sampel data di atas, hasilnya adalah sebagai berikut:
   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				
Untuk melihat makro penyortiran bekerja seperti yang dijelaskan, ikuti langkah-langkah berikut:
  1. Membuka buku kerja baru.
  2. Jenis data contoh berikut di lembar kerja:
       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. Pada Alat Menu, arahkan ke Makro, kemudian klik Penyunting Visual Basic.
  4. Pada Masukkan Menu, klik Modul.
  5. Ketik kode berikut dalam modul:

    Catatan Contoh berikut menunjukkan cara mengurutkan dalam ascendingorder. Anda dapat mengubah ini dengan mengubah nilai "Order1: =" argumenxlDescending.
       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)).ClearEnd Sub					
  6. Pada menu Excel di Microsoft Excel X untuk Mac dan versi yang lebih baru dari Excel untuk Mac, atau pada menu berkas di semua versi Excel, klik tutup dan kembali ke MicrosoftExcel.
  7. Pilih A1:C6.
  8. Pada Alat Menu, arahkan ke Makro, kemudian klik Makro. Pilih SortAllRangeData makro, dan kemudian klik Jalankan.
Semua data yang berada dalam kisaran yang dipilih sekarang diurutkan, dan ditampilkan sebagai berikut:
   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				
Referensi

X Excel untuk Mac dan versi yang lebih baru

Untuk informasi selengkapnya tentang cara menyortir, klik Excel Help pada menu bantuan , ketik pengurutan, klik Cari, dan kemudian klik topik untuk melihatnya.

Untuk informasi selengkapnya tentang cara menggunakan metode urut dari Penyunting Visual Basic, klik Visual Basic bantuan pada bantuan menu, jenis metode Sortir, klik Cari, dan kemudian klik untuk melihat menyortir metode.

2001 Excel untuk Mac

Untuk informasi selengkapnya tentang cara menyortir, klik Asisten Office, ketik menyortir daftar, klik Cari, dan kemudian klik topik untuk melihatnya.

Catatan Jika asisten tersembunyi, klik tombol tekan Asisten Office di toolbar standar .

Untuk informasi selengkapnya tentang cara menggunakan metode urut dari Penyunting Visual Basic, klik Asisten Office, ketik metode Sortir, klik Cari, dan kemudian klik untuk melihat menyortir metode.
XL2000 MacXLX Mac XLX XL2001 XL98 penyortiran Surat Kabar ular filter XL2004

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 247311 - Tinjauan Terakhir: 12/05/2015 17:42:42 - Revisi: 6.0

Microsoft Excel 2000 Standard Edition, Microsoft Excel 2004 for Mac, Microsoft Excel X for Mac, Microsoft Excel 2001 for Mac, Microsoft Excel 98 for Macintosh

  • kbnosurvey kbarchive dftsdahomeportal kbautomation kbprogramming kbhowto kbmt KB247311 KbMtid
Tanggapan