Senin, 10 November 2014

[belajar-excel] Digest Number 3178

12 Messages

Digest #3178
1a
Re: script textbox by "Andrie Amorius"
2.1
2.2
Re: fungsi find and select by "Ahmad Syaifullah Lubis" syaifullah
3b
Re: Informasi Data by "Mr. Kid" nmkid.family@ymail.com
3c
Re: Informasi Data by "L_Pcs" leopcs81
4a
pecahan desimal by "Andrie Amorius"
4b
Re: pecahan desimal by "hendrik karnadi" hendrikkarnadi
5a

Messages

Sun Nov 9, 2014 6:11 am (PST) . Posted by:

"Andrie Amorius"

Pembelajaran baru, terimakasih Mr. Kid...
Masalah terpecahkan...
Bisa mohon bantuannya lg g??!
Saya sudah buat script agar textbox hanya bisa diinput dgn angka n sudah
ada separator ribuannya, tetapi tdk bisa menampilkan pecahan desimal.
Saya perlu pecahan 2 desimal, apa yg hrs saya tambahkan??!
Terimakasih sblmnya...

On Sunday, November 9, 2014, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Wa'alaikumussalam Wr. Wb.
>
> Coba jalan-jalan kesini
> <http://b-excel.blogspot.com/2013/08/belajarvba-008-blok-if.html>,
> terutama pada bagian '*Penggunaan operator logika dalam IF*'.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
> 2014-11-09 13:10 GMT+11:00 Andrie Amorius bm78ar@gmail.com
> <javascript:_e(%7B%7D,'cvml','bm78ar@gmail.com');> [belajar-excel] <
> belajar-excel@yahoogroups.com
> <javascript:_e(%7B%7D,'cvml','belajar-excel@yahoogroups.com');>>:
>
>>
>>
>> Assalamu'alaikum....
>>
>> Mohon bantuannya paar master,
>>
>> *Pertama*
>> Bisa g script ini dipersingkat??!
>> If TextBox1.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox1.SetFocus
>> Exit Sub
>> ElseIf TextBox2.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox2.SetFocus
>> Exit Sub
>> ElseIf TextBox3.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox3.SetFocus
>> Exit Sub
>> ElseIf TextBox4.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox4.SetFocus
>> Exit Sub
>> ElseIf TextBox5.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox5.SetFocus
>> Exit Sub
>> ElseIf TextBox6.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox6.SetFocus

>> Exit Sub
>> ElseIf TextBox7.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox7.SetFocus
>> Exit Sub
>> ElseIf TextBox8.Value = "" Then
>> MsgBox "TIDAK BOLEH ADA FIELD YANG KOSONG", _
>> vbOKOnly + vbInformation, "GAGAL SIMPAN"
>> TextBox8.SetFocus
>> Exit Sub
>> ini script untuk jika salah satu dari 8 field textbox kosong....

>>
>>
>> *Kedua*
>> Bagaimana scriptnya dimana MsgBox br akan keluar jika keseluruhan (8
>> field Textbox) yg kosong, tetapi tidak akan keluar jika hanya 1 ato
>> beberapa field Textbox aja yg kosong
>>
>> *.*
>> Terimaksih sebelumnya
>>
>> Wassalamu'alaikum....
>>
>>
>>
>>
>>
>>
>>
>> Andrie Amorius, SE. Ak
>> Desk Service Quality (DSQ)
>> PT. Bank Riau Kepri
>> JL. Dt Setia Maharaja / Parit Indah
>> Perkantoran Grand Sudirman Blok B 2
>> Telp (0761) 7072974
>> Pekanbaru - Riau
>>
>>
>
>

--

Andrie Amorius, SE. Ak
Desk Service Quality (DSQ)
PT. Bank Riau Kepri
JL. Dt Setia Maharaja / Parit Indah
Perkantoran Grand Sudirman Blok B 2
Telp (0761) 7072974
Pekanbaru - Riau

Sun Nov 9, 2014 3:32 pm (PST) . Posted by:

"Nang Agus"

Coba dikirim ulang file yang tidak bisa, nanti dicari masalahnya.

2014-11-07 13:29 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
>
> Dear NangAgus,
> saya masih memerlukan solusi dari NangAgus, tetapi kenapa saya rubah di E2
> nya (di sheet "Search") tidak bisa ya, malah jadi kosong hasilnya. mohon
> solusinya. saya ubah tanda "," dengan ";" juga tidak berhasil. apakah
> rumus2 lainnya tidak diubah?
> karene dengan solusi NangAgus, saya ada kepikiran semua sheet dicopy
> pastekan menjadi satu sheet, cuman tinggal nantinya saya cari bantuan untuk
> dibuatin macro cara mengcopy pastekan seluruh sheet yang ada ke dalam satu
> sheet yang baru.
> salam,
> ASL.
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Fri, 7 Nov 2014 06:37:14 +0700
>
> Subject: Re: [belajar-excel] fungsi find and select
>
>
>
> Mungkin jawaban ini sudah tidak diperlukan lagi:
>
> Pada E1 ubah menjadi: =COUNT(data!B3:B1000)
>
> Pada E2 ubah menjadi
> {=SUM(IF(ISERROR(SEARCH(E4,OFFSET(data!A2,1,F4,MAX(data!A3:*A1001*
> ),1),1)),0,1))}
> Ini merupakan array formula gunakan ctrl shift dan enter (CSE) untuk
> memasukkannya
>
> 2014-11-06 11:51 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear NangAgus,
> minta tolong bagaimana merubah range pada sheet "Search", karena di sheet
> "data" itu sudah ada penambahan baris contoh data saya sudah ada 62 row,
> tetapi program searchnya hanya membaca sampai row ke 19 aja. mohon dikasih
> tahu rumusnya yang mana mesti diganti.
> terima kasih,
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Thu, 6 Nov 2014 11:29:57 +0700
>
> Subject: Re: [belajar-excel] fungsi find and select
>
>
>
> Karena file terlalu besar, file dapat ditaruh dimanapun dengan link cara
> mengunduhnya. inti dari formula yang dibuat adalah datanya dijadikan satu
> dahulu, dengan cara formula seperti contoh atau copy paste.
> tentunya lebih mudah (kelihataanya, tapi membuatnya juga sulit bagi saya)
> menggunakan macro.
>
> 2014-11-05 16:30 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear NangAgus,
> terima kasih sekali atas solusi formulanya.
> setelah saya coba tambahkan beberapa baris data, kemudian saya masuk ke
> sheet "Search" dan saya ketikkan kata yang ingin saya cari, tetapi tidak
> berhasil. mohon pencerahan dari rumus2 yang belum saya ketahui artinya.
>
> terima kasih,
>
> ASL
>
>
> --- Mods ---
> File lampiran yang lebih dari 250KB dilepas dari email. Silakan mengirim
> ulang file lampiran dengan cara me-reply email ini. Usahakan ukuran file
> lampiran tidak melebihi 250KB.
> ----------------
>
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Wed, 5 Nov 2014 09:03:10 +0700
> Subject: Re: [belajar-excel] fungsi find and select [1 Attachment]
>
>
>
> Sebaiknya data dijadikan satu dahulu agar mudah untuk dicari,
> Pakai formula saja ya.... tetapi datanya saya jadikan satu dulu
>
> Wasalam
>
> NangAgus
>
>
> 2014-11-04 21:22 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> dear be exceller,
> berikut saya attachmentkan data dimaksud.
> contoh kasus 1 file excel yang memiliki 4 sheets. target yang dicari word
> "wagura". maka kita ambil menu find dan ketik wagura di find what.
> optionnya within adalah woorkbook. nah setelah diklik find all akan
> muncullah 10 cell (found).
> yang saya inginkan bagaimana 10 cell tsb dapat kita copy pastekan ke
> tempat lain/lembaran kerja kita. mungkin kalau data yang ditemukan sedikit
> tidak merepotkan, tetapi apabila data yang ditemukan 100an data tentu akan
> merepotkan kita.
> terima kasih, mudah2an ada pakar yang dapat membantu.
>
> salam,
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Sat, 1 Nov 2014 11:28:08 +0700
> Subject: Re: [belajar-excel] fungsi find and select
>
>
>
> Mungkin bisa di sort, atau difilter atau pakai pivoat atau pakai formula,
> dan pasti bisa pakai macro (VBA) untuk mencari yang dibutuhkan. kalau sudah
> dikelompokkan baru di kopi,
> lebih bagus kalau ada data dummi yang bisa mewakili permasalahan,
> sekiranya data rahasia dapat dibuatkan data padanannya.
>
> Wasalam
>
>
> 2014-11-01 11:00 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dears be-Exceller,
>
> saya ada masalah dengan data2 keuangan proyek.
> setiap bulan ada 1 file yang isinya lebih dari 4 sheets.
> bila memakai fungsi dari excel "find and select" akan memakan tempo yang
> lama untuk mengambil data tsb, karena harus satu per satu dicopy dan
> pastekan ke lokasi sheet lainya.
> apakah ada rekan2 yang bisa membantu bagaimana caranya agar setelah kita
> ke menu "find and select" teruskan kita ketik keyword yang akan kita cari,
> dan mengambil "find all". setelah muncul data2 tsb bagaimana caranya agar
> kita bisa mengcopy data2 tsb (bisa jadi lebih dari 20 cell yang ditemukan.
>
> demikian, semoga ada beexceller yang membantu.
>
> terima kasih,
>
> ASL
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Sun Nov 9, 2014 7:27 pm (PST) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Dear NangAgus
terlampir file dimaksud.
terima kasih,
ASL

To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Mon, 10 Nov 2014 06:32:19 +0700
Subject: Re: [belajar-excel] fungsi find and select

Coba dikirim ulang file yang tidak bisa, nanti dicari masalahnya.

2014-11-07 13:29 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear NangAgus,
saya masih memerlukan solusi dari NangAgus, tetapi kenapa saya rubah di E2 nya (di sheet "Search") tidak bisa ya, malah jadi kosong hasilnya. mohon solusinya. saya ubah tanda "," dengan ";" juga tidak berhasil. apakah rumus2 lainnya tidak diubah?
karene dengan solusi NangAgus, saya ada kepikiran semua sheet dicopy pastekan menjadi satu sheet, cuman tinggal nantinya saya cari bantuan untuk dibuatin macro cara mengcopy pastekan seluruh sheet yang ada ke dalam satu sheet yang baru.
salam,
ASL.
To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Fri, 7 Nov 2014 06:37:14 +0700
Subject: Re: [belajar-excel] fungsi find and select

Mungkin jawaban ini sudah tidak diperlukan lagi:

Pada E1 ubah menjadi: =COUNT(data!B3:B1000)

Pada E2 ubah menjadi {=SUM(IF(ISERROR(SEARCH(E4,OFFSET(data!A2,1,F4,MAX(data!A3:A1001),1),1)),0,1))}

Ini merupakan array formula gunakan ctrl shift
dan enter (CSE) untuk memasukkannya
2014-11-06 11:51 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear NangAgus,
minta tolong bagaimana merubah range pada sheet "Search", karena di sheet "data" itu sudah ada penambahan baris contoh data saya sudah ada 62 row, tetapi program searchnya hanya membaca sampai row ke 19 aja. mohon dikasih tahu rumusnya yang mana mesti diganti.
terima kasih,
ASL

To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Thu, 6 Nov 2014 11:29:57 +0700
Subject: Re: [belajar-excel] fungsi find and select

Karena file terlalu besar, file dapat ditaruh dimanapun dengan link cara mengunduhnya. inti dari formula yang dibuat adalah datanya dijadikan satu dahulu, dengan cara formula seperti contoh atau copy paste.
tentunya lebih mudah (kelihataanya, tapi membuatnya juga sulit bagi saya) menggunakan macro.

2014-11-05 16:30 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear NangAgus,terima kasih sekali atas solusi formulanya.setelah saya coba tambahkan beberapa baris data, kemudian saya masuk ke sheet "Search" dan saya ketikkan kata yang ingin saya cari, tetapi tidak berhasil. mohon pencerahan dari rumus2 yang belum saya ketahui artinya.
terima kasih,
ASL

--- Mods ---
File lampiran yang lebih dari 250KB dilepas dari email. Silakan mengirim ulang file lampiran dengan cara me-reply email ini. Usahakan ukuran file lampiran tidak melebihi 250KB.
----------------

To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Wed, 5 Nov 2014 09:03:10 +0700
Subject: Re: [belajar-excel] fungsi find and select [1 Attachment]

Sebaiknya data dijadikan satu dahulu agar mudah untuk dicari,
Pakai formula saja ya.... tetapi datanya saya jadikan satu dulu

Wasalam

NangAgus

2014-11-04 21:22 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

dear be exceller,
berikut saya attachmentkan data dimaksud.
contoh kasus 1 file excel yang memiliki 4 sheets. target yang dicari word "wagura". maka kita ambil menu find dan ketik wagura di find what. optionnya within adalah woorkbook. nah setelah diklik find all akan muncullah 10 cell (found).
yang saya inginkan bagaimana 10 cell tsb dapat kita copy pastekan ke tempat lain/lembaran kerja kita. mungkin kalau data yang ditemukan sedikit tidak merepotkan, tetapi apabila data yang ditemukan 100an data tentu akan merepotkan kita.
terima kasih, mudah2an ada pakar yang dapat membantu.

salam,

ASL

To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com

Date: Sat, 1 Nov 2014 11:28:08 +0700
Subject: Re: [belajar-excel] fungsi find and select

Mungkin bisa di sort, atau difilter atau pakai pivoat atau pakai formula, dan pasti bisa pakai macro (VBA) untuk mencari yang dibutuhkan. kalau sudah dikelompokkan baru di kopi,
lebih bagus kalau ada data dummi yang bisa mewakili permasalahan, sekiranya data rahasia dapat dibuatkan data padanannya.

Wasalam

2014-11-01 11:00 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Dears be-Exceller,
saya ada masalah dengan data2 keuangan proyek.setiap bulan ada 1 file yang isinya lebih dari 4 sheets.bila memakai fungsi dari excel "find and select" akan memakan tempo yang lama untuk mengambil data tsb, karena harus satu per satu dicopy dan pastekan ke lokasi sheet lainya.apakah ada rekan2 yang bisa membantu bagaimana caranya agar setelah kita ke menu "find and select" teruskan kita ketik keyword yang akan kita cari, dan mengambil "find all". setelah muncul data2 tsb bagaimana caranya agar kita bisa mengcopy data2 tsb (bisa jadi lebih dari 20 cell yang ditemukan.
demikian, semoga ada beexceller yang membantu.
terima kasih,
ASL











Sun Nov 9, 2014 7:57 pm (PST) . Posted by:

"Nang Agus"

di E2, formula:{=SUM(IF(ISERROR(SEARCH(E4;OFFSET(data!A2;1;F4;MAX(data!A3:
*A21*);1);1));0;1))}
diubah menjadi {=SUM(IF(ISERROR(SEARCH(E4;OFFSET(data!A2;1;F4;MAX(data!A3:
*A100*);1);1));0;1))}

2014-11-10 8:16 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear NangAgus
> terlampir file dimaksud.
> terima kasih,
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Mon, 10 Nov 2014 06:32:19 +0700
> Subject: Re: [belajar-excel] fungsi find and select
>
>
>
> Coba dikirim ulang file yang tidak bisa, nanti dicari masalahnya.
>
>
> 2014-11-07 13:29 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
>
> Dear NangAgus,
> saya masih memerlukan solusi dari NangAgus, tetapi kenapa saya rubah di E2
> nya (di sheet "Search") tidak bisa ya, malah jadi kosong hasilnya. mohon
> solusinya. saya ubah tanda "," dengan ";" juga tidak berhasil. apakah
> rumus2 lainnya tidak diubah?
> karene dengan solusi NangAgus, saya ada kepikiran semua sheet dicopy
> pastekan menjadi satu sheet, cuman tinggal nantinya saya cari bantuan untuk
> dibuatin macro cara mengcopy pastekan seluruh sheet yang ada ke dalam satu
> sheet yang baru.
> salam,
> ASL.
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Fri, 7 Nov 2014 06:37:14 +0700
>
> Subject: Re: [belajar-excel] fungsi find and select
>
>
>
> Mungkin jawaban ini sudah tidak diperlukan lagi:
> Pada E1 ubah menjadi: =COUNT(data!B3:B1000)
> Pada E2 ubah menjadi
> {=SUM(IF(ISERROR(SEARCH(E4,OFFSET(data!A2,1,F4,MAX(data!A3:*A1001*
> ),1),1)),0,1))}
> Ini merupakan array formula gunakan ctrl shift dan enter (CSE) untuk
> memasukkannya
>
> 2014-11-06 11:51 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear NangAgus,
> minta tolong bagaimana merubah range pada sheet "Search", karena di sheet
> "data" itu sudah ada penambahan baris contoh data saya sudah ada 62 row,
> tetapi program searchnya hanya membaca sampai row ke 19 aja. mohon dikasih
> tahu rumusnya yang mana mesti diganti.
> terima kasih,
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Thu, 6 Nov 2014 11:29:57 +0700
>
> Subject: Re: [belajar-excel] fungsi find and select
>
>
>
> Karena file terlalu besar, file dapat ditaruh dimanapun dengan link cara
> mengunduhnya. inti dari formula yang dibuat adalah datanya dijadikan satu
> dahulu, dengan cara formula seperti contoh atau copy paste.
> tentunya lebih mudah (kelihataanya, tapi membuatnya juga sulit bagi saya)
> menggunakan macro.
>
> 2014-11-05 16:30 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear NangAgus,
> terima kasih sekali atas solusi formulanya.
> setelah saya coba tambahkan beberapa baris data, kemudian saya masuk ke
> sheet "Search" dan saya ketikkan kata yang ingin saya cari, tetapi tidak
> berhasil. mohon pencerahan dari rumus2 yang belum saya ketahui artinya.
>
> terima kasih,
>
> ASL
>
>
> --- Mods ---
> File lampiran yang lebih dari 250KB dilepas dari email. Silakan mengirim
> ulang file lampiran dengan cara me-reply email ini. Usahakan ukuran file
> lampiran tidak melebihi 250KB.
> ----------------
>
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Wed, 5 Nov 2014 09:03:10 +0700
> Subject: Re: [belajar-excel] fungsi find and select [1 Attachment]
>
>
>
>
> Sebaiknya data dijadikan satu dahulu agar mudah untuk dicari,
> Pakai formula saja ya.... tetapi datanya saya jadikan satu dulu
>
> Wasalam
>
> NangAgus
>
>
> 2014-11-04 21:22 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> dear be exceller,
> berikut saya attachmentkan data dimaksud.
> contoh kasus 1 file excel yang memiliki 4 sheets. target yang dicari word
> "wagura". maka kita ambil menu find dan ketik wagura di find what.
> optionnya within adalah woorkbook. nah setelah diklik find all akan
> muncullah 10 cell (found).
> yang saya inginkan bagaimana 10 cell tsb dapat kita copy pastekan ke
> tempat lain/lembaran kerja kita. mungkin kalau data yang ditemukan sedikit
> tidak merepotkan, tetapi apabila data yang ditemukan 100an data tentu akan
> merepotkan kita.
> terima kasih, mudah2an ada pakar yang dapat membantu.
>
> salam,
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: belajar-excel@yahoogroups.com
> Date: Sat, 1 Nov 2014 11:28:08 +0700
> Subject: Re: [belajar-excel] fungsi find and select
>
>
>
> Mungkin bisa di sort, atau difilter atau pakai pivoat atau pakai formula,
> dan pasti bisa pakai macro (VBA) untuk mencari yang dibutuhkan. kalau sudah
> dikelompokkan baru di kopi,
> lebih bagus kalau ada data dummi yang bisa mewakili permasalahan,
> sekiranya data rahasia dapat dibuatkan data padanannya.
>
> Wasalam
>
>
> 2014-11-01 11:00 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dears be-Exceller,
>
> saya ada masalah dengan data2 keuangan proyek.
> setiap bulan ada 1 file yang isinya lebih dari 4 sheets.
> bila memakai fungsi dari excel "find and select" akan memakan tempo yang
> lama untuk mengambil data tsb, karena harus satu per satu dicopy dan
> pastekan ke lokasi sheet lainya.
> apakah ada rekan2 yang bisa membantu bagaimana caranya agar setelah kita
> ke menu "find and select" teruskan kita ketik keyword yang akan kita cari,
> dan mengambil "find all". setelah muncul data2 tsb bagaimana caranya agar
> kita bisa mengcopy data2 tsb (bisa jadi lebih dari 20 cell yang ditemukan.
>
> demikian, semoga ada beexceller yang membantu.
>
> terima kasih,
>
> ASL
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Sun Nov 9, 2014 5:57 pm (PST) . Posted by:

"L_Pcs" leopcs81

Mas Kid,
Terima kasih pivot tabelnya.
Berhubung saya belum/jarang menggunakan pivot tabel, maka saya belum terlalu paham langkah2 pembuatannya.
Data "Id" dan "File" sesungguhnya merupakan bertipe data numerik. pada file, data "Id" dan "File" memang berisi angka dengan format "." sebagai pemisah kode tertentu dan itu merupakan out put asli dari program.

dalam penggunaan nomor "Id" dan "File", dalam pengolahan data kedua tipe tersebut baik data bertipe teks/format tertentu maupun bertipe numerik sama-sama digunakan.
Yang diharapkan sebenarnya bagaimana caranya menampilkan informasi data tersebut dengan bertipe format asli maupun ketika bertipe numerik ?
untuk sementara tapa menggunakan pivot tabel...mesti belajar dulu nih. hehe...

On Saturday, November 8, 2014 1:36 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Hai Leo,

File terlampir menggunakan asumsi bahwa id maksimal berisi 14 karakter angka.
Pada file terlampir, seluruh id yang berisi angka dengan format tertentu diubah tipe datanya menjadi bertipe data numerik.
Dengan dibantu sebuah kolom penentu nomor kolom output, maka fitur pivot table bisa digunakan untuk kasus ini.

Penyiapan data dengan formula di sisi data, yaitu dengan 3 kolom berformula (bisa menjadi 1 kolom berformula saja) dengan 2 macam formula (bisa menjadi 1 macam saja). Formula bantu di sisi data yang sederhana tidak akan memberatkan kerja Excel. Fitur pivot table yang didesain untuk bekerja dengan jumlah record yang sangat banyak juga tidak akan terbebani dengan penambahan kolom pada sisi data.

Fitur Excel Table bisa dimanfaatkan agar tidak disibukkan dengan :
1. meng-copy formula di sisi data ketika data bertambah
2. mengubah-ubah referensi data source pada pivot table akibat berubahnya tabel sumber data

Wassalam,
Kid.

2014-11-06 18:29 GMT+11:00 leo pcs leopcs81@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Slmt Siang Be-Excel,
Bagaimana caranya menyajikan semua informasi yg diinginkan...file terlampir.

salam,Leo


#yiv0171352570 #yiv0171352570 -- #yiv0171352570ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0171352570 #yiv0171352570ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0171352570 #yiv0171352570ygrp-mkp #yiv0171352570hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0171352570 #yiv0171352570ygrp-mkp #yiv0171352570ads {margin-bottom:10px;}#yiv0171352570 #yiv0171352570ygrp-mkp .yiv0171352570ad {padding:0 0;}#yiv0171352570 #yiv0171352570ygrp-mkp .yiv0171352570ad p {margin:0;}#yiv0171352570 #yiv0171352570ygrp-mkp .yiv0171352570ad a {color:#0000ff;text-decoration:none;}#yiv0171352570 #yiv0171352570ygrp-sponsor #yiv0171352570ygrp-lc {font-family:Arial;}#yiv0171352570 #yiv0171352570ygrp-sponsor #yiv0171352570ygrp-lc #yiv0171352570hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0171352570 #yiv0171352570ygrp-sponsor #yiv0171352570ygrp-lc .yiv0171352570ad {margin-bottom:10px;padding:0 0;}#yiv0171352570 #yiv0171352570actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0171352570 #yiv0171352570activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0171352570 #yiv0171352570activity span {font-weight:700;}#yiv0171352570 #yiv0171352570activity span:first-child {text-transform:uppercase;}#yiv0171352570 #yiv0171352570activity span a {color:#5085b6;text-decoration:none;}#yiv0171352570 #yiv0171352570activity span span {color:#ff7900;}#yiv0171352570 #yiv0171352570activity span .yiv0171352570underline {text-decoration:underline;}#yiv0171352570 .yiv0171352570attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0171352570 .yiv0171352570attach div a {text-decoration:none;}#yiv0171352570 .yiv0171352570attach img {border:none;padding-right:5px;}#yiv0171352570 .yiv0171352570attach label {display:block;margin-bottom:5px;}#yiv0171352570 .yiv0171352570attach label a {text-decoration:none;}#yiv0171352570 blockquote {margin:0 0 0 4px;}#yiv0171352570 .yiv0171352570bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0171352570 .yiv0171352570bold a {text-decoration:none;}#yiv0171352570 dd.yiv0171352570last p a {font-family:Verdana;font-weight:700;}#yiv0171352570 dd.yiv0171352570last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0171352570 dd.yiv0171352570last p span.yiv0171352570yshortcuts {margin-right:0;}#yiv0171352570 div.yiv0171352570attach-table div div a {text-decoration:none;}#yiv0171352570 div.yiv0171352570attach-table {width:400px;}#yiv0171352570 div.yiv0171352570file-title a, #yiv0171352570 div.yiv0171352570file-title a:active, #yiv0171352570 div.yiv0171352570file-title a:hover, #yiv0171352570 div.yiv0171352570file-title a:visited {text-decoration:none;}#yiv0171352570 div.yiv0171352570photo-title a, #yiv0171352570 div.yiv0171352570photo-title a:active, #yiv0171352570 div.yiv0171352570photo-title a:hover, #yiv0171352570 div.yiv0171352570photo-title a:visited {text-decoration:none;}#yiv0171352570 div#yiv0171352570ygrp-mlmsg #yiv0171352570ygrp-msg p a span.yiv0171352570yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0171352570 .yiv0171352570green {color:#628c2a;}#yiv0171352570 .yiv0171352570MsoNormal {margin:0 0 0 0;}#yiv0171352570 o {font-size:0;}#yiv0171352570 #yiv0171352570photos div {float:left;width:72px;}#yiv0171352570 #yiv0171352570photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0171352570 #yiv0171352570photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0171352570 #yiv0171352570reco-category {font-size:77%;}#yiv0171352570 #yiv0171352570reco-desc {font-size:77%;}#yiv0171352570 .yiv0171352570replbq {margin:4px;}#yiv0171352570 #yiv0171352570ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0171352570 #yiv0171352570ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0171352570 #yiv0171352570ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0171352570 #yiv0171352570ygrp-mlmsg select, #yiv0171352570 input, #yiv0171352570 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0171352570 #yiv0171352570ygrp-mlmsg pre, #yiv0171352570 code {font:115% monospace;}#yiv0171352570 #yiv0171352570ygrp-mlmsg * {line-height:1.22em;}#yiv0171352570 #yiv0171352570ygrp-mlmsg #yiv0171352570logo {padding-bottom:10px;}#yiv0171352570 #yiv0171352570ygrp-msg p a {font-family:Verdana;}#yiv0171352570 #yiv0171352570ygrp-msg p#yiv0171352570attach-count span {color:#1E66AE;font-weight:700;}#yiv0171352570 #yiv0171352570ygrp-reco #yiv0171352570reco-head {color:#ff7900;font-weight:700;}#yiv0171352570 #yiv0171352570ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0171352570 #yiv0171352570ygrp-sponsor #yiv0171352570ov li a {font-size:130%;text-decoration:none;}#yiv0171352570 #yiv0171352570ygrp-sponsor #yiv0171352570ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0171352570 #yiv0171352570ygrp-sponsor #yiv0171352570ov ul {margin:0;padding:0 0 0 8px;}#yiv0171352570 #yiv0171352570ygrp-text {font-family:Georgia;}#yiv0171352570 #yiv0171352570ygrp-text p {margin:0 0 1em 0;}#yiv0171352570 #yiv0171352570ygrp-text tt {font-size:120%;}#yiv0171352570 #yiv0171352570ygrp-vital ul li:last-child {border-right:none !important;}#yiv0171352570

Sun Nov 9, 2014 9:04 pm (PST) . Posted by:

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

Coretan tentang pivot table bisa dilihat mulai dari sini
<http://excel-mr-kid.blogspot.com/2013/04/pivot-table-1-kenalan.html>.

Wassalam,
Kid.

On Mon, Nov 10, 2014 at 12:57 PM, L_Pcs leopcs81@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Mas Kid,
>
> Terima kasih pivot tabelnya.
> Berhubung saya belum/jarang menggunakan pivot tabel, maka saya belum
> terlalu paham langkah2 pembuatannya.
>
> Data "Id" dan "File" sesungguhnya merupakan bertipe data numerik. pada
> file, data "Id" dan "File" memang berisi angka dengan format "." sebagai
> pemisah kode tertentu dan itu merupakan out put asli dari program.
>
> dalam penggunaan nomor "Id" dan "File", dalam pengolahan data kedua tipe
> tersebut baik data bertipe teks/format tertentu maupun bertipe numerik
> sama-sama digunakan.
>
> Yang diharapkan sebenarnya bagaimana caranya menampilkan informasi data
> tersebut dengan bertipe format asli maupun ketika bertipe numerik ?
> untuk sementara tapa menggunakan pivot tabel...mesti belajar dulu nih.
> hehe...
>
>
> On Saturday, November 8, 2014 1:36 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Hai Leo,
>
> File terlampir menggunakan asumsi bahwa id maksimal berisi 14 karakter
> angka.
> Pada file terlampir, seluruh id yang berisi angka dengan format tertentu
> diubah tipe datanya menjadi bertipe data numerik.
> Dengan dibantu sebuah kolom penentu nomor kolom output, maka fitur pivot
> table bisa digunakan untuk kasus ini.
>
> Penyiapan data dengan formula di sisi data, yaitu dengan 3 kolom
> berformula (bisa menjadi 1 kolom berformula saja) dengan 2 macam formula
> (bisa menjadi 1 macam saja). Formula bantu di sisi data yang sederhana
> tidak akan memberatkan kerja Excel. Fitur pivot table yang didesain untuk
> bekerja dengan jumlah record yang sangat banyak juga tidak akan terbebani
> dengan penambahan kolom pada sisi data.
>
> Fitur Excel Table bisa dimanfaatkan agar tidak disibukkan dengan :
> 1. meng-copy formula di sisi data ketika data bertambah
> 2. mengubah-ubah referensi data source pada pivot table akibat berubahnya
> tabel sumber data
>
> Wassalam,
> Kid.
>
>
> 2014-11-06 18:29 GMT+11:00 leo pcs leopcs81@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Slmt Siang Be-Excel,
>
> Bagaimana caranya menyajikan semua informasi yg diinginkan...file
> terlampir.
>
> salam,
> Leo
>
>
>
>
>
>

Mon Nov 10, 2014 12:50 am (PST) . Posted by:

"L_Pcs" leopcs81

Terima Kasih link nya Mas Kid, pastinya akan di pelajari nih langkah-langkahnya.
Namun untuk kasus "Informasi Data", yang diharapkan yaitu hanya menggunakan formula saja. karena dari informasi data tersebut nantinya akan dikembangkan lagi untuk kasus lainya lg.
Salam,Leo

On Monday, November 10, 2014 12:04 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Coretan tentang pivot table bisa dilihat mulai dari sini.

Wassalam,
Kid.

On Mon, Nov 10, 2014 at 12:57 PM, L_Pcs leopcs81@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Mas Kid,
Terima kasih pivot tabelnya.
Berhubung saya belum/jarang menggunakan pivot tabel, maka saya belum terlalu paham langkah2 pembuatannya.
Data "Id" dan "File" sesungguhnya merupakan bertipe data numerik. pada file, data "Id" dan "File" memang berisi angka dengan format "." sebagai pemisah kode tertentu dan itu merupakan out put asli dari program.

dalam penggunaan nomor "Id" dan "File", dalam pengolahan data kedua tipe tersebut baik data bertipe teks/format tertentu maupun bertipe numerik sama-sama digunakan.
Yang diharapkan sebenarnya bagaimana caranya menampilkan informasi data tersebut dengan bertipe format asli maupun ketika bertipe numerik ?
untuk sementara tapa menggunakan pivot tabel...mesti belajar dulu nih. hehe...

On Saturday, November 8, 2014 1:36 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Hai Leo,

File terlampir menggunakan asumsi bahwa id maksimal berisi 14 karakter angka.
Pada file terlampir, seluruh id yang berisi angka dengan format tertentu diubah tipe datanya menjadi bertipe data numerik.
Dengan dibantu sebuah kolom penentu nomor kolom output, maka fitur pivot table bisa digunakan untuk kasus ini.

Penyiapan data dengan formula di sisi data, yaitu dengan 3 kolom berformula (bisa menjadi 1 kolom berformula saja) dengan 2 macam formula (bisa menjadi 1 macam saja). Formula bantu di sisi data yang sederhana tidak akan memberatkan kerja Excel. Fitur pivot table yang didesain untuk bekerja dengan jumlah record yang sangat banyak juga tidak akan terbebani dengan penambahan kolom pada sisi data.

Fitur Excel Table bisa dimanfaatkan agar tidak disibukkan dengan :
1. meng-copy formula di sisi data ketika data bertambah
2. mengubah-ubah referensi data source pada pivot table akibat berubahnya tabel sumber data

Wassalam,
Kid.

2014-11-06 18:29 GMT+11:00 leo pcs leopcs81@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  Slmt Siang Be-Excel,
Bagaimana caranya menyajikan semua informasi yg diinginkan...file terlampir.

salam,Leo


#yiv5373508197 #yiv5373508197 -- #yiv5373508197ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5373508197 #yiv5373508197ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5373508197 #yiv5373508197ygrp-mkp #yiv5373508197hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5373508197 #yiv5373508197ygrp-mkp #yiv5373508197ads {margin-bottom:10px;}#yiv5373508197 #yiv5373508197ygrp-mkp .yiv5373508197ad {padding:0 0;}#yiv5373508197 #yiv5373508197ygrp-mkp .yiv5373508197ad p {margin:0;}#yiv5373508197 #yiv5373508197ygrp-mkp .yiv5373508197ad a {color:#0000ff;text-decoration:none;}#yiv5373508197 #yiv5373508197ygrp-sponsor #yiv5373508197ygrp-lc {font-family:Arial;}#yiv5373508197 #yiv5373508197ygrp-sponsor #yiv5373508197ygrp-lc #yiv5373508197hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5373508197 #yiv5373508197ygrp-sponsor #yiv5373508197ygrp-lc .yiv5373508197ad {margin-bottom:10px;padding:0 0;}#yiv5373508197 #yiv5373508197actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5373508197 #yiv5373508197activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5373508197 #yiv5373508197activity span {font-weight:700;}#yiv5373508197 #yiv5373508197activity span:first-child {text-transform:uppercase;}#yiv5373508197 #yiv5373508197activity span a {color:#5085b6;text-decoration:none;}#yiv5373508197 #yiv5373508197activity span span {color:#ff7900;}#yiv5373508197 #yiv5373508197activity span .yiv5373508197underline {text-decoration:underline;}#yiv5373508197 .yiv5373508197attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5373508197 .yiv5373508197attach div a {text-decoration:none;}#yiv5373508197 .yiv5373508197attach img {border:none;padding-right:5px;}#yiv5373508197 .yiv5373508197attach label {display:block;margin-bottom:5px;}#yiv5373508197 .yiv5373508197attach label a {text-decoration:none;}#yiv5373508197 blockquote {margin:0 0 0 4px;}#yiv5373508197 .yiv5373508197bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5373508197 .yiv5373508197bold a {text-decoration:none;}#yiv5373508197 dd.yiv5373508197last p a {font-family:Verdana;font-weight:700;}#yiv5373508197 dd.yiv5373508197last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5373508197 dd.yiv5373508197last p span.yiv5373508197yshortcuts {margin-right:0;}#yiv5373508197 div.yiv5373508197attach-table div div a {text-decoration:none;}#yiv5373508197 div.yiv5373508197attach-table {width:400px;}#yiv5373508197 div.yiv5373508197file-title a, #yiv5373508197 div.yiv5373508197file-title a:active, #yiv5373508197 div.yiv5373508197file-title a:hover, #yiv5373508197 div.yiv5373508197file-title a:visited {text-decoration:none;}#yiv5373508197 div.yiv5373508197photo-title a, #yiv5373508197 div.yiv5373508197photo-title a:active, #yiv5373508197 div.yiv5373508197photo-title a:hover, #yiv5373508197 div.yiv5373508197photo-title a:visited {text-decoration:none;}#yiv5373508197 div#yiv5373508197ygrp-mlmsg #yiv5373508197ygrp-msg p a span.yiv5373508197yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5373508197 .yiv5373508197green {color:#628c2a;}#yiv5373508197 .yiv5373508197MsoNormal {margin:0 0 0 0;}#yiv5373508197 o {font-size:0;}#yiv5373508197 #yiv5373508197photos div {float:left;width:72px;}#yiv5373508197 #yiv5373508197photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5373508197 #yiv5373508197photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5373508197 #yiv5373508197reco-category {font-size:77%;}#yiv5373508197 #yiv5373508197reco-desc {font-size:77%;}#yiv5373508197 .yiv5373508197replbq {margin:4px;}#yiv5373508197 #yiv5373508197ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5373508197 #yiv5373508197ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5373508197 #yiv5373508197ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5373508197 #yiv5373508197ygrp-mlmsg select, #yiv5373508197 input, #yiv5373508197 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5373508197 #yiv5373508197ygrp-mlmsg pre, #yiv5373508197 code {font:115% monospace;}#yiv5373508197 #yiv5373508197ygrp-mlmsg * {line-height:1.22em;}#yiv5373508197 #yiv5373508197ygrp-mlmsg #yiv5373508197logo {padding-bottom:10px;}#yiv5373508197 #yiv5373508197ygrp-msg p a {font-family:Verdana;}#yiv5373508197 #yiv5373508197ygrp-msg p#yiv5373508197attach-count span {color:#1E66AE;font-weight:700;}#yiv5373508197 #yiv5373508197ygrp-reco #yiv5373508197reco-head {color:#ff7900;font-weight:700;}#yiv5373508197 #yiv5373508197ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5373508197 #yiv5373508197ygrp-sponsor #yiv5373508197ov li a {font-size:130%;text-decoration:none;}#yiv5373508197 #yiv5373508197ygrp-sponsor #yiv5373508197ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5373508197 #yiv5373508197ygrp-sponsor #yiv5373508197ov ul {margin:0;padding:0 0 0 8px;}#yiv5373508197 #yiv5373508197ygrp-text {font-family:Georgia;}#yiv5373508197 #yiv5373508197ygrp-text p {margin:0 0 1em 0;}#yiv5373508197 #yiv5373508197ygrp-text tt {font-size:120%;}#yiv5373508197 #yiv5373508197ygrp-vital ul li:last-child {border-right:none !important;}#yiv5373508197

Sun Nov 9, 2014 7:27 pm (PST) . Posted by:

"Andrie Amorius"

Assalamu'alaikum....

Mohon bantuannya para master...
Saya sudah buat script ini:

Private Sub TextBox1_Change()
On Error GoTo abc
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub

abc: TextBox1 = ""
End Sub

agar textbox hanya bisa diinput dgn angka n sudah
ada separator ribuannya, tetapi tdk bisa menampilkan pecahan desimal.
Saya perlu pecahan 2 desimal, apa yg hrs saya tambahkan??!
Terimakasih sblmnya...

Wassalamu'alaikum...

--

Andrie Amorius, SE. Ak
Desk Service Quality (DSQ)
PT. Bank Riau Kepri
JL. Dt Setia Maharaja / Parit Indah
Perkantoran Grand Sudirman Blok B 2
Telp (0761) 7072974
Pekanbaru - Riau

Sun Nov 9, 2014 8:21 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba gantiTextBox1 = Format(TextBox1 * 1, "#,##0")menjadi
TextBox1 = Format(TextBox1 * 1, "#,##0.00")

Salam,
HK
From: "Andrie Amorius bm78ar@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 10 November 2014, 10:16
Subject: [belajar-excel] pecahan desimal

  Assalamu'alaikum....

Mohon bantuannya para master...
Saya sudah buat script ini:

Private Sub TextBox1_Change()
On Error GoTo abc
TextBox1 = Format(TextBox1 * 1, "#,##0")
Exit Sub

abc: TextBox1 = ""
End Sub

agar textbox hanya bisa diinput dgn angka n sudah
ada separator ribuannya, tetapi tdk bisa menampilkan pecahan desimal.
Saya perlu pecahan 2 desimal, apa yg hrs saya tambahkan??!
Terimakasih sblmnya...

Wassalamu'alaikum...

--

Andrie Amorius, SE. Ak
Desk Service Quality (DSQ)
PT. Bank Riau Kepri
JL. Dt Setia Maharaja / Parit Indah
Perkantoran Grand Sudirman Blok B 2
Telp (0761) 7072974
Pekanbaru - Riau
<!--#yiv5004358281 #yiv5004358281ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5004358281 #yiv5004358281ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5004358281 #yiv5004358281ygrp-mkp #yiv5004358281hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5004358281 #yiv5004358281ygrp-mkp #yiv5004358281ads {margin-bottom:10px;}#yiv5004358281 #yiv5004358281ygrp-mkp .yiv5004358281ad {padding:0 0;}#yiv5004358281 #yiv5004358281ygrp-mkp .yiv5004358281ad p {margin:0;}#yiv5004358281 #yiv5004358281ygrp-mkp .yiv5004358281ad a {color:#0000ff;text-decoration:none;}#yiv5004358281 #yiv5004358281ygrp-sponsor #yiv5004358281ygrp-lc {font-family:Arial;}#yiv5004358281 #yiv5004358281ygrp-sponsor #yiv5004358281ygrp-lc #yiv5004358281hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5004358281 #yiv5004358281ygrp-sponsor #yiv5004358281ygrp-lc .yiv5004358281ad {margin-bottom:10px;padding:0 0;}#yiv5004358281 #yiv5004358281actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5004358281 #yiv5004358281activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5004358281 #yiv5004358281activity span {font-weight:700;}#yiv5004358281 #yiv5004358281activity span:first-child {text-transform:uppercase;}#yiv5004358281 #yiv5004358281activity span a {color:#5085b6;text-decoration:none;}#yiv5004358281 #yiv5004358281activity span span {color:#ff7900;}#yiv5004358281 #yiv5004358281activity span .yiv5004358281underline {text-decoration:underline;}#yiv5004358281 .yiv5004358281attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5004358281 .yiv5004358281attach div a {text-decoration:none;}#yiv5004358281 .yiv5004358281attach img {border:none;padding-right:5px;}#yiv5004358281 .yiv5004358281attach label {display:block;margin-bottom:5px;}#yiv5004358281 .yiv5004358281attach label a {text-decoration:none;}#yiv5004358281 blockquote {margin:0 0 0 4px;}#yiv5004358281 .yiv5004358281bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5004358281 .yiv5004358281bold a {text-decoration:none;}#yiv5004358281 dd.yiv5004358281last p a {font-family:Verdana;font-weight:700;}#yiv5004358281 dd.yiv5004358281last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5004358281 dd.yiv5004358281last p span.yiv5004358281yshortcuts {margin-right:0;}#yiv5004358281 div.yiv5004358281attach-table div div a {text-decoration:none;}#yiv5004358281 div.yiv5004358281attach-table {width:400px;}#yiv5004358281 div.yiv5004358281file-title a, #yiv5004358281 div.yiv5004358281file-title a:active, #yiv5004358281 div.yiv5004358281file-title a:hover, #yiv5004358281 div.yiv5004358281file-title a:visited {text-decoration:none;}#yiv5004358281 div.yiv5004358281photo-title a, #yiv5004358281 div.yiv5004358281photo-title a:active, #yiv5004358281 div.yiv5004358281photo-title a:hover, #yiv5004358281 div.yiv5004358281photo-title a:visited {text-decoration:none;}#yiv5004358281 div#yiv5004358281ygrp-mlmsg #yiv5004358281ygrp-msg p a span.yiv5004358281yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5004358281 .yiv5004358281green {color:#628c2a;}#yiv5004358281 .yiv5004358281MsoNormal {margin:0 0 0 0;}#yiv5004358281 o {font-size:0;}#yiv5004358281 #yiv5004358281photos div {float:left;width:72px;}#yiv5004358281 #yiv5004358281photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5004358281 #yiv5004358281photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5004358281 #yiv5004358281reco-category {font-size:77%;}#yiv5004358281 #yiv5004358281reco-desc {font-size:77%;}#yiv5004358281 .yiv5004358281replbq {margin:4px;}#yiv5004358281 #yiv5004358281ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5004358281 #yiv5004358281ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5004358281 #yiv5004358281ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5004358281 #yiv5004358281ygrp-mlmsg select, #yiv5004358281 input, #yiv5004358281 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5004358281 #yiv5004358281ygrp-mlmsg pre, #yiv5004358281 code {font:115% monospace;}#yiv5004358281 #yiv5004358281ygrp-mlmsg * {line-height:1.22em;}#yiv5004358281 #yiv5004358281ygrp-mlmsg #yiv5004358281logo {padding-bottom:10px;}#yiv5004358281 #yiv5004358281ygrp-msg p a {font-family:Verdana;}#yiv5004358281 #yiv5004358281ygrp-msg p#yiv5004358281attach-count span {color:#1E66AE;font-weight:700;}#yiv5004358281 #yiv5004358281ygrp-reco #yiv5004358281reco-head {color:#ff7900;font-weight:700;}#yiv5004358281 #yiv5004358281ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5004358281 #yiv5004358281ygrp-sponsor #yiv5004358281ov li a {font-size:130%;text-decoration:none;}#yiv5004358281 #yiv5004358281ygrp-sponsor #yiv5004358281ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5004358281 #yiv5004358281ygrp-sponsor #yiv5004358281ov ul {margin:0;padding:0 0 0 8px;}#yiv5004358281 #yiv5004358281ygrp-text {font-family:Georgia;}#yiv5004358281 #yiv5004358281ygrp-text p {margin:0 0 1em 0;}#yiv5004358281 #yiv5004358281ygrp-text tt {font-size:120%;}#yiv5004358281 #yiv5004358281ygrp-vital ul li:last-child {border-right:none !important;}-->

Sun Nov 9, 2014 7:27 pm (PST) . Posted by:

"aris sarman farici"

Dear Pak Suyono,

terima kasih pak atas bantuannya.,

On Thursday, October 30, 2014 3:18 PM, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


Sore Pa Aris

Coba pake script ini, semoga sesuai keinginan dan tidak ada
debug,
Script tempatkan di module.

Option Explicit
Dim JmlDt As Integer
Dim FileName As String
Dim AktipSht As String
Dim FileOpen As String
Dim fd As FileDialog
Dim SelectItem As Variant
Public Sub Open_File()
On Error GoTo Err
Set fd = Application.FileDialog(msoFileDialogFilePicker)
FileName = ActiveWorkbook.Name
AktipSht = ActiveSheet.Name
Sheets(AktipSht).Cells.Clear
With fd
.Filters.Add "CSV (Comma Delimited)",
"*.csv"
.Filters.Add "Excel", "*.xls"
.AllowMultiSelect = True
If .Show = -1 Then
For Each SelectItem In .SelectedItems
Workbooks.Open FileName:=SelectItem
FileOpen = ActiveWorkbook.Name
Copy_File
Windows(FileOpen).Close False
Next
End If
End With
Set fd = Nothing
Exit Sub
Err:
MsgBox "Open file cancel", vbExclamation, "Error"
End Sub

'untuk mengkopi file yang dibuka.
Public Sub Copy_File()
'saya anggap data dimulai dari range (A1)

Range("A1").CurrentRegion.Copy
Windows(FileName).Activate
JmlDt =
Application.WorksheetFunction.CountA(Columns("A:A"))
JmlDt = JmlDt + 1
MsgBox JmlDt
Cells(JmlDt, 1).Select
ActiveSheet.Paste
End Sub

Salam
Suyono
From:belajar-excel@yahoogroups.com
[mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 30, 2014 9:09 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Script macro membuka file Excel


Dear Para Master Excel,

mohon bantuannya mengenai
scrip berikut :


1. Membuka file excel/CSV (
apapun jenis nama filenya )
script :

FileTerpilih =
Application.GetOpenFilename _
("CSV Files (*.csv),*.csv", Title:="Open
file", MultiSelect:=True)


Workbooks.Open Filename:=FileTerpilih

If VarType(FileTerpilih) =
vbBoolean Then

Exit Sub
End If

pada saat dijalankan debug
terjadi pada script : "Workbooks.Open Filename:=FileTerpilih"

mohon bantuannya apakah ada
yang salah dengan penulisan kodenya?

2. mengcopy data ke file yang
aktif atau terpilih
contoh file
"A" : file yang berisi macro

file "B" : file yang akan di copy datanya ke file A ( dengan cara
membuka file dengan script seperti diatas )
script :

Selection.Copy
Windows("A.xls").Activate ( apakah ada perintah
lain untuk memanggil file A tanpa harus mengetikan nama filenya )
Cells.Select
ActiveSheet.Paste


Mohon bantuannya...


Salam,

Aris Sarman F


Sun Nov 9, 2014 8:48 pm (PST) . Posted by:

mirza.fairuz

Dear Mr. Kid,

Terima kasih Mr.Kid sudah saya coba, dan berhasil semuanya. . . . .
tapi setiap saya klik command button Ambil Data, dia selalu membuka dan menutup otomatis file rujukan tersebut,
apakah ada cara agar file rujukan tersebut tidak terbuka sendiri dan terclose sendiri ?
karena saya mengaplikasikan file ini dengan file sharing, sehingga 4 user bisa mengambil data secara bersamaan, tanpa harus menunggu user pertama mengklik Ambil Data tersebut. . . .
mohon bantuannya Mr,
atas perhatiannya saya ucapkan terima kasih. . . . .


Hs,


M. Mirza

Sun Nov 9, 2014 8:57 pm (PST) . Posted by:

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

Kalau begitu ndak usah pakai baris untuk acara menutup workbook. Bukan
begitu ?

2014-11-10 15:10 GMT+11:00 mirza.fairuz@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Mr. Kid,
>
> Terima kasih Mr.Kid sudah saya coba, dan berhasil semuanya. . . . .
> tapi setiap saya klik command button Ambil Data, dia selalu membuka dan
> menutup otomatis file rujukan tersebut,
> apakah ada cara agar file rujukan tersebut tidak terbuka sendiri dan
> terclose sendiri ?
> karena saya mengaplikasikan file ini dengan file sharing, sehingga 4 user
> bisa mengambil data secara bersamaan, tanpa harus menunggu user pertama
> mengklik Ambil Data tersebut. . . .
> mohon bantuannya Mr,
> atas perhatiannya saya ucapkan terima kasih. . . . .
>
>
> Hs,
>
>
> M. Mirza
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar