Pakai Tombol buatan sendiri .. boleh ndak ya... Private Sub CommandButton1_Click() ' IndividualColumnSort - Descending ' by Rara Dim dTabel As Range, CurCol As Range Dim nKol As Integer, c As Integer
On Error Resume Next
Set dTabel = Application.InputBox( _
"Select Range yg akan disort", _
"Sorting Desending Per Individual Kolom", _
Selection.Address, , , , , 8)
nKol = dTabel.Columns.Count
Set CurCol = dTabel.Resize(dTabel.Rows.Count, 1)
For c = 0 To nKol - 1
Set CurCol = CurCol.Offset(0, c)
CurCol.Sort Key1:=CurCol(1, 1), Order1:=xlDescending, _
Header:*=xlNo*, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Next c
End Sub
pilihan: xlNo / xlYes / xlGuess
~Rara
*2012/4/30 Ogut Munandar <[email protected]>
*
>
> * *
> *slamat pagi semua, saya ada kasus dimana harus mengurutkan data lebih
> dari 1000 kolom secara descending.*
> *yang saya mau tanyakan adalah gimana caranya cepat untuk mengurutkan
> secara otomatis?*
> **contoh kasus ada di lampiran*
> *terimakasih*
>
Individual Columns Sorting (VBA ~Rr).xlsm
Description: Binary data
