Jumat, 31 Januari 2014

[belajar-excel] Digest Number 2759

5 New Messages

Digest #2759
1b
Re: kode macro sort expand selection [1 Attachment] by "hendrik karnadi" hendrikkarnadi
1d
Re: kode macro sort expand selection by "Mr. Kid" nmkid.family@ymail.com
2a
Re: Pisah kata, alt enter by "Bagus" bagus4bls

Messages

Thu Jan 30, 2014 6:38 am (PST) . Posted by:

achbar_auto

Kepada para master

saya mohon pencerahannya untuk kode macro dlm sorting data
saya sudah coba buat code macro untuk menjalankan SORT data,
tapi blm bisa untuk mejalankan fitur Sort Expand the Selection (seperti sorting manual)
saya lampirkan file contoh

mohon bantuannya untuk Kode macro
terima kasih atas bantuannya

Akbar


Thu Jan 30, 2014 7:39 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Akbar,
Coba bandingkan macro yang anda buat (macro1) dengan macro yang saya dapat melalui rekaman (macro2) berikut ini:
Sub Macro1()
    ActiveWorkbook.Worksheets("DATABASE").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DATABASE").AutoFilter.Sort.SortFields.Add Key:= _
        Range("A4:A58"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("DATABASE").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub Macro2()
    ActiveWorkbook.Worksheets("DATABASE").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DATABASE").Sort.SortFields.Add Key:=Range("A4:A15" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal'Macro1() A4:A58
    With ActiveWorkbook.Worksheets("DATABASE").Sort
       .SetRange Range("A3:D15")'Macro1() tidak ada
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

File tidak dilampirkan agar anda bisa mencobanya sendiri.

Salam,
HK

On Thursday, 30 January 2014, 21:39, "achbar_auto@yahoo.com" <achbar_auto@yahoo.com> wrote:

 
Kepada para master

saya mohon pencerahannya untuk kode macro dlm sorting data
saya sudah coba buat code macro untuk menjalankan SORT data,
tapi blm bisa untuk mejalankan fitur Sort Expand the Selection (seperti sorting manual)
saya lampirkan file contoh

mohon bantuannya untuk Kode macro
terima kasih atas bantuannya

Akbar

Thu Jan 30, 2014 8:07 am (PST) . Posted by:

"M. Akbar" achbar_auto

waahh........ siip, matur nuwun.... om hendrik    tidak serumit yang dibayangkan.

Pada Kamis, 30 Januari 2014 22:42, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

 
Hai Akbar,
Coba bandingkan macro yang anda buat (macro1) dengan macro yang saya dapat melalui rekaman (macro2) berikut ini:
Sub Macro1()
    ActiveWorkbook.Worksheets("DATABASE&quot;).AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DATABASE&quot;).AutoFilter.Sort.SortFields.Add Key:= _
        Range("A4:A58"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("DATABASE&quot;).AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Sub Macro2()
    ActiveWorkbook.Worksheets("DATABASE&quot;).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DATABASE&quot;).Sort.SortFields.Add Key:=Range("A4:A15" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal&#39;Macro1() A4:A58
    With ActiveWorkbook.Worksheets("DATABASE&quot;).Sort
       .SetRange Range("A3:D15")'Macro1() tidak ada
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

File tidak dilampirkan agar anda bisa mencobanya sendiri.

Salam,
HK

On Thursday, 30 January 2014, 21:39, "achbar_auto@yahoo.com" <achbar_auto@yahoo.com> wrote:

 
Kepada para master

saya mohon pencerahannya untuk kode macro dlm sorting data
saya sudah coba buat code macro untuk menjalankan SORT data,
tapi blm bisa untuk mejalankan fitur Sort Expand the Selection (seperti sorting manual)
saya lampirkan file contoh

mohon bantuannya untuk Kode macro
terima kasih atas bantuannya

Akbar

Thu Jan 30, 2014 12:42 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Sepertinya ingin sort area range a4:d15 dengan kolom kunci sort adalah
kolom pertama (kolom A terpilih).
Coba perhatikan struktur methods sort milik object range :
*expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header,
OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2,
DataOption3)*

expression bisa diganti dengan object range, baik dalam sebuah variabel
ataupun disebut secara langsung.
key1 sampai key3 bisa diisi salah satu range yang menjadi kunci
order1 sampai order3 dipilih xlascending atau xldescending tergantung
kebutuhan setiap key-nya
header dipilih xlyes kalau ada baris header dalam expression dan xlno kalau
tanpa baris header
orientation dipilih xlsortcolumns jika akan sort data per kolom
(baris-baris record hasil sort akan berubah letaknya). isi atau pilih
xlsortrows jika akan sort per baris (kolom-kolom tabel hasil sort akan
berubah letaknya)

[script1]
untuk kasus diatas, baris script-nya :
range("a4:d15").sort range("a4") , xlascending , header:=xlyes,
orientation:=xlsortcolumn

[script2]
jika range("a4:d15") disimpan dalam variabel range seperti variabel bernama
rngData, maka bentuknya menjadi :
dim rngData as range
set rngData=range("a4:d15")
*rngdata*.sort *rngdata.resize(1,1)* , xlascending , header:=xlyes,
orientation:=xlsortcolumn

script1 dan script2 bersifat statis. jika data berubah jumlah recordnya,
bisa jadi tidak semua record akan ter-sort. Dengan mengubah bentuk scipt1
menjadi bentuk script2, maka ada potensi untuk dikembangkan menjadi dinamis
mengikuti jumlah record data. Bagian yang perlu didinamiskan adalag script2
baris pendefinisi range yang akan di-sort, yaitu yang berbunyi :
set rngData=range("a4:d15")

Coba pelajari cara mendefinisikan range dari yang statis sampai dinamis
mulai dari sini<http://b-excel.blogspot.com/2013/09/belajarvba-011-range-01-berdasar-alamat.html>sampai
bagian yang ada
disini<http://b-excel.blogspot.com/2013/09/belajarvba-011-range-06-range-ke-range.html>
.

Wassalam,
Kid.

2014-01-30 hendrik karnadi <hendrikkarnadi@yahoo.com>:

>
>
> Hai Akbar,
> Coba bandingkan macro yang anda buat (macro1) dengan macro yang saya dapat
> melalui rekaman (macro2) berikut ini:
> Sub Macro1()
> ActiveWorkbook.Worksheets("DATABASE&quot;).AutoFilter.Sort.SortFields.Clear
> ActiveWorkbook.Worksheets("DATABASE&quot;).AutoFilter.Sort.SortFields.Add
> Key:= _
> Range("A4:A58"), SortOn:=xlSortOnValues, Order:=xlAscending,
> DataOption:= _
> xlSortNormal
> With ActiveWorkbook.Worksheets("DATABASE&quot;).AutoFilter.Sort
> .Header = xlYes
> .MatchCase = False
> .Orientation = xlTopToBottom
> .SortMethod = xlPinYin
> .Apply
> End With
> End Sub
>
> Sub Macro2()
> ActiveWorkbook.Worksheets("DATABASE&quot;).Sort.SortFields.Clear
> ActiveWorkbook.Worksheets("DATABASE&quot;).Sort.SortFields.Add Key:=Range("
> A4:A15" _
> ), SortOn:=xlSortOnValues, Order:=xlAscending,
> DataOption:=xlSortNormal 'Macro1() A4:A58
> With ActiveWorkbook.Worksheets("DATABASE&quot;).Sort
> .SetRange Range("A3:D15") 'Macro1() tidak ada
> .Header = xlYes
> .MatchCase = False
> .Orientation = xlTopToBottom
> .SortMethod = xlPinYin
> .Apply
> End With
> End Sub
>
> File tidak dilampirkan agar anda bisa mencobanya sendiri.
>
> Salam,
> HK
>
>
> On Thursday, 30 January 2014, 21:39, "achbar_auto@yahoo.com" <
> achbar_auto@yahoo.com> wrote:
>
> Kepada para master
>
> saya mohon pencerahannya untuk kode macro dlm sorting data
> saya sudah coba buat code macro untuk menjalankan SORT data,
> tapi blm bisa untuk mejalankan fitur Sort Expand the Selection (seperti
> sorting manual)
> saya lampirkan file contoh
>
> mohon bantuannya untuk Kode macro
> terima kasih atas bantuannya
>
> Akbar
>
>
>
>
>

Thu Jan 30, 2014 4:39 pm (PST) . Posted by:

"Bagus" bagus4bls

Buka sheet baru,
Pilih cell A1, tekan tombol F2
lalu tekan tombol Alt+Enter

Pada cell B1 ketik =Code(A1)
Lihat hasilnya..

Wassalam

~ Bagus ~

----- Original Message -----
From: Abeutthank
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 30, 2014 11:16 AM
Subject: Re: [belajar-excel] Pisah kata, alt enter

Terimakasih pak. Ternyata alt enter jadi char(10).

Char 10 itu apa ya pak? Ndada di help excell.
Bdw rumusnya sangat sesuai keinginan.
Makasih pak
Wassalam

Sent from Samsung Mobile

Bagus <bagus@kingjim.co.id> wrote:



Maaf seharusnya begini:

Coba begini pada B1:
=TRIM(MID(SUBSTITUTE($A1,CHAR(10),REPT(CHAR(10),LEN($A1))),((COLUMNS($A:A)-1)*LEN($A1))+1,LEN($A1)))

Wassalam

~ Bagus ~

----- Original Message -----
From: Bagus
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 30, 2014 7:53 AM
Subject: Re: [belajar-excel] Pisah kata, alt enter



Hai Utthank;

Coba begini pada B1:
=TRIM(MID(SUBSTITUTE($A6,CHAR(10),REPT(CHAR(10),LEN($A6))),((COLUMNS($A:A)-1)*LEN($A6))+1,LEN($A6)))

Copas kekanan

Wassalam

~ Bagus ~

----- Original Message -----
From: Abeutthank
To: belajar-excel@yahoogroups.com
Sent: Thursday, January 30, 2014 7:27 AM
Subject: [belajar-excel] Pisah kata, alt enter

Azw

Saya ada kasus sbb:
- di sel a1 ada 3 baris kata
- tiap barisnya di pisahkan dgn alt enter
- tidak ada spasi pada akhir kata
Yg ingin saya lakukan
Memisahkan 3 baris kata d sel a1 tersebut di sel b1 b2 dan b3
Ex
Di Sel a1 tertulis:
kepada[alt enter]
yth[alt enter]
abeutthank

Yg di inginkan kata tersebut terpecah jadi:
B1: kepada
B2: yth
B3: abeutthank

Terimakasih
Wassalam

Sent from Samsung Mobile

GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 04.18

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)