Messages In This Digest (22 Messages)
- 1a.
- Re: mhon pencerahannya y .mengkapitalkan huruf? From: dwint ruswanto
- 1b.
- Re: mhon pencerahannya y .mengkapitalkan huruf? From: Kid Mr.
- 1c.
- mhon pencerahannya y .mengkapitalkan huruf? From: Tribadi Hadiatmojo
- 1d.
- Re: mhon pencerahannya y .mengkapitalkan huruf? From: Kid Mr.
- 1e.
- Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf? From: Sary Adm
- 1f.
- Re: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf? From: hendrik karnadi
- 1g.
- Re: mhon pencerahannya y .mengkapitalkan huruf? From: Kid Mr.
- 1h.
- Bls: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf From: Sary Adm
- 1i.
- Re: Bls: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan h From: Bambang Setiawan
- 1j.
- Re: Bls: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan h From: hendrik karnadi
- 2a.
- Re: menampilkan data berdasarkan kode From: Kid Mr.
- 3a.
- Protect Data validation (drop down list) dari copy-paste From: vna_gustiani
- 3b.
- Re: Protect Data validation (drop down list) dari copy-paste From: Kid Mr.
- 4a.
- Re: Cara ambil data dari File lain From: rodhy hakim
- 4b.
- Re: Cara ambil data dari File lain From: Kid Mr.
- 5a.
- Re: Bls: [belajar-excel] menampilkan data berdasarkan kode From: si.baee@yahoo.com
- 6a.
- Re: conditional formating untuk chart From: tuti andrayani
- 7a.
- Re: mscomm pada excel 2002 From: Contract Mining Assistant, Asam-Asam
- 7b.
- Re: mscomm pada excel 2002 From: Kid Mr.
- 8a.
- Re: Membuat Validasi utk Input Tanggal atau date From: milorambaldy
- 9a.
- Bls: [belajar-excel] table yang otomatis bertambah From: ghozi alkatiri
- 9b.
- Re: table yang otomatis bertambah From: Kid Mr.
Messages
- 1a.
-
Re: mhon pencerahannya y .mengkapitalkan huruf?
Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com
Mon Jun 11, 2012 9:39 pm (PDT)
coba gunakan formula PROPER
contoh:
=Proper(A1)
wassalam
-dwint-
Pada 12 Juni 2012 11:33, Sary Adm <sary_adm12@yahoo.com > menulis:
> **
>
>
> Aslam....
>
> minta tolong dibantu ya mr..
> cara mengkapitalkan huruf depan pada kata dalam excel,jdi kita tdk ush
> merubahnya 1/1.. trims sebelumnya...
>
> Wassalam...
>
>
>
- 1b.
-
Re: mhon pencerahannya y .mengkapitalkan huruf?
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Jun 11, 2012 9:40 pm (PDT)
Pak Dwint tempo hari sudah mengajukan solusi untuk memanfaatkan fungsi
Proper. Berikut kutipannya :
*coba gunakan Proper*
*
*
*misal, cell A1 berisi : isi cell ini huruf kecil semua*
*
*
*maka formula =Proper(A1) akan menghasilkan : Isi Cell Ini Huruf Kecil Semua
*
*
*
*wassalam,*
*
*
*-dwint-*
Wassalam,
Kid.
2012/6/12 Sary Adm <sary_adm12@yahoo.com >
> **
>
>
> Aslam....
>
> minta tolong dibantu ya mr..
> cara mengkapitalkan huruf depan pada kata dalam excel,jdi kita tdk ush
> merubahnya 1/1.. trims sebelumnya...
>
> Wassalam...
>
>
>
- 1c.
-
mhon pencerahannya y .mengkapitalkan huruf?
Posted by: "Tribadi Hadiatmojo" tribadi@ymail.com tribadi@ymail.com
Mon Jun 11, 2012 9:46 pm (PDT)
Rumus ngawur mohon pencerahan para pakar.
--- Mods ---
Awalnya posting ini diberi subject baru oleh Pak Tribadi.
Dimohon, ketika urun solusi, gunakan reply untuk me-reply thread dan tidak membuat subject baru. Subject baru berarti thread baru. Sayang kalau malah mempersulit pencarian kasus dimasa mendatang ketika membutuhkan.
------------ - 1d.
-
Re: mhon pencerahannya y .mengkapitalkan huruf?
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Jun 11, 2012 9:53 pm (PDT)
Ops... jangan-jangan Pak Tribadi memang akan membuat thread baru untuk
kasus mengkapitalkan karakter pertama kalimat.
waduh, maaf kalau begitu. Soalnya di badan email ndak ada gelagat
pengutaraan kasus, dan dalam file lampiran juga tidak ada kalimat
pertanyaan. Yang ada malah kallimat informasi.
btw,
Jika posting Pak Tribadi memang dimaksudkan thread baru, terimakasih sekali
jika Bapak bersedia posting ulang.
Untuk sementara (sebelum ada thread yang baru dari Pak Tribadi), formula
untuk mengkapitalkan karakter pertama kalimat bisa juga dengan :
(data di A1)
=upper( left( a1 ) ) & mid( a1 , 2 , 9^9 )
Wassalam,
Kid.
2012/6/12 Tribadi Hadiatmojo <tribadi@ymail.com >
> **
>
>
> Rumus ngawur mohon pencerahan para pakar.
>
> --- Mods ---
> Awalnya posting ini diberi subject baru oleh Pak Tribadi.
>
> Dimohon, ketika urun solusi, gunakan reply untuk me-reply thread dan tidak
> membuat subject baru. Subject baru berarti thread baru. Sayang kalau malah
> mempersulit pencarian kasus dimasa mendatang ketika membutuhkan.
> ------------
>
>
>
- 1e.
-
Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
Posted by: "Sary Adm" sary_adm12@yahoo.com sary_adm12
Mon Jun 11, 2012 9:53 pm (PDT)
di fungsi profer itu apakah hanya bisa mengkapitalkan huruf depannya saja, jika kita ingin huruf menjadi huruf besar semua, apakah ada cara lain lagi? maaf banget merepotkan. trima kasih.
_____________________ _________ __
Dari: dwint ruswanto <dwint.ruswanto@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Selasa, 12 Juni 2012 11:39
Judul: Re: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
coba gunakan formula PROPER
contoh:
=Proper(A1)
wassalam
-dwint-
Pada 12 Juni 2012 11:33, Sary Adm <sary_adm12@yahoo.com > menulis:
>
>Aslam....
>
>
>minta tolong dibantu ya mr..
>cara mengkapitalkan huruf depan pada kata dalam excel,jdi kita tdk ush merubahnya 1/1.. trims sebelumnya...
>
>
>Wassalam...
>
- 1f.
-
Re: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Mon Jun 11, 2012 9:57 pm (PDT)
Ketik function :
=Upper(A1)
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Sary Adm <sary_adm12@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Tuesday, 12 June 2012, 11:51
Subject: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
di fungsi profer itu apakah hanya bisa mengkapitalkan huruf depannya saja, jika kita ingin huruf menjadi huruf besar semua, apakah ada cara lain lagi? maaf banget merepotkan. trima kasih.
_____________________ _________ __
Dari: dwint ruswanto <dwint.ruswanto@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Selasa, 12 Juni 2012 11:39
Judul: Re: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
coba gunakan formula PROPER
contoh:
=Proper(A1)
wassalam
-dwint-
Pada 12 Juni 2012 11:33, Sary Adm <sary_adm12@yahoo.com > menulis:
>
>Aslam....
>
>
>minta tolong dibantu ya mr..
>cara mengkapitalkan huruf depan pada kata dalam excel,jdi kita tdk ush merubahnya 1/1.. trims sebelumnya...
>
>
>Wassalam...
>
- 1g.
-
Re: mhon pencerahannya y .mengkapitalkan huruf?
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Jun 11, 2012 9:58 pm (PDT)
mBak Sary yang baik,
Coba jalan-jalan menjelajahi aplikasi Excel. Disana ada menu formula.
Didalamnya ada grup Text. Didalamnya ada banyak sekali fungsi berkaitan
dengan data text.
Pilih satu dan tekan F1 atau cari di-Help.
Untuk kasus mengatur kapital atau non kapital, ada fungsi Upper [untuk
seluruh karakter dikapitalkan], Lower [lawannya upper], Proper [karakter
pertama setiap kata]
Wassalam,
Kid.
2012/6/12 Sary Adm <sary_adm12@yahoo.com >
> **
>
>
> di fungsi profer itu apakah hanya bisa mengkapitalkan huruf depannya saja,
> jika kita ingin huruf menjadi huruf besar semua, apakah ada cara lain lagi?
> maaf banget merepotkan. trima kasih.
>
>
>
> --------------------- ---------
> *Dari:* dwint ruswanto <dwint.ruswanto@gmail.com >
> *Kepada:* belajar-excel@yahoogroups. com
> *Dikirim:* Selasa, 12 Juni 2012 11:39
> *Judul:* Re: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
>
>
> coba gunakan formula PROPER
>
> contoh:
>
> =Proper(A1)
>
> wassalam
>
> -dwint-
>
> Pada 12 Juni 2012 11:33, Sary Adm <sary_adm12@yahoo.com > menulis:
>
> **
>
> Aslam....
>
> minta tolong dibantu ya mr..
> cara mengkapitalkan huruf depan pada kata dalam excel,jdi kita tdk ush
> merubahnya 1/1.. trims sebelumnya...
>
> Wassalam...
>
>
>
>
>
>
>
- 1h.
-
Bls: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf
Posted by: "Sary Adm" sary_adm12@yahoo.com sary_adm12
Mon Jun 11, 2012 10:14 pm (PDT)
maf banget,klo yg mengecilkan smua kata?. maf banget ya nanya cz jika aq dtanya aq langsung bsa jawab sm dosen qu.makasih
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Selasa, 12 Juni 2012 11:57
Judul: Re: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
Ketik function :
=Upper(A1)
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Sary Adm <sary_adm12@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Tuesday, 12 June 2012, 11:51
Subject: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
di fungsi profer itu apakah hanya bisa mengkapitalkan huruf depannya saja, jika kita ingin huruf menjadi huruf besar semua, apakah ada cara lain lagi? maaf banget merepotkan. trima kasih.
_____________________ _________ __
Dari: dwint ruswanto <dwint.ruswanto@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Selasa, 12 Juni 2012 11:39
Judul: Re: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
coba gunakan formula PROPER
contoh:
=Proper(A1)
wassalam
-dwint-
Pada 12 Juni 2012 11:33, Sary Adm <sary_adm12@yahoo.com > menulis:
>
>Aslam....
>
>
>minta tolong dibantu ya mr..
>cara mengkapitalkan huruf depan pada kata dalam excel,jdi kita tdk ush merubahnya 1/1.. trims sebelumnya...
>
>
>Wassalam...
>
- 1i.
-
Re: Bls: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan h
Posted by: "Bambang Setiawan" benkbenkz@yahoo.co.uk benkbenkz
Mon Jun 11, 2012 10:23 pm (PDT)
Pake =lower(A1)
Salam
Sent from my BlackBerry®
-----Original Message-----
From: Sary Adm <sary_adm12@yahoo.com >
Sender: belajar-excel@yahoogroups. com
Date: Tue, 12 Jun 2012 13:08:43
To: belajar-excel@yahoogroups. <belajar-excel@com yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Bls: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
maf banget,klo yg mengecilkan smua kata?. maf banget ya nanya cz jika aq dtanya aq langsung bsa jawab sm dosen qu.makasih
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Selasa, 12 Juni 2012 11:57
Judul: Re: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
Ketik function :
=Upper(A1)
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Sary Adm <sary_adm12@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Tuesday, 12 June 2012, 11:51
Subject: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
di fungsi profer itu apakah hanya bisa mengkapitalkan huruf depannya saja, jika kita ingin huruf menjadi huruf besar semua, apakah ada cara lain lagi? maaf banget merepotkan. trima kasih.
_____________________ _________ __
Dari: dwint ruswanto <dwint.ruswanto@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Selasa, 12 Juni 2012 11:39
Judul: Re: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
coba gunakan formula PROPER
contoh:
=Proper(A1)
wassalam
-dwint-
Pada 12 Juni 2012 11:33, Sary Adm <sary_adm12@yahoo.com > menulis:
>
>Aslam....
>
>
>minta tolong dibantu ya mr..
>cara mengkapitalkan huruf depan pada kata dalam excel,jdi kita tdk ush merubahnya 1/1.. trims sebelumnya...
>
>
>Wassalam...
>
- 1j.
-
Re: Bls: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan h
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Mon Jun 11, 2012 10:27 pm (PDT)
Ketik function :
=Lower(A1)
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Sary Adm <sary_adm12@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Tuesday, 12 June 2012, 12:08
Subject: Bls: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
maf banget,klo yg mengecilkan smua kata?. maf banget ya nanya cz jika aq dtanya aq langsung bsa jawab sm dosen qu.makasih
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Selasa, 12 Juni 2012 11:57
Judul: Re: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
Ketik function :
=Upper(A1)
Salam,
Hendrik Karnadi
_____________________ _________ __
From: Sary Adm <sary_adm12@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Tuesday, 12 June 2012, 11:51
Subject: Bls: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
di fungsi profer itu apakah hanya bisa mengkapitalkan huruf depannya saja, jika kita ingin huruf menjadi huruf besar semua, apakah ada cara lain lagi? maaf banget merepotkan. trima kasih.
_____________________ _________ __
Dari: dwint ruswanto <dwint.ruswanto@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Selasa, 12 Juni 2012 11:39
Judul: Re: [belajar-excel] mhon pencerahannya y .mengkapitalkan huruf?
coba gunakan formula PROPER
contoh:
=Proper(A1)
wassalam
-dwint-
Pada 12 Juni 2012 11:33, Sary Adm <sary_adm12@yahoo.com > menulis:
>
>Aslam....
>
>
>minta tolong dibantu ya mr..
>cara mengkapitalkan huruf depan pada kata dalam excel,jdi kita tdk ush merubahnya 1/1.. trims sebelumnya...
>
>
>Wassalam...
>
- 2a.
-
Re: menampilkan data berdasarkan kode
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Jun 11, 2012 9:41 pm (PDT)
Sama-sama Pak.
Explode data ber-delimiter bisa juga dilakukan dengan fitur Remove
Duplicate yang terkumpul pada ribbon (menu) Data di Excel 2007.
Wassalam,
Kid.
2012/6/12 <si.baee@yahoo.com >
> **
>
>
> ** Dear Master Kid,
>
> Terima kasih bantuannya, akhirnya bisa juga. :)
>
>
>
> Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...!
> --------------------- ---------
> *From: * "Kid Mr." <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups. com
> *Date: *Mon, 11 Jun 2012 21:51:28 +0700
> *To: *<belajar-excel@yahoogroups. >com
> *ReplyTo: * belajar-excel@yahoogroups. com
> *Subject: *Re: [belajar-excel] menampilkan data berdasarkan kode
>
>
>
> Fungsi vLookUp dapat digunakan untuk mengambil data nama yang dimaksud,
> seperti yang telah dicontohkan oleh Pak Dwint.
> Nilai yang dilookup adalah potongan kode setiap item. Formula Pak Dwint
> memang diasumsikan untuk ID yang tetap berupa 3 item.
> Jika jumlah item dalam teks ID input adalah bervariasi, maka formula Pak
> Dwint bisa dimanfaatkan dengan mengubah bagian pengambil kode yang akan di
> lookup.
>
> Kira-kira bunyinya jadi seperti ini :
> =IF(LEN(F3)>*0*,VLOOKUP( MID(F3,*1* ,2),$B$3: $C$14,2,0) ,"")
> &IF(LEN(F3)>*3*,"/"&VLOOKUP( MID(F3,*4* ,2),$B$3: $C$14,2,0) ,"")
> &IF(LEN(F3)>*6*,"/"&VLOOKUP( MID(F3,*7* ,2),$B$3: $C$14,2,0) ,"")
> &IF(LEN(F3)>*9*,"/"&VLOOKUP( MID(F3,*10* ,2),$B$3: $C$14,2,0) ,"")
> &IF(LEN(F3)>*12*,"/"& VLOOKUP(MID( F3,*13*,2) ,$B$3:$C$ 14,2,0)," ")
> &IF(LEN(F3)>*15*,"/"& VLOOKUP(MID( F3,*10*,2) ,$B$3:$C$ 16,2,0)," ")
>
> Perhatikan pola yang di *bold *dan di *biru*
>
> Explode teks berdelimiter.
> Dengan formula [contoh untuk data F3] : (copy ke kanan)
> =TRIM(MID(SUBSTITUTE($F3,"/" ,REPT(" ",99)),(COLUMN( A$1)-1)*99+ 1,99))
>
> Setelah di explode, lalu di lookup dengan vLookUp setiap item hasil
> explode-nya.
> Kemudian setiap hasil lookup digabungkan lagi dengan fungsi Concatenate
> atau dengan operator & pada data teks.
> Sampai sekarang tidak ada built-in function di Excel yang bisa
> menggabungkan array teks menjadi sebuah string. Biasanya penggabungan array
> teks menjadi sebuah string dilakukan dengan sebuah UDF (User Defined
> Function)
>
> Menurut Saya, cara Pak Dwint yang didinamiskan memanfaatkan fungsi Mid di
> atas sudah cukup simple dan bisa memenuhi banyak item code dalam teks id.
>
> Wassalam,
> Kid.
>
>
- 3a.
-
Protect Data validation (drop down list) dari copy-paste
Posted by: "vna_gustiani" vna_gustiani@yahoo.com vna_gustiani
Mon Jun 11, 2012 9:53 pm (PDT)
Dear Belajar - Excell,
saya baru saja bergabung dengan milis ini.
saya mau bertanya, bagaimana caranya mencegah agar cell yang menggunakan drop down list, menolak pada saat dipaste cell, terutama apabila datanya tidak sesuai dengan yang ada pada drop down list.
terimakasih banyak sebelumnya
- 3b.
-
Re: Protect Data validation (drop down list) dari copy-paste
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Jun 11, 2012 10:02 pm (PDT)
Dear Vna,
Selamat bergabung dengan milis Belajar-Excel.
Fitur Data Validation List (drop down) hanya berlaku untuk proses entry
data. Jadi inputan yang dilakukan dengan proses copy paste akan
menghilangkan fitur data validation yang terpasang dicell yang menjadi
tujuan paste. Jika copy paste special values, maka tidak akan ada
pengecekan secara langsung oleh fitur data validation. Pengecekan hasil
inputan melalui copy paste special values bisa dilakukan dengan menu Circle
Invalid Data yang berada dalam grup yang sama ketika akan membuat data
validation.
Regards,
Kid.
2012/6/12 vna_gustiani <vna_gustiani@yahoo.com >
> **
>
>
> Dear Belajar - Excell,
> saya baru saja bergabung dengan milis ini.
> saya mau bertanya, bagaimana caranya mencegah agar cell yang menggunakan
> drop down list, menolak pada saat dipaste cell, terutama apabila datanya
> tidak sesuai dengan yang ada pada drop down list.
>
> terimakasih banyak sebelumnya
>
>
>
>
- 4a.
-
Re: Cara ambil data dari File lain
Posted by: "rodhy hakim" odhyz83_assasaky@yahoo.com odhyz83_assasaky
Mon Jun 11, 2012 10:25 pm (PDT)
Dear Master,
Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
Mohon Pencerahannya Para Master.
Regards,
Odhy_
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups. com
Sent: Tuesday, June 12, 2012 12:21 AM
Subject: Re: [belajar-excel] Cara ambil data dari File lain
Sambil menunggu mbak Markonah yang sedang nyepi...
Perhatikan prosedur Load_Data bagian :
Sheets(2).Select
Range("b2:b15536").Copy
Sheets(1).Select
Range("b4").Select
Selection.PasteSpecial Paste:=xlPasteValue s, Operation:=xlNone
Jika yang diproses adalah langsung banyak file, maka pindahkan bagian itu kebawah baris berisi Next I
Bagian ini adalah proses copy paste dari area tampungan sementara ke lokasi output.
Sheets(2).Select
Range("b2:b15536").Copy
artinya copy range b2:b15536 yang ada di sheet ke-2
Sheets(1).Select
Range("b4").Select
Selection.PasteSpecial Paste:=xlPasteValue s, Operation:=xlNone
artinya paste special values yang di-copy tadi ke sheet ke-1 di cell B4.
Kalau ingin copy paste kolom keterangan yang ada di sheet ke-2 kolom C itu kedalam kolom E sheet ke-1 bagaimana caranya ?
Tentu tambahkan baris perintah copy tapi yang dicopy adalah kolom C. Kemudian tambahkan baris perintah paste special values ke kolom E sheet ke-1 yang mulai E4.
Kira-kira baris tambahannya adalah :
sheets(2).range("c2:c15536" ).copy
sheets(1).range("e4").pastespeci al xlpastevalues, skipblanks:= true
atau jika jumlah baris di sheet ke-2 bisa lebih dari 16000, maka proses copas kolom C sheet ke-2 untuk masuk kolom E sheet ke-1 di E4 bisa diubah menjadi :
'di sheet ke-2 range a1, blok currentregion-nya, lompat [offset] 1 baris kebawah dan 2 kolom kekanan dari a1
'kemudian ubah luasan yang diblok [resize] menjadi 1 kolom dengan jumlah baris tetap
'dan lakukan copy ke clipboard [copy]
sheets(2).range("a1").currentreg ion.offset( 1,2).resize( ,1).copy
sheets(1).range("e4").pastespeci al xlpastevalues, skipblanks:= true
Selamat mencoba.
Wassalam,
Kid.
2012/6/11 rodhy hakim <odhyz83_assasaky@yahoo.com >
>Dear Para Master,
>
>Mohon Pencerahannya, bagaimana cara mengambil data dari file yang laen,
>dimana pada kolom Tgl. sekrang, Lama simpan dan kolom keterangan akan otomatis beradasarkan data yg diambil dari file yang laen.
>
>Terima kasih atas penjelasannya.
>note: file terlampir
>
- 4b.
-
Re: Cara ambil data dari File lain
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Jun 11, 2012 10:59 pm (PDT)
Tambahkan script berikut sebelum End Sub
Dim lRec As Long
Dim rng As Range
lRec = Sheets(2).Range("a1").CurrentReg ion.Rows. Count - 1
If lRec < 1 Then
Exit Sub
End If
Set rng = Sheets(1).Range("a4").Resize( lRec, 1) 'init range
data baru
With rng
.Formula = "=row()-3" 'formula nomor
urut
.Offset(0, 3).Value = Date 'tanggal
sekarang
.Offset(0, 5).Formula = "=datedif(b4,d4,""m"") &""
bulan""&datedif(b4,d4,""md" ")&"" hari."""
.Offset(0, 6).Formula =
"=(datedif(b4,d4,""m"") +datedif( b4,d4,""md" ")/100>4) *1"
'divalueskan
Sheets(1).Calculate
.Value = .Value
.Offset(0, 5).Value = .Offset(0, 5).Value
.Offset(0, 6).Value = .Offset(0, 6).Value
'atur format number
.Offset(0, 6).NumberFormat = "[red]""Material sudah
Expired"";;""Material normal"""
With .Offset(0, 6).FormatConditions.Add(xlCellValue , xlEqual, 1)
.Font.Bold = True
End With
End With
Kid.
2012/6/12 rodhy hakim <odhyz83_assasaky@yahoo.com >
> **
>
>
> Dear Master,
>
> Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
> Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang
> sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
> kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
> Mohon Pencerahannya Para Master.
>
> Regards,
> Odhy_
> **
>
- 5a.
-
Re: Bls: [belajar-excel] menampilkan data berdasarkan kode
Posted by: "si.baee@yahoo.com" si.baee@yahoo.com si.baee
Mon Jun 11, 2012 10:46 pm (PDT)
Dear om ghozi,
Terima kasih om atas bantuannya..
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@yahoo.co. >id
Sender: belajar-excel@yahoogroups. com
Date: Mon, 11 Jun 2012 22:13:09
To: belajar-excel@yahoogroups. <belajar-excel@com yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Bls: [belajar-excel] menampilkan data berdasarkan kode
CARA MENGEXPLODE DATA YANG
DIAPIT OLEH KARAKTER TERTENTU
(dalam
contoh ini "/")
dalam kasus ini data yang ingin diexplode ( A1/B1/C1)
berada di cell F3
data
pertama A1 hanya diapit satu karakter di akhir data, B1 diapit 2 karakter di
awal dan di akhir data, dan C1 hanya diapit di awal data. untuk
konsistensi formula supaya masing masing
data mendapat perlakuan yang sama maka di dalam pembuatan formula kita harus
mengubah dulu supaya masing masing data diapit oleh dua karakter caranya dengan menambahkan karakter pengapit di awal dan di akhir data
pada cell input sehingga masing masing data akan diapit oleh dua karakter
pengapit.
jadi dalam referensi cell pada formula kita
tambahkan "/"&F3&"/" walaupun dalam cell F3 tulisan aslinya A1/B1/C1 dalam perhitungan
formula akan diasumsikan sebagai /A1/B1/C1/.
MENGAMBIL DATA KE SATU.
(formula
array/dienter dengan menahan tombol shift &Ctrl)
{=REPLACE(MID("/"&$F3&" /";SMALL( IF(MID("/ "&$F3&"/" ;ROW($1:$ 10);1)="/ ";ROW($1: $10)+1);1) ;10);FIND( "/";MID(" /"&$F3&"/ ";SMALL(IF( MID("/"&$ F3&"/";ROW( $1:$10);1) ="/";ROW( $1:$10)+1) ;1);10)); 10;"")}
formula ini akan menghasilkan A1
MENGAMBIL DATA KE DUA.
(formula
array/dienter dengan menahan tombol shift &Ctrl)
{=REPLACE(MID("/"&$F3&" /";SMALL( IF(MID("/ "&$F3&"/" ;ROW($1:$ 10);1)="/ ";ROW($1: $10)+1);2) ;10);FIND( "/";MID(" /"&$F3&"/ ";SMALL(IF( MID("/"&$ F3&"/";ROW( $1:$10);1) ="/";ROW( $1:$10)+1) ;2);10)); 10;"")}
formula ini akan menghasilkan B1
MENGAMBIL DATA KE TIGA.
(formula
array/dienter dengan menahan tombol shift &Ctrl)
{=REPLACE(MID("/"&$F3&" /";SMALL( IF(MID("/ "&$F3&"/" ;ROW($1:$ 10);1)="/ ";ROW($1: $10)+1);3) ;10);FIND( "/";MID(" /"&$F3&"/ ";SMALL(IF( MID("/"&$ F3&"/";ROW( $1:$10);1) ="/";ROW( $1:$10)+1) ;3);10)); 10;"")}
formula
ini akan menghasilkan C1
perhatikan masing masing formula sama bunyinya tinggal
mengganti angka sesuai dengan urutan
data yang diinginkan pada posisi angka yang berwarna merah pada contoh
di atas.
selanjutnya setelah data bisa dipisahkan
sesuai yang diinginkan tinggal dimodifikasi sesuai dengan kebutuhan.
dalam hal yang ditanyakan ini karenadata yang dipisahkan adalah kode
yang merujuk kepada tabel tertentu maka
tinggal mengkombinasikan dengan
fungsi fungsi yang lain untuk menghasilkan nilai tertentu.
formula
untuk penggabungan kode dalam kasus yang ditanyakan
tulis
di G3 formula array
{=INDEX($C$3:$C$14;MATCH( REPLACE(MID( "/"&$F3&" /";SMALL( IF(MID("/ "&$F3&"/" ;ROW($1:$ 10);1)="/ ";ROW($1: $10)+1);1) ;10);FIND( "/";MID(" /"&$F3&"/ ";SMALL(IF( MID("/"&$ F3&"/";ROW( $1:$10);1) ="/";ROW( $1:$10)+1) ;1);10)); 10;"");$B$ 3:$B$14;0) )&"/"&INDEX( $C$3:$C$14; MATCH(REPLACE( MID("/"&$ F3&"/";SMALL( IF(MID("/ "&$F3&"/" ;ROW($1:$ 10);1)="/ ";ROW($1: $10)+1);2) ;10);FIND( "/";MID(" /"&$F3&"/ ";SMALL(IF( MID("/"&$ F3&"/";ROW( $1:$10);1) ="/";ROW( $1:$10)+1) ;2);10)); 10;"");$B$ 3:$B$14;0) )&"/"&INDEX( $C$3:$C$14; MATCH(REPLACE( MID("/"&$ F3&"/";SMALL( IF(MID("/ "&$F3&"/" ;ROW($1:$ 10);1)="/ ";ROW($1: $10)+1);3) ;10);FIND( "/";MID(" /"&$F3&"/ ";SMALL(IF( MID("/"&$ F3&"/";ROW( $1:$10);1) ="/";ROW( $1:$10)+1) ;3);10)); 10;"");$B$ 3:$B$14;0) )}
copy ke bawah
selanjutnya silahkan lihat di attachment.
wassalamGhozi Alkatiri
_____________________ _________ __
Dari: "si.baee@yahoo.com " <si.baee@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >; dwint.ruswanto@com gmail.com
Dikirim: Senin, 11 Juni 2012 13:19
Judul: Re: [belajar-excel] menampilkan data berdasarkan kode
Dear pak Dwint,
Untuk kombinasi ID sifatnya dinamis terkadang hanya satu ID bahkan bisa lima ID (A1/A2/A3/B1/C2), saya berasumsi hal ini bisa di lakukan dengan explode, tapi saya bingung melakukan explode dengan excel.
Mohon bantuanya untuk hal ini.
Terima kasih bantuannya.
Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
_____________________ _________ __
From: dwint ruswanto <dwint.ruswanto@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Mon, 11 Jun 2012 13:06:43 +0700
To: <belajar-excel@yahoogroups. >com
ReplyTo: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] menampilkan data berdasarkan kode
coba gunakan VLookUp dikombinasikan dengan Left, Mid, dan Right
asumsi hanya berlaku bahwa ID gabungan terdiri dari 3 kode, artinya Nama Gabungan hanya terdiri dari 3 orang
wassalam,
-dwint-
Pada 11 Juni 2012 11:58, <si.baee@yahoo.com > menulis:
>
>Dear master,
>
>Mohon bantuannya. Bagai mana menampilkan data berdasarkan kode yang ada? Terlampir file contoh.
>
>Terima kasih.
>Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
- 6a.
-
Re: conditional formating untuk chart
Posted by: "tuti andrayani" andrayani_lee@yahoo.co.id andrayani_lee
Mon Jun 11, 2012 10:46 pm (PDT)
Dear P Anton n Mr Kid,
Thanks filenya ...
Tuti
- 7a.
-
Re: mscomm pada excel 2002
Posted by: "Contract Mining Assistant, Asam-Asam" apassistant@arutmin.com
Mon Jun 11, 2012 11:03 pm (PDT)
Dear belajar excel,
betul sekali maksud saya MSComm untuk berinteraksi dengan port
com,tetapi sayangnya pada more control (component) pada excel 2002 saya
tidak ada
apakah harus di download dulu atau bagaimana?
terima kasih sebelumnya.
Salam:|Rasyid|
_____________________ _________ __
From: belajar-excel@yahoogroups. com
[mailto:belajar-excel@yahoogroups. ] On Behalf Of Kid Mr.com
Sent: Monday, June 11, 2012 11:39 PM
To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] mscomm pada excel 2002
Dear Mr. Rasyid,
Bisa diperjelas apa yang dimaksud dengan MS Comm ?
Jika maksudnya adalah mencoba untuk berinteraksi melalui port Com, maka
pastikan library mscomm32 telah teregister di registry windows dan pada
VBA references diaktikan (dicentang). Untuk cara penggunaannya
menggunakan VB/VBA, silakan cari di internet.
Jika maksudnya adalah Excel berinteraksi dengan sebuah aplikasi yang
berurusan tentang komunikasi, maka perlu diketahui pintu-pintu yang
disediakan aplikasi tersebut untuk bisa diotomasi dengan VB/VBA.
Regards,
Kid.
On Mon, Jun 11, 2012 at 10:13 AM, Contract Mining Assistant, Asam-Asam
<apassistant@arutmin.com > wrote:
Dear team belajar excel,
mau menanyakan bagaimana cara mengaktifkan component MS
Communication pada excel 2002.
terima kasih sebelumnya.
Salam, Rasyid
Disclaimer - This message including any attachments and information contained
herein ("Message" ) may contain privileged information or otherwise is protected
from disclosure. Any unauthorized use of this Message by any person may lead to
legal consequences. If you receive this Message in error, or if the recipient
of this Message is not the intended recipient or the employee or agent authorized
for delivering this Message to the intended recipient you are hereby notified that
any disclosure, dissemination, distribution or copying of this Message or let or
cause this Message to be disclosed,disseminated, distributed, or copied is strictly
prohibited, and please notify the sender by return message and immediately delete
this Message from your system. Incoming and outgoing communications using this
electronic mail may be monitored by PT Arutmin Indonesia,as permitted by applicable
law and regulations. Unless it is made by the authorized person,any views expressed
in this Message are those of the individual sender and may not necessarily reflect
the views of PT Arutmin Indonesia.
You should check attachments for viruses and defects before opening or using them.
We are not liable to recover any injuries caused by virused or defected attachments.
- 7b.
-
Re: mscomm pada excel 2002
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Jun 11, 2012 11:08 pm (PDT)
library mscomctl.ocx adalah common control untuk VB6.
Excel 2002 menggunakan VBA versi 6, maka VBA Excel bisa turut menggunakan
library ini.
Library ini juga masih dapat digunakan sampai VBA 6.5 (Excel 2007 keatas)
Library ini dapat di download di
http://www.microsoft.com/en- us/download/ details.aspx? id=10019
Kemudian install.
Pastikan di VBE Tools addtional control telah dicentang object control yang
dibutuhkan yang terdapat dalam library ini. Atau melalui VBE Tools
references bisa di browse untuk membuka file mscomctl.ocx ini.
Wassalam,
Kid.
On Tue, Jun 12, 2012 at 1:01 PM, Contract Mining Assistant, Asam-Asam <
apassistant@arutmin.com > wrote:
> **
>
>
> **
> Dear belajar excel,
> betul sekali maksud saya MSComm untuk berinteraksi dengan port com,tetapi
> sayangnya pada more control (component) pada excel 2002 saya tidak ada
> apakah harus di download dulu atau bagaimana?
>
>
> terima kasih sebelumnya.
>
> Salam:|Rasyid|
>
>
> --------------------- ---------
> *From:* belajar-excel@yahoogroups. [mailto:com
> belajar-excel@yahoogroups. ] *On Behalf Of *Kid Mr.com
> *Sent:* Monday, June 11, 2012 11:39 PM
> *To:* belajar-excel@yahoogroups. com
> *Subject:* Re: [belajar-excel] mscomm pada excel 2002
>
>
>
> Dear Mr. Rasyid,
>
> Bisa diperjelas apa yang dimaksud dengan MS Comm ?
>
> Jika maksudnya adalah mencoba untuk berinteraksi melalui port Com, maka
> pastikan library mscomm32 telah teregister di registry windows dan pada VBA
> references diaktikan (dicentang). Untuk cara penggunaannya menggunakan
> VB/VBA, silakan cari di internet.
>
> Jika maksudnya adalah Excel berinteraksi dengan sebuah aplikasi yang
> berurusan tentang komunikasi, maka perlu diketahui pintu-pintu yang
> disediakan aplikasi tersebut untuk bisa diotomasi dengan VB/VBA.
>
> Regards,
> Kid.
>
>
>
- 8a.
-
Re: Membuat Validasi utk Input Tanggal atau date
Posted by: "milorambaldy" maulidin_yusfriyanto@yahoo.com milorambaldy
Mon Jun 11, 2012 11:23 pm (PDT)
Thanks all terutama untuk ki semprul , sangat mencerahkan jawabannya dan membantu saya memecahkan masalah ini
once again thanks
br
Milorambaldy
--- In belajar-excel@yahoogroups. , Ki Semprul <semprul.ki@com ...> wrote:
>
> Pembatasan Pengisian Data ke Cells, di excel sudah disediakan TOOL nya
> bernama *Data Validation*
>
> 1. Blok / Sorot: Range yg akan diberi *aji Data Validation*
>
> 2. Munculkan Dialogbox Data Validation
> (excel 2003: Menu: Data > Validation)
> (excel 2007: Ribbon : Tab Data, lihat group: Data Tools > Klik Ikon Data
> Validation > Data Validation )
>
> 3, Pada DialogBox yg muncul, pilih* Tab Setting*
> *Allow :* DATE
> * Data :* Between
> * Start Date*, diisi formula *=TODAY() - WEEKDAY(TODAY()) + 2*
> *End Date*, diisi formula *= TODAY()*
> dua Formula ini adalah bagian terpenting, tentunya dibuat setelah
> meditasi sejenak..
> Ide pemikirannya adalah : semua tanggal jika dikurangi nilai
> WEEKDAY-nya, hasilnya
> akan selalu jatuh hari SABTU sebelumTgl tsb.
> Boleh Percaya Boleh Tidak, tetapi "TIDAK BOLEH" *tidak mencoba* di sheet.
>
> 4. Tab Lain (Tab Input Msg) dan (Tab Error Alert) dapat anda atur sendiri
> Didiamkan saja juga sudah di set standart, hanya ErrorMessagenya bhs
> Londo..
> Lihat contoh di workbook lampiran
>
>
> [image: Inline image 1]
>
>
> Mengenai data yg sudah ditulis diberi passwrod, ini berarti pengaturan LOCK
> Cell dilakukan secara bertahap
> yaitu SETIAP terjadi pengisian dta yg valid.
> Hal ini menurut pendapatku harus pakai Makro.
> Makro hanya akan diberikan jika memang dikehendaki.. atau tunggu dari para
> penanggap lainnya..
>
> *--Semprulll Ki !!*
>
>
>
> *2012/6/1 milorambaldy <maulidin_yusfriyanto@...>
> *
> >
> > * *
> >
> > *Dear Be-exceler
> > Mohon di bantu pencerahannya apabila saya ingin mencoba membuat aturan di
> > Cell tertentu worksheet hanya bisa di input tanggal hari ini maksimalnya
> > dan minimalnya 2 hari sebelumnya di dalam aturan 5 hari kerja saja.
> >
> > dengan tujuan agar users selalu mengupdate tepat waktu karena apabila
> > lebih dari 2 hari tanggal yg di inputnya tidak akan bisa, dan hanya bisa di
> > input mundur dengan membuka password
> >
> > semoga ada yg bersedia membant
> >
> > Thanks
> > Milorambaldy
> > *
> >
>
- 9a.
-
Bls: [belajar-excel] table yang otomatis bertambah
Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri
Tue Jun 12, 2012 12:05 am (PDT)
coba solusi macro (sambil belajar).
setiap ada data tambahan di kolom NO maka secara otomatis baris dari tabel akan bertambah 1 baris (insert rows)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Cells.Count = 1 Then
If Len(Target.Value) > 0 Then
ActiveCell.Offset(1, 0).Range("A1: D1").Select
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Range("A1: D1").Select
Selection.Borders(xlDiagonalDown) .LineStyle = xlNone
Selection.Borders(xlDiagonalUp) .LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical )
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizont al)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End If
End If
End If
End Sub
wassalam
Ghozi Alkatiri
_____________________ _________ __
Dari: Agus Siahabudin <phont_4ng@yahoo.co.id >
Kepada: group excel <belajar-excel@yahoogroups. >com
Dikirim: Minggu, 10 Juni 2012 14:21
Judul: [belajar-excel] table yang otomatis bertambah
saya ingin membuat laporan pengeluaran, namun saya belum mengetahui berapa tabel yang dibutuhkan. saya membutuhkan tabel yang fleksible, jika ditambahkan entri baru tabel itu akan bertambah..
terima kasih..
Agus Pontang
- 9b.
-
Re: table yang otomatis bertambah
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Tue Jun 12, 2012 12:41 am (PDT)
mumpung Pak Ghozi lagi semangat belajar VBA.
Option Explicit 'setting option environ agar semua variabel yang
digunakan harus melalui tahap deklarasi. Kebiasaan yang baik yang harus
dipertahankan.
Private Sub Worksheet_Change(ByVal *Target *As Range) 'awal
prosedur sub yang nanti akan diakhir dengan baris End Sub
'ketika akan bekerja dengan object yang sama berulang kali,
'klausa with bisa digunakan untuk mempercepat proses perujukan
referensi dan harus di akhiri baris end with
with *target*
If .Column = 1 Then 'nama object
yang telah dirujuk dengan with tidak perlu ditulis lagi
If .Count = 1 Then 'karena
object target bertipe range, maka target.count akan menghitung cells dalam
target
If Len*B*(.Value) > 0 Then 'konon LenB
(len byte) lebih cepat dibanding len (len character) karena hanya hitung
byte-nya saja (konon loh ya)
'dua baris ini merujuk ke aktif cell yaitu target,
dan proses terhadap object tergantung method yang dimiliki
'karena object range memiliki method untuk insert,
maka 2 baris ini bisa disederhanakan, dari :
'ActiveCell.Offset(1, 0).Range("A1: D1").Select
'Selection.EntireRow.Insert
'menjadi :::
.offset(1,0).entirerow. insert
'biasanya, jika baris atasnya yang di-insert sudah
punya format tertentu, maka baris hasil insert juga langsung memiliki
format tersebut
'btw, jika akan menyusun border, bisa dengan tahapan
: border luarnya, lalu border tegak dan datar didalamnya.
'karena ada 3 baris perintah pada area object yang
sama, maka klausa with bisa digunakan, jadi ada with end with yang nested.
with .offset(1,0).resize(1, 4)
'yang diblok (target diresize 1 baris x 4 kolom)
.borderaround xlcontinuous
'border luarnya
.borders(
xlInsideHorizontal).linestyle= xlcontinuous
.borders(
xlInsidevertical).linestyle= xlcontinuous
end with
endif
endif
endif
end with
kira-kira demikian.
Untuk bagian pengkondisian dengan IF, mungkin perlu penambahan untuk
keadaan :
>> baris baru ditambahkan ketika baris dibawah data terbawah adalah baris
total. Jika bukan, maka belum perlu ada penambahan baris baru.
Bagaimana ya caranya ?
Semoga tetap semangat belajar dan mencoba.
Wassalam,
Kid.
2012/6/12 ghozi alkatiri <ghozialkatiri@yahoo.co. >id
> **
>
>
> coba solusi macro (sambil belajar).
> setiap ada data tambahan di kolom NO maka secara otomatis baris dari tabel
> akan bertambah 1 baris (insert rows)
>
> Option Explicit
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Column = 1 Then
> If Target.Cells.Count = 1 Then
> If Len(Target.Value) > 0 Then
>
> ActiveCell.Offset(1, 0).Range("A1: D1").Select
> Selection.EntireRow.Insert
> ActiveCell.Offset(1, 0).Range("A1: D1").Select
> Selection.Borders(xlDiagonalDown) .LineStyle = xlNone
> Selection.Borders(xlDiagonalUp) .LineStyle = xlNone
> With Selection.Borders(xlEdgeLeft)
> .LineStyle = xlContinuous
> .ColorIndex = 0
> .TintAndShade = 0
> .Weight = xlThin
> End With
> With Selection.Borders(xlEdgeTop)
> .LineStyle = xlContinuous
> .ColorIndex = 0
> .TintAndShade = 0
> .Weight = xlThin
> End With
> With Selection.Borders(xlEdgeBottom)
> .LineStyle = xlContinuous
> .ColorIndex = 0
> .TintAndShade = 0
> .Weight = xlThin
> End With
> With Selection.Borders(xlEdgeRight)
> .LineStyle = xlContinuous
> .ColorIndex = 0
> .TintAndShade = 0
> .Weight = xlThin
> End With
> With Selection.Borders(xlInsideVertical )
> .LineStyle = xlContinuous
> .ColorIndex = 0
> .TintAndShade = 0
> .Weight = xlThin
> End With
> With Selection.Borders(xlInsideHorizont al)
> .LineStyle = xlContinuous
> .ColorIndex = 0
> .TintAndShade = 0
> .Weight = xlThin
> End With
>
> End If
> End If
> End If
> End Sub
>
> wassalam
> Ghozi Alkatiri
>
> --------------------- ---------
> *Dari:* Agus Siahabudin <phont_4ng@yahoo.co.id >
> *Kepada:* group excel <belajar-excel@yahoogroups. >com
> *Dikirim:* Minggu, 10 Juni 2012 14:21
> *Judul:* [belajar-excel] table yang otomatis bertambah
>
>
> saya ingin membuat laporan pengeluaran, namun saya belum mengetahui berapa
> tabel yang dibutuhkan. saya membutuhkan tabel yang fleksible, jika
> ditambahkan entri baru tabel itu akan bertambah..
>
> terima kasih..
> Agus Pontang
>
>
>
>
>
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar