VBA dengan metode Sort juga bisa disusun seperti dalam prosedur SortPerRow
berikut :
Public Sub SortPerRow()
Dim rng As Range, rngData As Range
Dim lCols As Long
Set rngData = Selection
lCols = rngData.Columns.Count
For Each rng In rngData.Resize(, 1)
rng.Resize(1, lCols).Sort rng, xlAscending, Header:=xlNo,
Orientation:=xlSortRows
Next rng
End Sub
Cara pasang :
1. ke VBE (dari worksheet, tekan ALT F11)
2. menu Insert -> pilih Module
3. copas script di atas ke lembar module yang disediakan
4. kembali ke worksheet (ALT F11)
5. save as file dan pastikan pilih ekstensi .xlsm atau .xlsb atau .xls
Cara pakai
1. blok data yang akan di-sort
2. jalankan macro bernama SortPerRow
>> backup data asli bila perlu.
Wassalam,
Kid.
On Sun, Sep 16, 2012 at 11:33 PM, hendrik karnadi
<[email protected]>wrote:
> **
>
>
> Pak Asseggaf,
> Agar tidak mengganggu data aslinya, copy data yang belum tersortir dari
> Sheet1 ke Sheet2
>
> File terlampir memanfaatkan Event WorkSheet_BeforeDoubleClick berikut ini
> pada Sheet2.
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean) 'macro ini dicopy ke sheet2 pada Sheet VBA
> Call nyortir 'mamanggil macro "nyortir"
> Cancel = True
> End Sub
>
> Sub nyortir() 'macro ini dicopy ke Module1(setelah insert module) pada
> Sheet VBA
> Dim Rng As Range
> Set Rng = Sheets("Sheet2").Range("A1").CurrentRegion
> Range("A1").Select
> For i = 1 To Rng.Rows.Count
> ActiveCell.Resize(1, 5).Select
> ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
> ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add
> Key:=Selection, _
> SortOn:=xlSortOnValues, Order:=xlAscending,
> DataOption:=xlSortNormal
> With ActiveWorkbook.Worksheets("Sheet2").Sort
> .SetRange Selection
> .Header = xlGuess
> .MatchCase = False
> .Orientation = xlLeftToRight
> .SortMethod = xlPinYin
> .Apply
> End With
> ActiveCell.Offset(1, 0).Select
> Next
> End Sub
>
> Untuk menyortir, cukup klik salah satu sel yang ada di Sheet2.
>
> Salam,
> Hendrik Karnadi
>
>
> ------------------------------
> *From:* Mohammed Asseggaf <[email protected]>
> *To:* [email protected]
> *Sent:* Sunday, 16 September 2012, 19:48
> *Subject:* [belajar-excel] cara sort per row
>
>
> Halo semua,….
>
> lagi bingung nih mau nge sort row ,.. tapi ada beberapa row,…
>
> Bagaimana yah caranya
>
>
>
>
