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' [email protected]
[belajar-excel]" <[email protected]> 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 [email protected] [belajar-excel]
<[email protected]>:
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
