[belajar-excel] Nanya - Buat Nge Sort Otomatis pake VB [1 Attachment]

classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Nanya - Buat Nge Sort Otomatis pake VB [1 Attachment]

Milis Belajar Excel mailing list
Assalaamu'alaikum Wr Wb
 

 Yth. Rekan2
 

 Saya baru mau belajar VB cara men-sort suatu range pake button dari VB gimana ya. File terlampir
 Terimakasih

 

 

 Wassalaamu'alaikum Wr Wb
 

 


Nanya - Buat Nge Sort Otomatis pake VB.xls (47K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Nanya - Buat Nge Sort Otomatis pake VB

Milis Belajar Excel mailing list
Wa'alaikumussalam wr wb

Hai Riza,

Untuk proses sort, begini :
1. tahu area range yang akan di-sort
2. pada area rang yang akan di-sort itu, sudah tahu kolom-kolom yang
menjadi kunci sort dan cara sort-nya
3. sudah disusun bunyi langkah-langkah secara manualnya
4. dibuat baris kode VBA nya.

Contoh :
1. mau sort area range A1:X9 dengan baris 1 adalah header dengan nama
KOLOM_01 dst sampai X.
2. kolom kunci untuk sort hanya ada 1 sajah, di kolom A
3. cara manualnya :
     klik A1 -> CTRL A -> ribbon Data -> group Sort & Filter -> klik tombol
Sort
     -> centang opsi My data has header -> sort by nya dipilih kolom
bernama KOLOM_01 -> tekan OK
4. untuk membuat baris kodenya, bisa diawali dengan melakukan record macro
lalu mengeditnya.
    atau langsung membuat prosedur sendiri seperti :
    > buat prosedur untuk sort ah... namanya prosedur misale SortNihYe
       public sub SortNihYe()


       end sub

    > ngisi proses sort dalam prosedur bernama SortNihYe... Bunyi prosesnya
begini :
        range("a1").currentregion.sort range("a1"),xlascending,header:=xlyes

        Bahasa manusianya :
"cel, di range A1 dilakukan select all yang saling berjejeran, lalu di-Sort
dengan kolom kunci adalah kolom miliknya range A1 secara Ascending
(xlAscending), tapi ingat ya cel, area yang di select itu ada headernya di
paling atas"


Tentang :
1. apa itu prosedur dan cara membuat prosedur, bisa dilihat mulai dari sini
<http://b-excel.blogspot.co.id/2013/07/belajarvba-005-procedure-seri-1.html>
.
2. cara menulis area range dan cara beberapa cara mendapatkan area range
yang dibutuhkan, bisa dilihat mulai dari sini
<http://b-excel.blogspot.co.id/2013/09/belajarvba-011-range-01-berdasar-alamat.html>
.
3. cara menggunakan object (seperti range, worksheet, workbook, dsb) , bisa
dilihat disini
<http://b-excel.blogspot.co.id/2013/07/belajarvba-006-object-dalam-excel.html>
.
4. apa yang dimiliki suatu object, bisa dilihat disini
<http://b-excel.blogspot.co.id/2013/08/belajarvba-007-property-methods-events.html>
.
5. methods sort yang dimiliki object range, bisa dilihat di Excel VBA Help
atau secara online disini
<https://msdn.microsoft.com/en-us/library/office/ff840646.aspx>.
     syntax :
*expression*.Sort(*Key1*, *Order1*, *Key2*, *Type*, *Order2*, *Key3*,
*Order3*, *Header*, *OrderCustom*, *MatchCase*, *Orientation*, *SortMethod*,
*DataOption1*, *DataOption2*, *DataOption3*)
*expression* : A variable that represents a *Range* object.

Wassalamu'alaikum wr wb
Kid





2017-04-05 9:41 GMT+07:00 [hidden email] [belajar-excel] <
[hidden email]>:

>
>
> Assalaamu'alaikum Wr Wb
>
>
> Yth. Rekan2
>
>
> Saya baru mau belajar VB cara men-sort suatu range pake button dari VB
> gimana ya. File terlampir
>
> Terimakasih
>
>
>
> Wassalaamu'alaikum Wr Wb
>
>
>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Nanya - Buat Nge Sort Otomatis pake VB

Milis Belajar Excel mailing list
Alhamdulillah dapat pencerahan dari Mr. Kid,Saya coba dulu Om, semoga menjadi ilmu yang bermanfaat. Aminn....


Makasih banyak sebelumnya Om



    On Wednesday, April 5, 2017 12:23 PM, "'Mr. Kid' [hidden email] [belajar-excel]" <[hidden email]> wrote:



     Wa'alaikumussalam wr wb


Hai Riza,


Untuk proses sort, begini :
1. tahu area range yang akan di-sort
2. pada area rang yang akan di-sort itu, sudah tahu kolom-kolom yang menjadi kunci sort dan cara sort-nya
3. sudah disusun bunyi langkah-langkah secara manualnya
4. dibuat baris kode VBA nya.


Contoh :
1. mau sort area range A1:X9 dengan baris 1 adalah header dengan nama KOLOM_01 dst sampai X.
2. kolom kunci untuk sort hanya ada 1 sajah, di kolom A
3. cara manualnya :
     klik A1 -> CTRL A -> ribbon Data -> group Sort & Filter -> klik tombol Sort
     -> centang opsi My data has header -> sort by nya dipilih kolom bernama KOLOM_01 -> tekan OK

4. untuk membuat baris kodenya, bisa diawali dengan melakukan record macro lalu mengeditnya.
    atau langsung membuat prosedur sendiri seperti :
    > buat prosedur untuk sort ah... namanya prosedur misale SortNihYe
       public sub SortNihYe()




       end sub


    > ngisi proses sort dalam prosedur bernama SortNihYe... Bunyi prosesnya begini :
        range("a1").currentregion.sort range("a1"),xlascending,header:=xlyes


        Bahasa manusianya :
"cel, di range A1 dilakukan select all yang saling berjejeran, lalu di-Sort dengan kolom kunci adalah kolom miliknya range A1 secara Ascending (xlAscending), tapi ingat ya cel, area yang di select itu ada headernya di paling atas"


    
Tentang :
1. apa itu prosedur dan cara membuat prosedur, bisa dilihat mulai dari sini.
2. cara menulis area range dan cara beberapa cara mendapatkan area range yang dibutuhkan, bisa dilihat mulai dari sini.
3. cara menggunakan object (seperti range, worksheet, workbook, dsb) , bisa dilihat disini.
4. apa yang dimiliki suatu object, bisa dilihat disini.
5. methods sort yang dimiliki object range, bisa dilihat di Excel VBA Help atau secara online disini.

     syntax :
expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)expression : A variable that represents a Range object.
Wassalamu'alaikum wr wb
Kid










2017-04-05 9:41 GMT+07:00 [hidden email] [belajar-excel] <[hidden email]>:


     Assalaamu'alaikum Wr Wb
Yth. Rekan2
Saya baru mau belajar VB cara men-sort suatu range pake button dari VB gimana ya. File terlampirTerimakasih




Wassalaamu'alaikum Wr Wb





  #yiv1279416410 #yiv1279416410 -- #yiv1279416410ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1279416410 #yiv1279416410ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1279416410 #yiv1279416410ygrp-mkp #yiv1279416410hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1279416410 #yiv1279416410ygrp-mkp #yiv1279416410ads {margin-bottom:10px;}#yiv1279416410 #yiv1279416410ygrp-mkp .yiv1279416410ad {padding:0 0;}#yiv1279416410 #yiv1279416410ygrp-mkp .yiv1279416410ad p {margin:0;}#yiv1279416410 #yiv1279416410ygrp-mkp .yiv1279416410ad a {color:#0000ff;text-decoration:none;}#yiv1279416410 #yiv1279416410ygrp-sponsor #yiv1279416410ygrp-lc {font-family:Arial;}#yiv1279416410 #yiv1279416410ygrp-sponsor #yiv1279416410ygrp-lc #yiv1279416410hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1279416410 #yiv1279416410ygrp-sponsor #yiv1279416410ygrp-lc .yiv1279416410ad {margin-bottom:10px;padding:0 0;}#yiv1279416410 #yiv1279416410actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1279416410 #yiv1279416410activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1279416410 #yiv1279416410activity span {font-weight:700;}#yiv1279416410 #yiv1279416410activity span:first-child {text-transform:uppercase;}#yiv1279416410 #yiv1279416410activity span a {color:#5085b6;text-decoration:none;}#yiv1279416410 #yiv1279416410activity span span {color:#ff7900;}#yiv1279416410 #yiv1279416410activity span .yiv1279416410underline {text-decoration:underline;}#yiv1279416410 .yiv1279416410attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1279416410 .yiv1279416410attach div a {text-decoration:none;}#yiv1279416410 .yiv1279416410attach img {border:none;padding-right:5px;}#yiv1279416410 .yiv1279416410attach label {display:block;margin-bottom:5px;}#yiv1279416410 .yiv1279416410attach label a {text-decoration:none;}#yiv1279416410 blockquote {margin:0 0 0 4px;}#yiv1279416410 .yiv1279416410bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1279416410 .yiv1279416410bold a {text-decoration:none;}#yiv1279416410 dd.yiv1279416410last p a {font-family:Verdana;font-weight:700;}#yiv1279416410 dd.yiv1279416410last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1279416410 dd.yiv1279416410last p span.yiv1279416410yshortcuts {margin-right:0;}#yiv1279416410 div.yiv1279416410attach-table div div a {text-decoration:none;}#yiv1279416410 div.yiv1279416410attach-table {width:400px;}#yiv1279416410 div.yiv1279416410file-title a, #yiv1279416410 div.yiv1279416410file-title a:active, #yiv1279416410 div.yiv1279416410file-title a:hover, #yiv1279416410 div.yiv1279416410file-title a:visited {text-decoration:none;}#yiv1279416410 div.yiv1279416410photo-title a, #yiv1279416410 div.yiv1279416410photo-title a:active, #yiv1279416410 div.yiv1279416410photo-title a:hover, #yiv1279416410 div.yiv1279416410photo-title a:visited {text-decoration:none;}#yiv1279416410 div#yiv1279416410ygrp-mlmsg #yiv1279416410ygrp-msg p a span.yiv1279416410yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1279416410 .yiv1279416410green {color:#628c2a;}#yiv1279416410 .yiv1279416410MsoNormal {margin:0 0 0 0;}#yiv1279416410 o {font-size:0;}#yiv1279416410 #yiv1279416410photos div {float:left;width:72px;}#yiv1279416410 #yiv1279416410photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv1279416410 #yiv1279416410photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1279416410 #yiv1279416410reco-category {font-size:77%;}#yiv1279416410 #yiv1279416410reco-desc {font-size:77%;}#yiv1279416410 .yiv1279416410replbq {margin:4px;}#yiv1279416410 #yiv1279416410ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1279416410 #yiv1279416410ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1279416410 #yiv1279416410ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1279416410 #yiv1279416410ygrp-mlmsg select, #yiv1279416410 input, #yiv1279416410 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1279416410 #yiv1279416410ygrp-mlmsg pre, #yiv1279416410 code {font:115% monospace;}#yiv1279416410 #yiv1279416410ygrp-mlmsg * {line-height:1.22em;}#yiv1279416410 #yiv1279416410ygrp-mlmsg #yiv1279416410logo {padding-bottom:10px;}#yiv1279416410 #yiv1279416410ygrp-msg p a {font-family:Verdana;}#yiv1279416410 #yiv1279416410ygrp-msg p#yiv1279416410attach-count span {color:#1E66AE;font-weight:700;}#yiv1279416410 #yiv1279416410ygrp-reco #yiv1279416410reco-head {color:#ff7900;font-weight:700;}#yiv1279416410 #yiv1279416410ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1279416410 #yiv1279416410ygrp-sponsor #yiv1279416410ov li a {font-size:130%;text-decoration:none;}#yiv1279416410 #yiv1279416410ygrp-sponsor #yiv1279416410ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1279416410 #yiv1279416410ygrp-sponsor #yiv1279416410ov ul {margin:0;padding:0 0 0 8px;}#yiv1279416410 #yiv1279416410ygrp-text {font-family:Georgia;}#yiv1279416410 #yiv1279416410ygrp-text p {margin:0 0 1em 0;}#yiv1279416410 #yiv1279416410ygrp-text tt {font-size:120%;}#yiv1279416410 #yiv1279416410ygrp-vital ul li:last-child {border-right:none !important;}#yiv1279416410