makro rekaman kiriman pak wid itu, codiingnya dapat diringkas menjadi sbb
(dgn mengabaikan bahwa (dijalankan di pc ku) makro tsb merusak asli data di kolom A )
SEMULA
Sub DataSorttop10()
' DataSorttop10 Macro
' Macro recorded 13/12/2010 by AGUNG
Range("A3:C64").Sort Key1:=Range("C4"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
Range("B3:B13").Select
Selection.Copy
Range("G3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C3:C13").Select
Application.CutCopyMode = False
Selection.Copy
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
SETELAH DIMODIFIKASI / sekedar peringkasan
Sub DataSorttop10_ringkas()
Range("A3:C64").Sort _
Key1:=Range("C4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
Range("B3:B13").Copy
Range("G3").PasteSpecial Paste:=xlPasteValues
Range("C3:C13").Copy
Range("F3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Parameter pada Method SORT pun sebenarnya tidak harus semua dituliskan
CMIIW
Dear Mas Budi,Berikut ini contoh solusi dari saya dengan makro.Bila masih ada yang mau ditanya ,Datang saja ke meja saya, tinggal jalan 3 meterNanti kita diskusikanTernyata sampean ikut Milis keren ini juga tho?Best regards
Agung Widodo
________________________________
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Budi Piliang
Sent: Sunday, December 12, 2010 5:30 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ Mengurutkan menjadi Top 10
Dear Pakar excel,
Saya anggota baru disini, saya mau tanya tentang pegurutan nilai untuk
lebih jelas permasalahan saya lihat di file yang saya kirim.
--
Thank & Best Regards,
| sOrRy dOrRy j3K... m0m0dS LaGi HeC-tiC... waQaQaQa... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário