11 New Messages
Digest #2504
2a
Re: Fw: [belajar-excel] Input Data dari sheet isian ke Sheet Data by "Hendrik Karnadi" hendrikkarnadi
Messages
Thu Aug 29, 2013 11:18 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Misal data di cell A1.
Jika cell A1 diatur formatnya menjadi general tidak ada perubahan dalam
penampakan, maka cell berisi data ber-type text.
Pada cell B1 bisa diberi formula :
=Substitute( Substitute( Mid( A1 , 4 , 99 ) , *","* , "" ) , "-" , "" )
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh
karakter koma dalam formula menjadi karakter titik koma kecuali karakter
koma pada bagian berbunyi *","*
Wassalam,
Kid.
2013/8/30 Sms Ticketing <sms_ticketing@yahoo.com >
> **
>
>
>
> saya punya data dalam cell Rp.12,450,000,- tolg be-exceller minta format@spt apa agar yg muncul
>
> 12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu
> persatu kemeng bin keju)
>
> alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh
> otak atik formula untuk
>
> menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
>
> tolg para master y, plz help thanks berat w jazakumullah khair
>
>
>
Jika cell A1 diatur formatnya menjadi general tidak ada perubahan dalam
penampakan, maka cell berisi data ber-type text.
Pada cell B1 bisa diberi formula :
=Substitute( Substitute( Mid( A1 , 4 , 99 ) , *","
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh
karakter koma dalam formula menjadi karakter titik koma kecuali karakter
koma pada bagian berbunyi *","
Wassalam,
Kid.
2013/8/30 Sms Ticketing <sms_ticketing@
> **
>
>
>
> saya punya data dalam cell Rp.12,450,000,
>
> 12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu
> persatu kemeng bin keju)
>
> alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh
> otak atik formula untuk
>
> menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
>
> tolg para master y, plz help thanks berat w jazakumullah khair
>
>
>
Thu Aug 29, 2013 4:43 pm (PDT) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Coba juga cari di arsip milis. Dulu si Mbah pernah buat UDF (User Defined Function) yang namanya (kalau ndak salah) fungsi Angka Thok.
Salam,
HK
Sent from Samsung MobileSms Ticketing <sms_ticketing@yahoo.com > wrote:
saya punya data dalam cell Rp.12,450,000,- tolg be-exceller minta format@ spt apa agar yg muncul
12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu persatu kemeng bin keju)
alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh otak atik formula untuk
menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
tolg para master y, plz help thanks berat w jazakumullah khair
Salam,
HK
Sent from Samsung MobileSms Ticketing <sms_ticketing@
saya punya data dalam cell Rp.12,450,000,
12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu persatu kemeng bin keju)
alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh otak atik formula untuk
menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
tolg para master y, plz help thanks berat w jazakumullah khair
Fri Aug 30, 2013 12:44 am (PDT) . Posted by:
"Sms Ticketing" sms_ticketing
Mav be -exceller nanya lagi ni:
saya mau tulis no KTP spt ni: tp yg muncul selalu angka 1 digit paling belakang 3307096701940001 hilang, minta tolg para master, thanks berat ats att & bantuan@
Mr. Abou
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Friday, August 30, 2013 1:17 AM
Subject: Re: [belajar-excel] menghilangkan titik dan koma
Misal data di cell A1.
Jika cell A1 diatur formatnya menjadi general tidak ada perubahan dalam penampakan, maka cell berisi data ber-type text.
Pada cell B1 bisa diberi formula :
=Substitute( Substitute( Mid( A1 , 4 , 99 ) , "," , "" ) , "-" , "" )
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma kecuali karakter koma pada bagian berbunyi ","
Wassalam,
Kid.
2013/8/30 Sms Ticketing <sms_ticketing@yahoo.com >
>
>
>saya punya data dalam cell Rp.12,450,000,- tolg be-exceller minta format@ spt apa agar yg muncul
>
>
>
>12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu persatu kemeng bin keju)
>
>
>
>alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh otak atik formula untuk
>
>
>
>menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
>
>
>
>tolg para master y, plz help thanks berat w jazakumullah khair
>
>
>
saya mau tulis no KTP spt ni: tp yg muncul selalu angka 1 digit paling belakang 3307096701940001 hilang, minta tolg para master, thanks berat ats att & bantuan@
Mr. Abou
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Friday, August 30, 2013 1:17 AM
Subject: Re: [belajar-excel] menghilangkan titik dan koma
Misal data di cell A1.
Jika cell A1 diatur formatnya menjadi general tidak ada perubahan dalam penampakan, maka cell berisi data ber-type text.
Pada cell B1 bisa diberi formula :
=Substitute( Substitute( Mid( A1 , 4 , 99 ) , "," , "" ) , "-" , "" )
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma kecuali karakter koma pada bagian berbunyi ","
Wassalam,
Kid.
2013/8/30 Sms Ticketing <sms_ticketing@
>
>
>saya punya data dalam cell Rp.12,450,000,
>
>
>
>12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu persatu kemeng bin keju)
>
>
>
>alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh otak atik formula untuk
>
>
>
>menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
>
>
>
>tolg para master y, plz help thanks berat w jazakumullah khair
>
>
>
Fri Aug 30, 2013 1:20 am (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
coba ditulis
'3307096701940001
apakah angka masih hilang?
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of Sms Ticketing
Sent: Friday, August 30, 2013 2:38 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menghilangkan titik dan koma
Mav be -exceller nanya lagi ni:
saya mau tulis no KTP spt ni: tp yg muncul selalu angka 1 digit paling belakang 3307096701940001 hilang, minta tolg para master, thanks berat ats att & bantuan@
Mr. Abou
________________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Friday, August 30, 2013 1:17 AM
Subject: Re: [belajar-excel] menghilangkan titik dan koma
Misal data di cell A1.
Jika cell A1 diatur formatnya menjadi general tidak ada perubahan dalam penampakan, maka cell berisi data ber-type text.
Pada cell B1 bisa diberi formula :
=Substitute( Substitute( Mid( A1 , 4 , 99 ) , "," , "" ) , "-" , "" )
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma kecuali karakter koma pada bagian berbunyi ","
Wassalam,
Kid.
2013/8/30 Sms Ticketing <sms_ticketing@yahoo.com >
saya punya data dalam cell Rp.12,450,000,- tolg be-exceller minta format@ spt apa agar yg muncul
12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu persatu kemeng bin keju)
alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh otak atik formula untuk
menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
tolg para master y, plz help thanks berat w jazakumullah khair
'33070967019400
apakah angka masih hilang?
From: belajar-excel@
Sent: Friday, August 30, 2013 2:38 PM
To: belajar-excel@
Subject: Re: [belajar-excel] menghilangkan titik dan koma
Mav be -exceller nanya lagi ni:
saya mau tulis no KTP spt ni: tp yg muncul selalu angka 1 digit paling belakang 3307096701940001 hilang, minta tolg para master, thanks berat ats att & bantuan@
Mr. Abou
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Friday, August 30, 2013 1:17 AM
Subject: Re: [belajar-excel] menghilangkan titik dan koma
Misal data di cell A1.
Jika cell A1 diatur formatnya menjadi general tidak ada perubahan dalam penampakan, maka cell berisi data ber-type text.
Pada cell B1 bisa diberi formula :
=Substitute( Substitute( Mid( A1 , 4 , 99 ) , "," , "" ) , "-" , "" )
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma kecuali karakter koma pada bagian berbunyi ","
Wassalam,
Kid.
2013/8/30 Sms Ticketing <sms_ticketing@
saya punya data dalam cell Rp.12,450,000,
12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu persatu kemeng bin keju)
alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh otak atik formula untuk
menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
tolg para master y, plz help thanks berat w jazakumullah khair
Fri Aug 30, 2013 2:45 am (PDT) . Posted by:
"Sms Ticketing" sms_ticketing
masih hilang
________________________________
From: zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, August 30, 2013 3:20 PM
Subject: RE: [belajar-excel] menghilangkan titik dan koma
coba ditulis
'3307096701940001
apakah angka masih hilang?
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of Sms Ticketing
Sent: Friday, August 30, 2013 2:38 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menghilangkan titik dan koma
Mav be -exceller nanya lagi ni:
saya mau tulis no KTP spt ni: tp yg muncul selalu angka 1 digit paling belakang 3307096701940001 hilang, minta tolg para master, thanks berat ats att & bantuan@
Mr. Abou
________________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Friday, August 30, 2013 1:17 AM
Subject: Re: [belajar-excel] menghilangkan titik dan koma
Misal data di cell A1.
Jika cell A1 diatur formatnya menjadi general tidak ada perubahan dalam penampakan, maka cell berisi data ber-type text.
Pada cell B1 bisa diberi formula :
=Substitute( Substitute( Mid( A1 , 4 , 99 ) , "," , "" ) , "-" , "" )
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma kecuali karakter koma pada bagian berbunyi ","
Wassalam,
Kid.
2013/8/30 Sms Ticketing <sms_ticketing@yahoo.com >
saya punya data dalam cell Rp.12,450,000,- tolg be-exceller minta format@ spt apa agar yg muncul
12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu persatu kemeng bin keju)
alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh otak atik formula untuk
menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
tolg para master y, plz help thanks berat w jazakumullah khair
____________
From: zainul_ulum[
To: belajar-excel@
Sent: Friday, August 30, 2013 3:20 PM
Subject: RE: [belajar-excel] menghilangkan titik dan koma
coba ditulis
'33070967019400
apakah angka masih hilang?
From: belajar-excel@
Sent: Friday, August 30, 2013 2:38 PM
To: belajar-excel@
Subject: Re: [belajar-excel] menghilangkan titik dan koma
Mav be -exceller nanya lagi ni:
saya mau tulis no KTP spt ni: tp yg muncul selalu angka 1 digit paling belakang 3307096701940001 hilang, minta tolg para master, thanks berat ats att & bantuan@
Mr. Abou
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Friday, August 30, 2013 1:17 AM
Subject: Re: [belajar-excel] menghilangkan titik dan koma
Misal data di cell A1.
Jika cell A1 diatur formatnya menjadi general tidak ada perubahan dalam penampakan, maka cell berisi data ber-type text.
Pada cell B1 bisa diberi formula :
=Substitute( Substitute( Mid( A1 , 4 , 99 ) , "," , "" ) , "-" , "" )
Jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma kecuali karakter koma pada bagian berbunyi ","
Wassalam,
Kid.
2013/8/30 Sms Ticketing <sms_ticketing@
saya punya data dalam cell Rp.12,450,000,
12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu persatu kemeng bin keju)
alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh otak atik formula untuk
menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
tolg para master y, plz help thanks berat w jazakumullah khair
Fri Aug 30, 2013 3:34 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Data berupa angka-angka lebih dari 15 digit dapat disimpan disebuah cell
dengan bertype text 15 karakter.
Cara entry : (pilih salah satu)
1. pada sebuah cell kosong, tekan tombol petik satu ( ' ) di keyboard,
kemudian dilanjutkan dengan mengetik angka-angka datanya.
2. pada sebuah cell kosong, klik kanan -> pilih format cells -> tab number
-> pilih Text -> tekan OK -> ketik angka-angka datanya.
3. pada sebuah cell kosong, ketik sama dengan, lalu petik dua sebanyak 2
kali ( "" ) lalu ampersand ( & ) diikuti angka-angka datanya.
Jika ada sebuah cell yang sudah terlanjur berisi data angka lebih dari 15
digit, maka sudah pasti digit terakhirnya akan diganti dengan angka 0 dan
tidak dapat dikembalikan lagi selain dengan meng-entry ulang.
Wassalam,
Kid.
2013/8/30 Sms Ticketing <sms_ticketing@yahoo.com >
> **
>
>
> masih hilang
>
> ------------------------------
> *From:* zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, August 30, 2013 3:20 PM
> *Subject:* RE: [belajar-excel] menghilangkan titik dan koma
>
>
> coba ditulis
> '3307096701940001
>
> apakah angka masih hilang?
>
> From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
> On Behalf Of Sms Ticketing
> Sent: Friday, August 30, 2013 2:38 PM
> To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] menghilangkan titik dan koma
>
> Mav be -exceller nanya lagi ni:
> saya mau tulis no KTP spt ni: tp yg muncul selalu angka 1 digit paling
> belakang 3307096701940001 hilang, minta tolg para master, thanks berat ats
> att & bantuan@
>
> Mr. Abou
>
> ________________________________________
> From: Mr. Kid <mr.nmkid@gmail.com >
> To: BeExcel <belajar-excel@yahoogroups.com >
> Sent: Friday, August 30, 2013 1:17 AM
> Subject: Re: [belajar-excel] menghilangkan titik dan koma
>
> Misal data di cell A1.
> Jika cell A1 diatur formatnya menjadi general tidak ada perubahan dalam
> penampakan, maka cell berisi data ber-type text.
> Pada cell B1 bisa diberi formula :
> =Substitute( Substitute( Mid( A1 , 4 , 99 ) , "," , "" ) , "-" , "" )
> Jika regional setting komputer setempat adalah Indonesia, ganti seluruh
> karakter koma dalam formula menjadi karakter titik koma kecuali karakter
> koma pada bagian berbunyi ","
>
> Wassalam,
> Kid.
>
> 2013/8/30 Sms Ticketing <sms_ticketing@yahoo.com >
>
>
> saya punya data dalam cell Rp.12,450,000,- tolg be-exceller minta format@spt apa agar yg muncul
>
> 12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu
> persatu kemeng bin keju)
>
> alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh
> otak atik formula untuk
>
> menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
>
> tolg para master y, plz help thanks berat w jazakumullah khair
>
>
>
>
>
dengan bertype text 15 karakter.
Cara entry : (pilih salah satu)
1. pada sebuah cell kosong, tekan tombol petik satu ( ' ) di keyboard,
kemudian dilanjutkan dengan mengetik angka-angka datanya.
2. pada sebuah cell kosong, klik kanan -> pilih format cells -> tab number
-> pilih Text -> tekan OK -> ketik angka-angka datanya.
3. pada sebuah cell kosong, ketik sama dengan, lalu petik dua sebanyak 2
kali ( "" ) lalu ampersand ( & ) diikuti angka-angka datanya.
Jika ada sebuah cell yang sudah terlanjur berisi data angka lebih dari 15
digit, maka sudah pasti digit terakhirnya akan diganti dengan angka 0 dan
tidak dapat dikembalikan lagi selain dengan meng-entry ulang.
Wassalam,
Kid.
2013/8/30 Sms Ticketing <sms_ticketing@
> **
>
>
> masih hilang
>
> ------------
> *From:* zainul_ulum[
> *To:* belajar-excel@
> *Sent:* Friday, August 30, 2013 3:20 PM
> *Subject:* RE: [belajar-excel] menghilangkan titik dan koma
>
>
> coba ditulis
> '33070967019400
>
> apakah angka masih hilang?
>
> From: belajar-excel@
> On Behalf Of Sms Ticketing
> Sent: Friday, August 30, 2013 2:38 PM
> To: belajar-excel@
> Subject: Re: [belajar-excel] menghilangkan titik dan koma
>
> Mav be -exceller nanya lagi ni:
> saya mau tulis no KTP spt ni: tp yg muncul selalu angka 1 digit paling
> belakang 3307096701940001 hilang, minta tolg para master, thanks berat ats
> att & bantuan@
>
> Mr. Abou
>
> ____________
> From: Mr. Kid <mr.nmkid@gmail.
> To: BeExcel <belajar-excel@
> Sent: Friday, August 30, 2013 1:17 AM
> Subject: Re: [belajar-excel] menghilangkan titik dan koma
>
> Misal data di cell A1.
> Jika cell A1 diatur formatnya menjadi general tidak ada perubahan dalam
> penampakan, maka cell berisi data ber-type text.
> Pada cell B1 bisa diberi formula :
> =Substitute( Substitute( Mid( A1 , 4 , 99 ) , "," , "" ) , "-" , "" )
> Jika regional setting komputer setempat adalah Indonesia, ganti seluruh
> karakter koma dalam formula menjadi karakter titik koma kecuali karakter
> koma pada bagian berbunyi ","
>
> Wassalam,
> Kid.
>
> 2013/8/30 Sms Ticketing <sms_ticketing@
>
>
> saya punya data dalam cell Rp.12,450,000,
>
> 12450000 (hanya angka, karena data bnyak & berulang jadi kalau delete satu
> persatu kemeng bin keju)
>
> alhamdulillah mr kid bantu u/ menghilangkan titik atau koma saja, sy sdh
> otak atik formula untuk
>
> menghilangkan Rp, titik, koma sekaligus strip dgn satu formula belum bisa2
>
> tolg para master y, plz help thanks berat w jazakumullah khair
>
>
>
>
>
Thu Aug 29, 2013 4:30 pm (PDT) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Kebetulan buku saya sdh ga kelihatan lagi di gramed. Coba anda jalan2 ke gramed, saya yakin ada yg cukup bagus utk pemula. Basicnya sdh/sdg dibahas oleh mr.Kid di blog spot b-Excel.
Salam,
HK
Sent from Samsung Mobileharry budiman <harbudiman@gmail.com > wrote:Terima kasih untuk solusinya,
Untuk step2 membuat Prosedur saya harus mempelajarinya lagi, mgkn pa Karnadi ada buku referensi untuk pemula awam?
Tks
2013/8/29 hendrik karnadi <hendrikkarnadi@yahoo.com >
Oops, karena ga ada values selain tanggal, yang warna merah dihapus saja.
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, 28 August 2013, 23:41
Subject: Re: [belajar-excel] Input Data dari sheet isian ke Sheet Data
Ini macronya,
Sub InputData()
Sheets("Input").Range("B1:B5").Copy 'data yang akan dicopy
Sheets("Data").Select 'sheet tujuan
Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) _
.PasteSpecial Paste:=xlPasteValues, Transpose:=True 'copas Value Transpose pada baris baru
Application.CutCopyMode = False 'membatalkan copy
Sheets("Input").Select 'kembali ke sheet Input
End Sub
File terlampir.
Setelah selesai Input klik si Emon.
Salam,
HK
From: harry budiman <harbudiman@gmail.com >
To: belajar-excel <belajar-excel@yahoogroups.com >
Sent: Wednesday, 28 August 2013, 23:09
Subject: [belajar-excel] Input Data dari sheet isian ke Sheet Data
Salam hormat guru2 sekalian,
Saya mencoba belajar membuat perintah macro step by step dari buku
namun karena sagat awam dengan bahasa vb saya kebingungan
Contoh data yang ingin saya kerjakan seperti terlampir, ketika saya input data
di sheet input maka dengan menekan Ctrl+t atau tombol input data tesebut akan
pindah ke sheet Data
Mohon pencerahannya
terima kasih sebelumnya atas bantuan guru sekalian
wassalaam
Harry
Salam,
HK
Sent from Samsung Mobileharry budiman <harbudiman@gmail.
Untuk step2 membuat Prosedur saya harus mempelajarinya lagi, mgkn pa Karnadi ada buku referensi untuk pemula awam?
Tks
2013/8/29 hendrik karnadi <hendrikkarnadi@
Oops, karena ga ada values selain tanggal, yang warna merah dihapus saja.
Salam,
HK
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@
To: "belajar-excel@
Sent: Wednesday, 28 August 2013, 23:41
Subject: Re: [belajar-excel] Input Data dari sheet isian ke Sheet Data
Ini macronya,
Sub InputData()
Sheets("
Sheets("
Cells(Rows.Count, "A"
.PasteSpecial Paste:=xlPasteValue
Application.
Sheets("
End Sub
File terlampir.
Setelah selesai Input klik si Emon.
Salam,
HK
From: harry budiman <harbudiman@gmail.
To: belajar-excel <belajar-excel@
Sent: Wednesday, 28 August 2013, 23:09
Subject: [belajar-excel] Input Data dari sheet isian ke Sheet Data
Salam hormat guru2 sekalian,
Saya mencoba belajar membuat perintah macro step by step dari buku
namun karena sagat awam dengan bahasa vb saya kebingungan
Contoh data yang ingin saya kerjakan seperti terlampir, ketika saya input data
di sheet input maka dengan menekan Ctrl+t atau tombol input data tesebut akan
pindah ke sheet Data
Mohon pencerahannya
terima kasih sebelumnya atas bantuan guru sekalian
wassalaam
Harry
Thu Aug 29, 2013 5:51 pm (PDT) . Posted by:
muzakkiharun@ymail.com
Terimakasih Mr.Kid penjelasannya sangat detail, menjadi ilmu baru bagi saya mengenai fungsi lookup. Jazaakumullah Khairan Katsiraa ...
Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Thu, 29 Aug 2013 21:50:00
To: BeExcel<belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] nomor urut
Ok.
Formula di cell i2 (kolom i mulai baris 2 akan menjadi kolom hasil. Cell i1
berisi header tabel hasil)
=*IFERROR(* *LOOKUP( 2 , 1/(C$1:C1=C2) , I$1:I1 )* *+1* *, 1 )*
Bahasa manusia :
"cel, tulung carikan data terakhir [*LookUp( 2 ,*] yang isi data kolom C
sampai dengan baris sebelumnya [*C$1:C1*] sama dengan isi kolom C baris ini
[*=C2*] dan ambil nomor urutnya [*I$1:I1*], lalu tambah 1 [*+1*]. Kalau
ndak ada (si fungsi lookup menghasilkan error) [*IFERROR(*], berarti baris
itu adalah item baru dan harus dikasih nomor urut 1 lagi [*1*]"
*Bagian A :* *LOOKUP( 2 , 1/(C$1:C1=C2) , I$1:I1 )*
ada 3 part, yaitu :
*1/(C$1:C1=C2)* -> larik data yang isinya :
* jika data sampai baris sebelumnya [*C$1:C1*] memiliki nilai
yang sama dengan C2, karena 1/TRUE akan menghasilkan 1.
* jika data sampai baris sebelumnya [*C$1:C1*] tidak sama
dengan C2, maka nilainya adalah error value, karena 1/FALSE setara 1/0
*2* -> nilai yang di lookup ke hasil part *1/(C$1:C1=C2)* .
* Karena kegiatan melookup dalam Excel selalu pada typedata
yang sama dengan nilai yang di-lookup, maka ketika yang di-lookup bertipe
numerik, yaitu nilai 2, maka fungsi LookUp akan mencari di part *1/(C$1:C1=C2)
*yang bertipe data numerik dan mengabaikan yang bertipe data error value.
* Hasilnya adalah nilai terakhir yang ada, karena nilai 2 tidak
akan ditemukan dalam larik data di part *1/(C$1:C1=C2)* , sehingga akan
mengambil nilai yang kurang dari 2 yang terakhir ditemukan.
*I$1:I1 *-> adalah larik nilai yang akan diambil ketika sudah mendapatkan
posisi hasil lookup [bagian : *LOOKUP( 2 , 1/(C$1:C1=C2)*]
* jadi, part *I$1:I1* harus memiliki jumlah elemen (item) yang
sama dengan part *1/(C$1:C1=C2)*, yaitu sebanyak elemen bagian *C$1:C1*
*Bagian B :* *+1*
Karena proses lookup yang dilakukan adalah mencari di baris-baris
sebelumnya, maka baris hasil adalah lokasi yang harus mendapatkan nomor
urut baru. Nomor urut diinginkan memiliki interval penambahan setiap 1,
maka hasil proses lookup harus ditambah dengan 1.
*Bagian C :* *IFERROR( **, 1 )*
*IFERROR *-> adalah fungsi untuk mengantisipasi hasil fungsi LookUp yang
berupa error value.
* Fungsi LookUp di bagian A bisa menghasilkan error value
ketika larik bagian *1/(C$1:C1=C2)* menghasilkan error value seluruhnya
alias tidak ada data di baris-baris sebelumnya [*C$1:C1*] yang sama dengan
C2.
* Artinya, fungsi LookUp tersebut menghasilkan error value
ketika bertemu nilai C2 yang belum pernah ada di baris-baris sebelumnya,
yang bahasa singkatnya adalah 'telah hadir item grup yang baru'
*1 *-> adalah nomor urut yang harus disematkan ketika bertemu item grup
yang baru.
* Ketika fungsi LookUp menghasil error value (ada item grup
baru), maka IFError mencari nilai yang harus menjadi output, yaitu part ini
Wassalam,
Kid.
2013/8/29 <muzakkiharun@ymail.com >
> **
>
>
> ** Bisa dijelaskan bahasa Manusianya rumus LOOKUP(2,1/(C$1:C1=C2) itu Mr.
> Kid. Angka 2 itu sbgai apa? Dan 1/... Itu apa?
> Terimakasih ...
> Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...!
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Thu, 29 Aug 2013 20:06:55 +0700
> *To: *BeExcel<belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] nomor urut
>
>
>
> hehehe...
> kalau mau yang sedikit lebih panjang, bisa juga dengan : (letakkan di cell
> i2, lalu copy ke baris selanjutnya)
> =IFERROR(LOOKUP(2,1/(C$1:C1=C2),I$1:I1)+1,1)
>
> Jika regional setting komputer setempat adalah Indonesia, maka ganti
> seluruh karakter koma dalam formula menjadi karakter titik koma.
>
> Kalau yang lebih panjang dari itu, sepertinya akan semakin sulit
> membuatnya, kuatirnya saya ndak bisa. Mungkin rekan lain ada yang bersedia
> mencoba untuk menyusunkan yang lebih panjang.
>
> kan jarang-jarang ada panjang-panjangan formula, biasanya pada berlomba
> pendek-pendekan formula. meski penanya ndak minta yang panjang, siapa tahu
> hal ini bisa jadi ajang latihan untuk mengeksplorasi kemampuan berbagai
> macam fungsi bawaan Excel dan menambah wawasan BeExceller.
>
> Wassalam,
> Kid.
>
>
>
> 2013/8/29 Zhe Fha <zhe_fha12@yahoo.com >
>
>> **
>>
>>
>> Terimakasih master, ternyata rumusnya sangat sederhana..
>> hehehe..
>> tadinya saya fikir rumusnya bakal panjang..
>> skalilagi terimakasih
>>
>> ------------------------------
>> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
>> *Kepada:* BeExcel <belajar-excel@yahoogroups.com >
>> *Dikirim:* Kamis, 29 Agustus 2013 19:37
>> *Judul:* Re: [belajar-excel] nomor urut
>>
>>
>> File terlampir berisi 2 cara dari sekian banyak cara yang memungkinkan.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/8/29 Zhe Fha <zhe_fha12@yahoo.com >
>>
>> **
>>
>> para master mau tanya gimana caranya agar nomor urut berulang jika ada
>> grup berubah
>>
>>
>>
>>
>>
>
>
Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Thu, 29 Aug 2013 21:50:00
To: BeExcel<belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] nomor urut
Ok.
Formula di cell i2 (kolom i mulai baris 2 akan menjadi kolom hasil. Cell i1
berisi header tabel hasil)
=*IFERROR(* *LOOKUP( 2 , 1/(C$1:C1=C2) , I$1:I1 )* *+1* *, 1 )*
Bahasa manusia :
"cel, tulung carikan data terakhir [*LookUp( 2 ,*] yang isi data kolom C
sampai dengan baris sebelumnya [*C$1:C1*] sama dengan isi kolom C baris ini
[*=C2*] dan ambil nomor urutnya [*I$1:I1*], lalu tambah 1 [*+1*]. Kalau
ndak ada (si fungsi lookup menghasilkan error) [*IFERROR(*]
itu adalah item baru dan harus dikasih nomor urut 1 lagi [*1*]"
*Bagian A :* *LOOKUP( 2 , 1/(C$1:C1=C2) , I$1:I1 )*
ada 3 part, yaitu :
*1/(C$1:C1=C2)
* jika data sampai baris sebelumnya [*C$1:C1*] memiliki nilai
yang sama dengan C2, karena 1/TRUE akan menghasilkan 1.
* jika data sampai baris sebelumnya [*C$1:C1*] tidak sama
dengan C2, maka nilainya adalah error value, karena 1/FALSE setara 1/0
*2* -> nilai yang di lookup ke hasil part *1/(C$1:C1=C2)
* Karena kegiatan melookup dalam Excel selalu pada typedata
yang sama dengan nilai yang di-lookup, maka ketika yang di-lookup bertipe
numerik, yaitu nilai 2, maka fungsi LookUp akan mencari di part *1/(C$1:C1=C2)
*yang bertipe data numerik dan mengabaikan yang bertipe data error value.
* Hasilnya adalah nilai terakhir yang ada, karena nilai 2 tidak
akan ditemukan dalam larik data di part *1/(C$1:C1=C2)
mengambil nilai yang kurang dari 2 yang terakhir ditemukan.
*I$1:I1 *-> adalah larik nilai yang akan diambil ketika sudah mendapatkan
posisi hasil lookup [bagian : *LOOKUP( 2 , 1/(C$1:C1=C2)
* jadi, part *I$1:I1* harus memiliki jumlah elemen (item) yang
sama dengan part *1/(C$1:C1=C2)
*Bagian B :* *+1*
Karena proses lookup yang dilakukan adalah mencari di baris-baris
sebelumnya, maka baris hasil adalah lokasi yang harus mendapatkan nomor
urut baru. Nomor urut diinginkan memiliki interval penambahan setiap 1,
maka hasil proses lookup harus ditambah dengan 1.
*Bagian C :* *IFERROR( **, 1 )*
*IFERROR *-> adalah fungsi untuk mengantisipasi hasil fungsi LookUp yang
berupa error value.
* Fungsi LookUp di bagian A bisa menghasilkan error value
ketika larik bagian *1/(C$1:C1=C2)
alias tidak ada data di baris-baris sebelumnya [*C$1:C1*] yang sama dengan
C2.
* Artinya, fungsi LookUp tersebut menghasilkan error value
ketika bertemu nilai C2 yang belum pernah ada di baris-baris sebelumnya,
yang bahasa singkatnya adalah 'telah hadir item grup yang baru'
*1 *-> adalah nomor urut yang harus disematkan ketika bertemu item grup
yang baru.
* Ketika fungsi LookUp menghasil error value (ada item grup
baru), maka IFError mencari nilai yang harus menjadi output, yaitu part ini
Wassalam,
Kid.
2013/8/29 <muzakkiharun@
> **
>
>
> ** Bisa dijelaskan bahasa Manusianya rumus LOOKUP(2,1/(
> Kid. Angka 2 itu sbgai apa? Dan 1/... Itu apa?
> Terimakasih ...
> Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung
> Teruuusss...
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Thu, 29 Aug 2013 20:06:55 +0700
> *To: *BeExcel<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] nomor urut
>
>
>
> hehehe...
> kalau mau yang sedikit lebih panjang, bisa juga dengan : (letakkan di cell
> i2, lalu copy ke baris selanjutnya)
> =IFERROR(LOOKUP(
>
> Jika regional setting komputer setempat adalah Indonesia, maka ganti
> seluruh karakter koma dalam formula menjadi karakter titik koma.
>
> Kalau yang lebih panjang dari itu, sepertinya akan semakin sulit
> membuatnya, kuatirnya saya ndak bisa. Mungkin rekan lain ada yang bersedia
> mencoba untuk menyusunkan yang lebih panjang.
>
> kan jarang-jarang ada panjang-panjangan formula, biasanya pada berlomba
> pendek-pendekan formula. meski penanya ndak minta yang panjang, siapa tahu
> hal ini bisa jadi ajang latihan untuk mengeksplorasi kemampuan berbagai
> macam fungsi bawaan Excel dan menambah wawasan BeExceller.
>
> Wassalam,
> Kid.
>
>
>
> 2013/8/29 Zhe Fha <zhe_fha12@yahoo.
>
>> **
>>
>>
>> Terimakasih master, ternyata rumusnya sangat sederhana..
>> hehehe..
>> tadinya saya fikir rumusnya bakal panjang..
>> skalilagi terimakasih
>>
>> ------------
>> *Dari:* Mr. Kid <mr.nmkid@gmail.
>> *Kepada:* BeExcel <belajar-excel@
>> *Dikirim:* Kamis, 29 Agustus 2013 19:37
>> *Judul:* Re: [belajar-excel] nomor urut
>>
>>
>> File terlampir berisi 2 cara dari sekian banyak cara yang memungkinkan.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/8/29 Zhe Fha <zhe_fha12@yahoo.
>>
>> **
>>
>> para master mau tanya gimana caranya agar nomor urut berulang jika ada
>> grup berubah
>>
>>
>>
>>
>>
>
>
Thu Aug 29, 2013 6:16 pm (PDT) . Posted by:
"De Premor" de.premor
Hai Ambo Upe
Ketika sebuah tombol ditekan dia akan memanggil sebuah event bernama
Private Sub *namatombolnya*_*clik*(), yang didalamnya bisa kita isi
baris-baris kode, dalam hal ini adalah baris kode pemilihan foto, Contoh:
Private Sub CommandButton1_Click()
/ 'pilih file itu dari folder sana//
// 'cek file yang dipilih sudah ada di folder kita belum, kalo belum
maka di copy aja kesitu dengan nama gambar1 aja deh//
// 'selanjutnya tampilken di kotak foto diatas tombol ini/
End Sub
Kemudian, dikarenakan hal tersebut diatas perlu sampai 3 kali kita
lakukan (berulang2 dengan kegiatan yang sama), maka untuk lebih
efisiennya, kita buat sebuah fungsi baru
Nama Fungsinya kita ambil contoh "PilihFoto", kemudian kita beritahu
sekalian data2 yang diperlukan agar sekiranya tujuan kita tercapai,
yaitu *Nama Gambar *ketika dipindah ke folder applikasi dan nama *kotak
foto* diatas tombol2 Add Foto
*Function PilihFoto(TagName As String, KotakFoto As Image)**
* Dim FileFoto, DstFoto As String, fPath As String
/ 'Pilih Foto//
/ FileFoto = Application.GetOpenFilename("File Foto,*.jpg",
Title:="Pilih " & TagName)
If Not FileFoto = False Then
/ 'Cek File, apakah berada difolder applikasi//
/ If Left(UCase(FileFoto), Len(ThisWorkbook.Path)) <>
UCase(ThisWorkbook.Path) Then
/ 'Lokasi Penyimpanan Foto jika seandainya //si foto perlu
dicopy//
/ fPath = ThisWorkbook.Path & "\Foto\"
/ 'Cek apakah sudah ada direktory foto, jika belum langsung
buat aja//
/ If Dir(fPath) = "" Then MkDir fPath
/ 'Buat nama file baru //
/ DstFoto = fPath & TagName & ".jpg"
/ 'Copy File//
/ FileCopy FileFoto, DstFoto
End If
/ 'Tampilkan Gambar//
/ KotakFoto.Picture = LoadPicture(FileFoto)
/ 'Pas kan seukuran kotak image//
/ KotakFoto.PictureSizeMode = fmPictureSizeModeStretch
End If
End Function
Setelah sebuah fungsi baru jadi, berarti dari event tombol add foto tadi
bisa langsung kita larikan ke fungsi baru kita diatas
Private Sub CommandButton1_Click()
* PilihFoto "Gambar1", Sheet1.Image1*/
/End Sub
Selesai.
Rgds,
[dp]
On 29-08-2013 22:35, Ambo Upe wrote:
> Terima Kasih Banyak pencerahan mas DP dan HK,,
>
> tapi bisa ngggk ya saya mohon bantuannya lagi, supaya bisa sama persis
> seperti contoh file ini. karena sudah saya utak-atik atik tetap tidak
> bisa
>
> *Ambo Upe*__
> __Weblog : http://diaracommunity.blogspot.com
> <http://diaracommunity.blogspot.com/ >
>
> ----------------------------------------------------------
> *Dari:* Ambo Upe <upe_anakogie@yahoo.co.id >
> *Kepada:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Dikirim:* Kamis, 29 Agustus 2013 8:52
> *Judul:* [belajar-excel] Mohon Pencerahan Cara Buat Add Foto di Excel
>
> Salam,
> Mohon Pencerahannya, penting,,, seh...
> Bagaimana cara menambahkan foto : ketika Tombol Add Foto diklik, maka
> akan diarahkan ke tempat penyimpanan foto , dan foto akan
> muncul/terlihat . dan foto tersimpan secaraotomatis kedalam folder
> baru,dalam satu file aplikasi. berikut contoh lampirannya
>
> Terima Kasih
>
>
> *Ambo Upe*__
> __Weblog : http://diaracommunity.blogspot.com
> <http://diaracommunity.blogspot.com/ >
>
>
>
Ketika sebuah tombol ditekan dia akan memanggil sebuah event bernama
Private Sub *namatombolnya*
baris-baris kode, dalam hal ini adalah baris kode pemilihan foto, Contoh:
Private Sub CommandButton1_
/ 'pilih file itu dari folder sana//
// 'cek file yang dipilih sudah ada di folder kita belum, kalo belum
maka di copy aja kesitu dengan nama gambar1 aja deh//
// 'selanjutnya tampilken di kotak foto diatas tombol ini/
End Sub
Kemudian, dikarenakan hal tersebut diatas perlu sampai 3 kali kita
lakukan (berulang2 dengan kegiatan yang sama), maka untuk lebih
efisiennya, kita buat sebuah fungsi baru
Nama Fungsinya kita ambil contoh "PilihFoto&quo
sekalian data2 yang diperlukan agar sekiranya tujuan kita tercapai,
yaitu *Nama Gambar *ketika dipindah ke folder applikasi dan nama *kotak
foto* diatas tombol2 Add Foto
*Function PilihFoto(TagName As String, KotakFoto As Image)**
* Dim FileFoto, DstFoto As String, fPath As String
/ 'Pilih Foto//
/ FileFoto = Application.
Title:="
If Not FileFoto = False Then
/ 'Cek File, apakah berada difolder applikasi//
/ If Left(UCase(FileFoto
UCase(ThisWorkbook.
/ 'Lokasi Penyimpanan Foto jika seandainya //si foto perlu
dicopy//
/ fPath = ThisWorkbook.
/ 'Cek apakah sudah ada direktory foto, jika belum langsung
buat aja//
/ If Dir(fPath) = "" Then MkDir fPath
/ 'Buat nama file baru //
/ DstFoto = fPath & TagName & ".jpg"
/ 'Copy File//
/ FileCopy FileFoto, DstFoto
End If
/ 'Tampilkan Gambar//
/ KotakFoto.Picture = LoadPicture(
/ 'Pas kan seukuran kotak image//
/ KotakFoto.PictureSi
End If
End Function
Setelah sebuah fungsi baru jadi, berarti dari event tombol add foto tadi
bisa langsung kita larikan ke fungsi baru kita diatas
Private Sub CommandButton1_
* PilihFoto "Gambar1"
/End Sub
Selesai.
Rgds,
[dp]
On 29-08-2013 22:35, Ambo Upe wrote:
> Terima Kasih Banyak pencerahan mas DP dan HK,,
>
> tapi bisa ngggk ya saya mohon bantuannya lagi, supaya bisa sama persis
> seperti contoh file ini. karena sudah saya utak-atik atik tetap tidak
> bisa
>
> *Ambo Upe*__
> __Weblog : http://diaracommuni
> <http://diaracommuni
>
> ------------
> *Dari:* Ambo Upe <upe_anakogie@
> *Kepada:* "belajar-excel@
> *Dikirim:* Kamis, 29 Agustus 2013 8:52
> *Judul:* [belajar-excel] Mohon Pencerahan Cara Buat Add Foto di Excel
>
> Salam,
> Mohon Pencerahannya, penting,,, seh...
> Bagaimana cara menambahkan foto : ketika Tombol Add Foto diklik, maka
> akan diarahkan ke tempat penyimpanan foto , dan foto akan
> muncul/terlihat . dan foto tersimpan secaraotomatis kedalam folder
> baru,dalam satu file aplikasi. berikut contoh lampirannya
>
> Terima Kasih
>
>
> *Ambo Upe*__
> __Weblog : http://diaracommuni
> <http://diaracommuni
>
>
>
Thu Aug 29, 2013 11:40 pm (PDT) . Posted by:
"Ambo Upe" upe_anakogie
Terima Kasih Mas DP atas pencerahannya,, Berhasil,, terima kasih...
Ambo Upe
Weblog :http://diaracommunity.blogspot.com
________________________________
Dari: De Premor <de@premor.net>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 30 Agustus 2013 8:14
Judul: Re: Bls: [belajar-excel] Mohon Pencerahan Cara Buat Add Foto di Excel
Hai Ambo Upe
Ketika sebuah tombol ditekan dia akan memanggil sebuah event bernama
Private Sub namatombolnya_clik(), yang didalamnya bisa kita isi baris-baris kode, dalam hal ini adalah baris kode pemilihan foto, Contoh:
Private Sub CommandButton1_Click()
'pilih file itu dari folder sana
'cek file yang dipilih sudah ada di folder kita belum, kalo belum maka di copy aja kesitu dengan nama gambar1 aja deh
'selanjutnya tampilken di kotak foto diatas tombol ini
End Sub
Kemudian, dikarenakan hal tersebut diatas perlu sampai 3 kali kita
lakukan (berulang2 dengan kegiatan yang sama), maka untuk lebih
efisiennya, kita buat sebuah fungsi baru
Nama Fungsinya kita ambil contoh "PilihFoto", kemudian kita beritahu
sekalian data2 yang diperlukan agar sekiranya tujuan kita tercapai,
yaitu Nama Gambar ketika dipindah ke folder applikasi dan nama kotak foto diatas tombol2 Add Foto
Function PilihFoto(TagName As String, KotakFoto As Image)
Dim FileFoto, DstFoto As String, fPath As String
'Pilih Foto
FileFoto = Application.GetOpenFilename("File Foto,*.jpg", Title:="Pilih " & TagName)
If Not FileFoto = False Then
'Cek File, apakah berada difolder applikasi
If Left(UCase(FileFoto), Len(ThisWorkbook.Path)) <> UCase(ThisWorkbook.Path) Then
'Lokasi Penyimpanan Foto jika seandainya si foto perlu dicopy
fPath = ThisWorkbook.Path & "\Foto\"
'Cek apakah sudah ada direktory foto, jika belum langsung buat aja
If Dir(fPath) = "" Then MkDir fPath
'Buat nama file baru
DstFoto = fPath & TagName & ".jpg"
'Copy File
FileCopy FileFoto, DstFoto
End If
'Tampilkan Gambar
KotakFoto.Picture = LoadPicture(FileFoto)
'Pas kan seukuran kotak image
KotakFoto.PictureSizeMode = fmPictureSizeModeStretch
End If
End Function
Setelah sebuah fungsi baru jadi, berarti dari event tombol add foto
tadi bisa langsung kita larikan ke fungsi baru kita diatas
Private Sub CommandButton1_Click()
PilihFoto "Gambar1", Sheet1.Image1
End Sub
Selesai.
Rgds,
[dp]
On 29-08-2013 22:35, Ambo Upe wrote:
>Terima Kasih Banyak pencerahan mas DP dan HK,,
>
>tapi bisa ngggk ya saya mohon bantuannya lagi, supaya bisa
sama persis seperti contoh file ini. karena sudah saya
utak-atik atik tetap tidak bisa
>
>
>
>Ambo Upe
>Weblog : http://diaracommunity.blogspot.com
>
>
>
>________________________________
> Dari: Ambo Upe <upe_anakogie@yahoo.co.id >
>Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Dikirim: Kamis, 29 Agustus 2013 8:52
>Judul: [belajar-excel] Mohon Pencerahan Cara Buat Add Foto di Excel
>
>
>
>
>Salam,
>Mohon Pencerahannya, penting,,, seh...
>Bagaimana cara menambahkan foto : ketika Tombol Add Foto diklik, maka akan diarahkan ke tempat penyimpanan foto , dan foto akan muncul/terlihat . dan foto tersimpan secara otomatis kedalam folder baru, dalam satu file aplikasi. berikut contoh lampirannya
>
>
Terima Kasih
>
>
>
>Ambo Upe
>Weblog : http://diaracommunity.blogspot.com
>
>
Ambo Upe
Weblog :http://diaracommuni
____________
Dari: De Premor <de@premor.net>
Kepada: belajar-excel@
Dikirim: Jumat, 30 Agustus 2013 8:14
Judul: Re: Bls: [belajar-excel] Mohon Pencerahan Cara Buat Add Foto di Excel
Hai Ambo Upe
Ketika sebuah tombol ditekan dia akan memanggil sebuah event bernama
Private Sub namatombolnya_
Private Sub CommandButton1_
'pilih file itu dari folder sana
'cek file yang dipilih sudah ada di folder kita belum, kalo belum maka di copy aja kesitu dengan nama gambar1 aja deh
'selanjutnya tampilken di kotak foto diatas tombol ini
End Sub
Kemudian, dikarenakan hal tersebut diatas perlu sampai 3 kali kita
lakukan (berulang2 dengan kegiatan yang sama), maka untuk lebih
efisiennya, kita buat sebuah fungsi baru
Nama Fungsinya kita ambil contoh "PilihFoto&quo
sekalian data2 yang diperlukan agar sekiranya tujuan kita tercapai,
yaitu Nama Gambar ketika dipindah ke folder applikasi dan nama kotak foto diatas tombol2 Add Foto
Function PilihFoto(TagName As String, KotakFoto As Image)
Dim FileFoto, DstFoto As String, fPath As String
'Pilih Foto
FileFoto = Application.
If Not FileFoto = False Then
'Cek File, apakah berada difolder applikasi
If Left(UCase(FileFoto
'Lokasi Penyimpanan Foto jika seandainya si foto perlu dicopy
fPath = ThisWorkbook.
'Cek apakah sudah ada direktory foto, jika belum langsung buat aja
If Dir(fPath) = "" Then MkDir fPath
'Buat nama file baru
DstFoto = fPath & TagName & ".jpg"
'Copy File
FileCopy FileFoto, DstFoto
End If
'Tampilkan Gambar
KotakFoto.Picture = LoadPicture(
'Pas kan seukuran kotak image
KotakFoto.PictureSi
End If
End Function
Setelah sebuah fungsi baru jadi, berarti dari event tombol add foto
tadi bisa langsung kita larikan ke fungsi baru kita diatas
Private Sub CommandButton1_
PilihFoto "Gambar1"
End Sub
Selesai.
Rgds,
[dp]
On 29-08-2013 22:35, Ambo Upe wrote:
>Terima Kasih Banyak pencerahan mas DP dan HK,,
>
>tapi bisa ngggk ya saya mohon bantuannya lagi, supaya bisa
sama persis seperti contoh file ini. karena sudah saya
utak-atik atik tetap tidak bisa
>
>
>
>Ambo Upe
>Weblog : http://diaracommuni
>
>
>
>________
> Dari: Ambo Upe <upe_anakogie@
>Kepada: "belajar-excel@
>Dikirim: Kamis, 29 Agustus 2013 8:52
>Judul: [belajar-excel] Mohon Pencerahan Cara Buat Add Foto di Excel
>
>
>
>
>Salam,
>Mohon Pencerahannya, penting,,, seh...
>Bagaimana cara menambahkan foto : ketika Tombol Add Foto diklik, maka akan diarahkan ke tempat penyimpanan foto , dan foto akan muncul/terlihat . dan foto tersimpan secara otomatis kedalam folder baru, dalam satu file aplikasi. berikut contoh lampirannya
>
>
Terima Kasih
>
>
>
>Ambo Upe
>Weblog : http://diaracommuni
>
>
Fri Aug 30, 2013 4:36 am (PDT) . Posted by:
"Shenly" shenly_excelmania
Haloo master, mau tanya mengenai Vipot tabel
gimana yah cara merubah atw membut hitungan tersediri di pivot, biasanya kan hitungan yang tersedia di vipot cuma total pertambahan saja
untuk lbh jls file contoh sudah sya lampirkan
terima kasih
Salam
Shenly ^^*
gimana yah cara merubah atw membut hitungan tersediri di pivot, biasanya kan hitungan yang tersedia di vipot cuma total pertambahan saja
untuk lbh jls file contoh sudah sya lampirkan
terima kasih
Salam
Shenly ^^*
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar