Dari link tersebut, diketahui sebuah syntax sort sedehana :
*expression*.*Sort*(*Key1*, *Order1*, *Key2*, *Type*, *Order2*, *Key3*, *
Order3*, *Header*, *OrderCustom*, *MatchCase*, *Orientation*, *SortMethod*,
*DataOption1*, *DataOption2*, *DataOption3*)
'1. Awalnya di Module1 seperti ini:
'sort hasil (berdasar kolom nama ~ kolom F)
'*rng.CurrentRegion.Sort Sheet4.Range("f3")*, *xlAscending*, *Header:=xlYes*
'2. Lalu Diubah di Module2 menjadi seperti ini:
'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
artinya dibutuhkan *Key2 *dan *Order2*.
*rng.CurrentRegion.Sort Sheet4.Range("f3")*, *xlAscending*, *
sheet4.range("g3")*, *Order2:=xlDescending*, *Header:=xlYes*
yang lebih lengkapnya :
*rng.CurrentRegion.Sort key1:=Sheet4.Range("f3")*, *order1:=**xlAscending*,
*key2:=sheet4.range("g3")*, *Order2:=xlDescending*, *Header:=xlYes*
Nama input parameter (seperti key1,order1,key2) dibutuhkan secara berurutan
sejak awal (parameter pertama), oleh sebab itu boleh tidak dituliskan
seperti yang atas. Mulai kebutuhan akan parameter Order2, ada parameter
yang tidak dibutuhkan, yaitu parameter Type. Oleh sebab itu harus
dituliskan nama parameternya, yaitu Order2:=
Parameter setelahnya harus menuliskan nama parameternya, karena sudah ada
parameter yang dituliskan namanya.
Wassalam,
Kid.
2012/9/6 sin.ur4t <[email protected]>
> **
>
>
> Pak Mr Kid,
> Makasih Link-nya sdh saya baca meski terbata-bata, susah bhs inggris:D
> Dari situ Kemudian Kode Sorting-Nya dimodifikasi seperti ini:
>
> '1. Awalnya di Module1 seperti ini:
> 'sort hasil (berdasar kolom nama ~ kolom F)
> 'rng.CurrentRegion.Sort Sheet4.Range("f3"), xlAscending, Header:=xlYes
>
> '2. Lalu Diubah di Module2 menjadi seperti ini:
> 'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
>
> With Sheet4
> Set rng1 = rng.Offset(1, 1).Resize(rng.Rows.Count - 1, 1)
> Set rng2 = rng.Offset(1, 2).Resize(rng.Rows.Count - 1, 1)
>
> Sheet4.Sort.SortFields.Add Key:=rng1, SortOn:=xlSortOnValues,
> Order:=xlAscending, DataOption:= _
> xlSortNormal
> Sheet4.Sort.SortFields.Add Key:=rng2, SortOn:=xlSortOnValues,
> Order:=xlDescending, DataOption:= _
> xlSortNormal
>
> With Sheet4.Sort
> .SetRange rng
> .Header = xlYes
> .MatchCase = False
> .Orientation = xlTopToBottom
> .SortMethod = xlPinYin
> .Apply
> End With
> End With
>
> 'Sudah ditest dan sukses. Sayangnya blm bisa saya pastikan apakah kodenya
> mmg sudah benar/efisien atau faktor kebetulan saja.
> 'Jika berkenan agar diberi tanggapan. Sekali lagi makasih.
>
> wassalam
> Sinurat
>
> --- In [email protected], "Kid Mr." <mr.nmkid@...> wrote:
> >
> > Sort 2 kolom kunci dengan VBA memanfaatkan methods Sort berikut :
> >
> http://msdn.microsoft.com/en-us/library/office/aa213557%28v=office.11%29.aspx
> >
> > Wassalam,
> > Kid.
> >
> > 2012/9/5 Imam Sinurat <sin.ur4t@...>
> >
> > > **
>
> > >
> > >
> > > salam be excel..
> > >
> > > ini merupakan lanjutan pertanyaan pak Ferdy (krn kasusnya mirip) yang
> > > direspon oleh pak Ghozi dan pak Mr Kid pd tgl 23 Agustus 2012 berjudul
> > > "Filter dengan Kriteria dan Secara Urut", posting nomor 18636, 18637
> dan
> > > 18643. tadinya ingin me-reply tapi bingung gmn cara nge-attach file..
> > > jadinya dibuat dlm thread baru :D.. Mohon izin datanya saya modifikasi.
> > >
> > > Solusi makro dari pak mr kid/ghozi di Module1 saya copast ke Module2.
> > > Pada bagian makro advanced filter, unique saya ubah menjadi False,
> sehingga
> > > hasilnya semua data yg memenuhi kriteria muncul di sheet 'VBATakUnik',
> > > tersort secara ascending.
> > >
> > > Dari hasil sort tsb, saya ingin untuk setiap Nama Yang Sama dilakukan
> sort
> > > sekali lagi pada kolom bayar secara descending. Detail terlampir.
> > >
> > > Mohon bantuan solusi, terima kasih sebelumnya.
> > >
> > > wassalam,
> > > Sinurat - Sumut
> > >
> > >
> > >
> > >
> > >
> > >
> >
>
>
>
