15 New Messages
Digest #2098
Messages
Dear Be-Exceller,
Saya mau tanya, bisakah Excel memodif character font di message box ?
seperti huruf font tebal, size font besar, dll ?
Terima kasih,
Wassalam,
Tio
Saya mau tanya, bisakah Excel memodif character font di message box ?
seperti huruf font tebal, size font besar, dll ?
Terima kasih,
Wassalam,
Tio
Mon Feb 18, 2013 6:01 pm (PST) . Posted by:
"agung aldhino" d_nozz
maaf Mr Kid,
pertanyaannya belum disertai contoh file.
berikut contoh file nya.....
mungkin bisa memperjelas maksud dan tujuan pertanyan saya.
maaf jika pertanyaan saya agak tidak jelas. maklum saya tidak pandai mengolah kata-kata.....
best regards
D Nozz
________________________________
Dari: Mr. Kid mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 18 Februari 2013 16:46
Judul: Re: [belajar-excel] Open New File
Oh... gitu.
Sekarang, maksud berisi sheet tertentu itu apa ?
>> berisi sejumlah sheet tertentu, misal workbook baru berisi 7 sheet kosong langsung
dim lDefShtCount as long
dim wbk as workbook
set wbk = thisworkbook
ldefshtcount=application.sheetsinnewworkbook 'simpan dulu jumlah sheet default yang dipakai sekarang
application.sheetsinnewworkbook=7
workbooks.add
wbk.activate
application.sheetsinnewworkbook=ldefshtcount
Wassalam,
Kid.
2013/2/18 agung aldhino d_nozz@yahoo.co.id >
>Dear Mr Kid,
>maaf pertanyaan saya kurang detail. maksud saya untuk membuat new file yang berisi sheet tertentu.
>maaf mr kid. kesalahan pertanyaan ada pada saya.
>
>best regards
>d Nozz
>
>
>Dari: Mr. Kid mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Senin, 18 Februari 2013 16:12
>Judul: Re: [belajar-excel] Open New File
>
>
>Hai Agung,Biasanya tanpa macro bisa dengan menekan CTRL NJika ingin belajar VBA (Macro), coba langkah berikut : (asumsi dengan xl2007)1. menuju ke ribbon (menu) Developer (jika belum muncul, tekan Office Button -> Options -> page Popular (sisi kiri) -> centang Show developer ribbon -> OK)2. tekan tombol record macro3. beri nama macro (misal : BuatWorkbookBaru)4. pada shortcut isi dengan huruf N5. tekan OK6. tekan CTRL N7. tekan tombol Stop recording8. save as workbook dengan menekan ALT F A atau menekan F129. pada save as type, pilih .xlsm10. tekan tombol Save11. coba tekan CTRL SHIFT NJika ingin membuat tombol khusus dalam worksheet :1. insert shape (misal rectangle)2. klik kanan shape -> pilih Assign Macro -> pilih nama macro (misal tadi record macro bernama BuatWorkbookBaru ) -> OK3. save (CTRL S)4. klik sebuah cell5. klik shapeJika ingin lihat script untuk buat workbook baru :1. ke VBE dengan menekan ALT F112. double click Module13. cari
prosedur bernama BuatWorkbookBaru (bisa gunakan fitur Find dengan menekan CTRL F dan pilih Current Project)4. dalam prosedur (antara tulisan SUB sampai END SUB) ada perintah untuk buat workbook baru5. kembali ke worksheet dengan menekan ALT F11Jika ingin buat secara langsung tanpa record macro :1. ke VBE2. menu Insert -> Module3. copas script berikut :public sub ContohBuatWorkbookBaru() workbooks.addend sub4. kembali ke worksheet5. insert shape dan assign macro ke prosedur ContohBuatWorkbookBaru [bila perlu]Wassalam,Kid.
>2013/2/18 agung aldhino d_nozz@yahoo.co.id >
>
>>dear master excel,
>>saya lagi belajar excel nich. ada yang mau saya tanyakan ke master2 sekalian. untuk membuat new file dari sheet yang ada lewat macro bagaimana yach master2???
pertanyaannya belum disertai contoh file.
berikut contoh file nya.....
mungkin bisa memperjelas maksud dan tujuan pertanyan saya.
maaf jika pertanyaan saya agak tidak jelas. maklum saya tidak pandai mengolah kata-kata...
best regards
D Nozz
____________
Dari: Mr. Kid mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Senin, 18 Februari 2013 16:46
Judul: Re: [belajar-excel] Open New File
Oh... gitu.
Sekarang, maksud berisi sheet tertentu itu apa ?
>> berisi sejumlah sheet tertentu, misal workbook baru berisi 7 sheet kosong langsung
dim lDefShtCount as long
dim wbk as workbook
set wbk = thisworkbook
ldefshtcount=
application.
workbooks.add
wbk.activate
application.
Wassalam,
Kid.
2013/2/18 agung aldhino d_nozz@yahoo.
>Dear Mr Kid,
>maaf pertanyaan saya kurang detail. maksud saya untuk membuat new file yang berisi sheet tertentu.
>maaf mr kid. kesalahan pertanyaan ada pada saya.
>
>best regards
>d Nozz
>
>
>Dari: Mr. Kid mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Senin, 18 Februari 2013 16:12
>Judul: Re: [belajar-excel] Open New File
>
>
>Hai Agung,Biasanya tanpa macro bisa dengan menekan CTRL NJika ingin belajar VBA (Macro), coba langkah berikut : (asumsi dengan xl2007)1. menuju ke ribbon (menu) Developer (jika belum muncul, tekan Office Button -> Options -> page Popular (sisi kiri) -> centang Show developer ribbon -> OK)2. tekan tombol record macro3. beri nama macro (misal : BuatWorkbookBaru)
prosedur bernama BuatWorkbookBaru (bisa gunakan fitur Find dengan menekan CTRL F dan pilih Current Project)4. dalam prosedur (antara tulisan SUB sampai END SUB) ada perintah untuk buat workbook baru5. kembali ke worksheet dengan menekan ALT F11Jika ingin buat secara langsung tanpa record macro :1. ke VBE2. menu Insert -> Module3. copas script berikut :public sub ContohBuatWorkbookB
>2013/2/18 agung aldhino d_nozz@yahoo.
>
>>dear master excel,
>>saya lagi belajar excel nich. ada yang mau saya tanyakan ke master2 sekalian. untuk membuat new file dari sheet yang ada lewat macro bagaimana yach master2???
Mon Feb 18, 2013 8:01 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe... jadi permasalahannya adalah copy sheet ke workbook baru.
Misal input di sheet bernama Input dan nama sheet yang akan di copy dalam
textbox bernama txtSheet di sheet input.
(letakkan script berikut ini pada event click tombol untuk proses salin
sheet)
dim wbkA as workbook, wbkNew as workbook
dim lSht as long
dim sShtName as string
set wbka=thisworkbook
'simpan nama sheet yang akan diproses
sshtname=sheets("input";).txtsheet.text
if sheets(sshtname) is nothing then
msgbox "tidak ada sheet bernama " & sshtname
exit sub
endif
'buat workbook baru isi 1 sheet saja
lsht=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
set wbknew=workbooks.add
application.sheetsinnewworkbook=lsht
wbka.activate
'copas sheet pilihan ke workbook baru sheet pertama di A1, dan beri nama
sheet seperti asalnya
sheets(sshtname).cells.copy wbknew.sheets(1).range("a1")
wbknew.sheets(1).name=sshtname
msgbox "Done."
Wassalam,
Kid.
2013/2/19 agung aldhino d_nozz@yahoo.co.id >
> maaf Mr Kid,
> pertanyaannya belum disertai contoh file.
> berikut contoh file nya.....
> mungkin bisa memperjelas maksud dan tujuan pertanyan saya.
> maaf jika pertanyaan saya agak tidak jelas. maklum saya tidak pandai
> mengolah kata-kata.....
>
> best regards
> D Nozz
>
> *Dari:* Mr. Kid mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Senin, 18 Februari 2013 16:46
>
> *Judul:* Re: [belajar-excel] Open New File
> **
>
> Oh... gitu.
>
> Sekarang, maksud berisi sheet tertentu itu apa ?
> >> berisi sejumlah sheet tertentu, misal workbook baru berisi 7 sheet
> kosong langsung
> dim lDefShtCount as long
> dim wbk as workbook
> set wbk = thisworkbook
> ldefshtcount=application.sheetsinnewworkbook 'simpan dulu jumlah
> sheet default yang dipakai sekarang
> application.sheetsinnewworkbook=7
> workbooks.add
> wbk.activate
> application.sheetsinnewworkbook=ldefshtcount
>
> Wassalam,
> Kid.
>
>
> 2013/2/18 agung aldhino d_nozz@yahoo.co.id >**
>
> **
>
> Dear Mr Kid,
> maaf pertanyaan saya kurang detail. maksud saya untuk membuat new file
> yang berisi sheet tertentu.
> maaf mr kid. kesalahan pertanyaan ada pada saya.
>
> best regards
> d Nozz
>
> *Dari:* Mr. Kid mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Senin, 18 Februari 2013 16:12
> *Judul:* Re: [belajar-excel] Open New File
> **
>
> Hai Agung,****Biasanya tanpa macro bisa dengan menekan CTRL N****Jika
> ingin belajar VBA (Macro), coba langkah berikut : (asumsi dengan xl2007)**1.
> menuju ke ribbon (menu) Developer (jika belum muncul, tekan Office Button
> -> Options -> page Popular (sisi kiri) -> centang Show developer ribbon ->
> OK)**2. tekan tombol record macro**3. beri nama macro (misal :
> BuatWorkbookBaru)**4. pada shortcut isi dengan huruf N**5. tekan OK**6.
> tekan CTRL N**7. tekan tombol Stop recording**8. save as workbook dengan
> menekan ALT F A atau menekan F12**9. pada save as type, pilih .xlsm**10.
> tekan tombol Save**11. coba tekan CTRL SHIFT N****Jika ingin membuat
> tombol khusus dalam worksheet :**1. insert shape (misal rectangle)**2.
> klik kanan shape -> pilih Assign Macro -> pilih nama macro (misal tadi
> record macro bernama BuatWorkbookBaru ) -> OK**3. save (CTRL S)**4. klik
> sebuah cell**5. klik shape****Jika ingin lihat script untuk buat workbook
> baru :**1. ke VBE dengan menekan ALT F11**2. double click Module1**3.
> cari prosedur bernama BuatWorkbookBaru (bisa gunakan fitur Find dengan
> menekan CTRL F dan pilih Current Project)**4. dalam prosedur (antara
> tulisan SUB sampai END SUB) ada perintah untuk buat workbook baru**5.
> kembali ke worksheet dengan menekan ALT F11****Jika ingin buat secara
> langsung tanpa record macro :**1. ke VBE**2. menu Insert -> Module**3.
> copas script berikut :**public sub ContohBuatWorkbookBaru()**
> workbooks.add**end sub**4. kembali ke worksheet**5. insert shape dan
> assign macro ke prosedur ContohBuatWorkbookBaru [bila perlu]****Wassalam,*
> *Kid.
> ******
> 2013/2/18 agung aldhino d_nozz@yahoo.co.id >**
>
> **
>
> dear master excel,
> saya lagi belajar excel nich. ada yang mau saya tanyakan ke master2
> sekalian. untuk membuat new file dari sheet yang ada lewat macro bagaimana
> yach master2???
>
> **
> ****
>
> **
>
> ****
>
Misal input di sheet bernama Input dan nama sheet yang akan di copy dalam
textbox bernama txtSheet di sheet input.
(letakkan script berikut ini pada event click tombol untuk proses salin
sheet)
dim wbkA as workbook, wbkNew as workbook
dim lSht as long
dim sShtName as string
set wbka=thisworkbook
'simpan nama sheet yang akan diproses
sshtname=sheets(
if sheets(sshtname) is nothing then
msgbox "tidak ada sheet bernama " & sshtname
exit sub
endif
'buat workbook baru isi 1 sheet saja
lsht=application.
application.
set wbknew=workbooks.
application.
wbka.activate
'copas sheet pilihan ke workbook baru sheet pertama di A1, dan beri nama
sheet seperti asalnya
sheets(sshtname)
wbknew.sheets(
msgbox "Done."
Wassalam,
Kid.
2013/2/19 agung aldhino d_nozz@yahoo.
> maaf Mr Kid,
> pertanyaannya belum disertai contoh file.
> berikut contoh file nya.....
> mungkin bisa memperjelas maksud dan tujuan pertanyan saya.
> maaf jika pertanyaan saya agak tidak jelas. maklum saya tidak pandai
> mengolah kata-kata...
>
> best regards
> D Nozz
>
> *Dari:* Mr. Kid mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Senin, 18 Februari 2013 16:46
>
> *Judul:* Re: [belajar-excel] Open New File
> **
>
> Oh... gitu.
>
> Sekarang, maksud berisi sheet tertentu itu apa ?
> >> berisi sejumlah sheet tertentu, misal workbook baru berisi 7 sheet
> kosong langsung
> dim lDefShtCount as long
> dim wbk as workbook
> set wbk = thisworkbook
> ldefshtcount=
> sheet default yang dipakai sekarang
> application.
> workbooks.add
> wbk.activate
> application.
>
> Wassalam,
> Kid.
>
>
> 2013/2/18 agung aldhino d_nozz@yahoo.
>
> **
>
> Dear Mr Kid,
> maaf pertanyaan saya kurang detail. maksud saya untuk membuat new file
> yang berisi sheet tertentu.
> maaf mr kid. kesalahan pertanyaan ada pada saya.
>
> best regards
> d Nozz
>
> *Dari:* Mr. Kid mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Senin, 18 Februari 2013 16:12
> *Judul:* Re: [belajar-excel] Open New File
> **
>
> Hai Agung,****Biasanya tanpa macro bisa dengan menekan CTRL N****Jika
> ingin belajar VBA (Macro), coba langkah berikut : (asumsi dengan xl2007)**1.
> menuju ke ribbon (menu) Developer (jika belum muncul, tekan Office Button
> -> Options -> page Popular (sisi kiri) -> centang Show developer ribbon ->
> OK)**2. tekan tombol record macro**3. beri nama macro (misal :
> BuatWorkbookBaru)
> tekan CTRL N**7. tekan tombol Stop recording**8. save as workbook dengan
> menekan ALT F A atau menekan F12**9. pada save as type, pilih .xlsm**10.
> tekan tombol Save**11. coba tekan CTRL SHIFT N****Jika ingin membuat
> tombol khusus dalam worksheet :**1. insert shape (misal rectangle)**
> klik kanan shape -> pilih Assign Macro -> pilih nama macro (misal tadi
> record macro bernama BuatWorkbookBaru ) -> OK**3. save (CTRL S)**4. klik
> sebuah cell**5. klik shape****Jika ingin lihat script untuk buat workbook
> baru :**1. ke VBE dengan menekan ALT F11**2. double click Module1**3.
> cari prosedur bernama BuatWorkbookBaru (bisa gunakan fitur Find dengan
> menekan CTRL F dan pilih Current Project)**4. dalam prosedur (antara
> tulisan SUB sampai END SUB) ada perintah untuk buat workbook baru**5.
> kembali ke worksheet dengan menekan ALT F11****Jika ingin buat secara
> langsung tanpa record macro :**1. ke VBE**2. menu Insert -> Module**3.
> copas script berikut :**public sub ContohBuatWorkbookB
> workbooks.add*
> assign macro ke prosedur ContohBuatWorkbookB
> *Kid.
> ******
> 2013/2/18 agung aldhino d_nozz@yahoo.
>
> **
>
> dear master excel,
> saya lagi belajar excel nich. ada yang mau saya tanyakan ke master2
> sekalian. untuk membuat new file dari sheet yang ada lewat macro bagaimana
> yach master2???
>
> **
> ****
>
> **
>
> ****
>
Mon Feb 18, 2013 8:50 pm (PST) . Posted by:
"agung aldhino" d_nozz
thanks Mr Kid.
tapi masih error.
jika tidak salah workbook yang baru berisi sheet "txtsheet" ya.
jadi disini kita ngisinya manual. jika kita kita mau sheet lain. kita harus rubah VB nya.
jika saya coba baca VB nya seperti itu. maaf kalo salah karena baru belajar.
untuk nama sheetnya kita menggunakan panduan combo box (seperti dalam contoh fle) bagaimana ya Mr kid bunyi VB nya?
ohya untuk combo boxnya bagaimana kita membuat pilihannya.
thank.
D Nozz
________________________________
Dari: Mr. Kid mr.nmkid@gmail.com >
Kepada: "belajar-excel@yahoogroups.com " belajar-excel@yahoogroups.com >
Dikirim: Selasa, 19 Februari 2013 11:01
Judul: Re: [belajar-excel] Open New File
hehehe... jadi permasalahannya adalah copy sheet ke workbook baru.
Misal input di sheet bernama Input dan nama sheet yang akan di copy dalam textbox bernama txtSheet di sheet input.
(letakkan script berikut ini pada event click tombol untuk proses salin sheet)
dim wbkA as workbook, wbkNew as workbook
dim lSht as long
dim sShtName as string
set wbka=thisworkbook
'simpan nama sheet yang akan diproses
sshtname=sheets("input";).txtsheet.text
if sheets(sshtname) is nothing then
msgbox "tidak ada sheet bernama " & sshtname
exit sub
endif
'buat workbook baru isi 1 sheet saja
lsht=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
set wbknew=workbooks.add
application.sheetsinnewworkbook=lsht
wbka.activate
'copas sheet pilihan ke workbook baru sheet pertama di A1, dan beri nama sheet seperti asalnya
sheets(sshtname).cells.copy wbknew.sheets(1).range("a1")
wbknew.sheets(1).name=sshtname
msgbox "Done."
Wassalam,
Kid.
2013/2/19 agung aldhino d_nozz@yahoo.co.id >
maaf Mr Kid,
>pertanyaannya belum disertai contoh file.
>berikut contoh file nya.....
>mungkin bisa memperjelas maksud dan tujuan pertanyan saya.
>maaf jika pertanyaan saya agak tidak jelas. maklum saya tidak pandai mengolah kata-kata.....
>
>best regards
>D Nozz
>
>
>Dari: Mr. Kid mr.nmkid@gmail.com >Kepada: belajar-excel@yahoogroups.com Dikirim: Senin, 18 Februari 2013 16:46
>Judul: Re: [belajar-excel] Open New File
>
>Oh... gitu.Sekarang, maksud berisi sheet tertentu itu apa ?>> berisi sejumlah sheet tertentu, misal workbook baru berisi 7 sheet kosong langsungdim lDefShtCount as long dim wbk as workbookset wbk = thisworkbookldefshtcount=application.sheetsinnewworkbook 'simpan dulu jumlah sheet default yang dipakai sekarangapplication.sheetsinnewworkbook=7workbooks.addwbk.activateapplication.sheetsinnewworkbook=ldefshtcountWassalam,Kid.
>2013/2/18 agung aldhino d_nozz@yahoo.co.id >
>
>>Dear Mr Kid,
>>maaf pertanyaan saya kurang detail. maksud saya untuk membuat new file yang berisi sheet tertentu.
>>maaf mr kid. kesalahan pertanyaan ada pada saya.
>>
>>best regards
>>d Nozz
>>
>>
>>Dari: Mr. Kid mr.nmkid@gmail.com >
>>Kepada: belajar-excel@yahoogroups.com
>>Dikirim: Senin, 18 Februari 2013 16:12
>>Judul: Re: [belajar-excel] Open New File
>>
>>
>>Hai Agung,Biasanya tanpa macro bisa dengan menekan CTRL NJika ingin belajar VBA (Macro), coba langkah berikut : (asumsi dengan xl2007)1. menuju ke ribbon (menu) Developer (jika belum muncul, tekan Office Button -> Options -> page Popular (sisi kiri) -> centang Show developer ribbon -> OK)2. tekan tombol record macro3. beri nama macro (misal : BuatWorkbookBaru)4. pada shortcut isi dengan huruf N5. tekan OK6. tekan CTRL N7. tekan tombol Stop recording8. save as workbook dengan menekan ALT F A atau menekan F129. pada save as type, pilih .xlsm10. tekan tombol Save11. coba tekan CTRL SHIFT NJika ingin membuat tombol khusus dalam worksheet :1. insert shape (misal rectangle)2. klik kanan shape -> pilih Assign Macro -> pilih nama macro (misal tadi record macro bernama BuatWorkbookBaru ) -> OK3. save (CTRL S)4. klik sebuah cell5. klik shapeJika ingin lihat script untuk buat workbook baru :1. ke VBE dengan menekan ALT F112. double click Module13.
cari prosedur bernama BuatWorkbookBaru (bisa gunakan fitur Find dengan menekan CTRL F dan pilih Current Project)4. dalam prosedur (antara tulisan SUB sampai END SUB) ada perintah untuk buat workbook baru5. kembali ke worksheet dengan menekan ALT F11Jika ingin buat secara langsung tanpa record macro :1. ke VBE2. menu Insert -> Module3. copas script berikut :public sub ContohBuatWorkbookBaru() workbooks.addend sub4. kembali ke worksheet5. insert shape dan assign macro ke prosedur ContohBuatWorkbookBaru [bila perlu]Wassalam,Kid.
>>2013/2/18 agung aldhino d_nozz@yahoo.co.id >
>>
>>>dear master excel,
>>>saya lagi belajar excel nich. ada yang mau saya tanyakan ke master2 sekalian. untuk membuat new file dari sheet yang ada lewat macro bagaimana yach master2???
tapi masih error.
jika tidak salah workbook yang baru berisi sheet "
jadi disini kita ngisinya manual. jika kita kita mau sheet lain. kita harus rubah VB nya.
jika saya coba baca VB nya seperti itu. maaf kalo salah karena baru belajar.
untuk nama sheetnya kita menggunakan panduan combo box (seperti dalam contoh fle) bagaimana ya Mr kid bunyi VB nya?
ohya untuk combo boxnya bagaimana kita membuat pilihannya.
thank.
D Nozz
____________
Dari: Mr. Kid mr.nmkid@gmail.
Kepada: "belajar-excel@
Dikirim: Selasa, 19 Februari 2013 11:01
Judul: Re: [belajar-excel] Open New File
hehehe... jadi permasalahannya adalah copy sheet ke workbook baru.
Misal input di sheet bernama Input dan nama sheet yang akan di copy dalam textbox bernama txtSheet di sheet input.
(letakkan script berikut ini pada event click tombol untuk proses salin sheet)
dim wbkA as workbook, wbkNew as workbook
dim lSht as long
dim sShtName as string
set wbka=thisworkbook
'simpan nama sheet yang akan diproses
sshtname=sheets(
if sheets(sshtname) is nothing then
msgbox "tidak ada sheet bernama " & sshtname
exit sub
endif
'buat workbook baru isi 1 sheet saja
lsht=application.
application.
set wbknew=workbooks.
application.
wbka.activate
'copas sheet pilihan ke workbook baru sheet pertama di A1, dan beri nama sheet seperti asalnya
sheets(sshtname)
wbknew.sheets(
msgbox "Done."
Wassalam,
Kid.
2013/2/19 agung aldhino d_nozz@yahoo.
maaf Mr Kid,
>pertanyaannya belum disertai contoh file.
>berikut contoh file nya.....
>mungkin bisa memperjelas maksud dan tujuan pertanyan saya.
>maaf jika pertanyaan saya agak tidak jelas. maklum saya tidak pandai mengolah kata-kata...
>
>best regards
>D Nozz
>
>
>Dari: Mr. Kid mr.nmkid@gmail.
>Judul: Re: [belajar-excel] Open New File
>
>Oh... gitu.Sekarang, maksud berisi sheet tertentu itu apa ?>> berisi sejumlah sheet tertentu, misal workbook baru berisi 7 sheet kosong langsungdim lDefShtCount as long dim wbk as workbookset wbk = thisworkbookldefsht
>2013/2/18 agung aldhino d_nozz@yahoo.
>
>>Dear Mr Kid,
>>maaf pertanyaan saya kurang detail. maksud saya untuk membuat new file yang berisi sheet tertentu.
>>maaf mr kid. kesalahan pertanyaan ada pada saya.
>>
>>best regards
>>d Nozz
>>
>>
>>Dari: Mr. Kid mr.nmkid@gmail.
>>Kepada: belajar-excel@
>>Dikirim: Senin, 18 Februari 2013 16:12
>>Judul: Re: [belajar-excel] Open New File
>>
>>
>>Hai Agung,Biasanya tanpa macro bisa dengan menekan CTRL NJika ingin belajar VBA (Macro), coba langkah berikut : (asumsi dengan xl2007)1. menuju ke ribbon (menu) Developer (jika belum muncul, tekan Office Button -> Options -> page Popular (sisi kiri) -> centang Show developer ribbon -> OK)2. tekan tombol record macro3. beri nama macro (misal : BuatWorkbookBaru)
cari prosedur bernama BuatWorkbookBaru (bisa gunakan fitur Find dengan menekan CTRL F dan pilih Current Project)4. dalam prosedur (antara tulisan SUB sampai END SUB) ada perintah untuk buat workbook baru5. kembali ke worksheet dengan menekan ALT F11Jika ingin buat secara langsung tanpa record macro :1. ke VBE2. menu Insert -> Module3. copas script berikut :public sub ContohBuatWorkbookB
>>2013/
>>
>>>
>>>
Dear Mr. Kid,
Kalau dilihat dari rumus dibawah, bisakah saya simpulkan bahwa semua
fungsi2 yang ada di Excel seperti Sum, Average, count, sumif, match, dll,
bisa di jadikan code VBA dengan diawali dengan
Evaluate ?
Trims jawabannya,
Wassalam,
Tio
"Mr. Kid" mr.nmkid@gmail.com >
Sent by: belajar-excel@yahoogroups.com
02/18/2013 01:45 PM
Please respond to belajar-excel
To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Mengecek isi cell
Bunyi formula yang diinginkan tertulis di cell adalah :
=Countif(RangeHeader,"Keterangan")
Karena ada inputan berupa string berbunyi "Keterangan" (lengkap beserta tanpa petik dua), maka setiap tanda petik dua harus
menjadi 2 bijik, menjadi :
=Countif(RangeHeader,""Keterangan"")
kemudian lengkapnya menjadi :
range("b1").formula = "=Countif(RangeHeader,""Keterangan"")"
seperti sudah dicontohkan pada posting terdahulu berbunyi :
Evaluate("=countif(b2:e2,""*Kelas*"")")
Wassalam,
Kid.
2013/2/18 tio.adjie@ptssb.co.id >
Terima kasih Mr. Kid,
Saya coba cara lain, yaitu :
Range("B2").Select
'Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Name = "RangeHeader"
Range("B1").Select
Range("B1").FormulaR1C1 = "=Countif(RangeHeader,"Keterangan")"
If Range("B1").Value = 1 Then
MsgBox ("Ada")
Else
MsgBox ("Tidak ada")
End If
Kok di bagian "Keterangan" error yah, yaitu warning msg nya : needs end
statement, kenapa yah ???
Tapi kalau apostrope nya di buang tidak error, tapi khan seharusnya pakai
apostrope
Terima kasih,
Wassalam,
Tio
"Mr. Kid" mr.nmkid@gmail.com >
Sent by: belajar-excel@yahoogroups.com
02/15/2013 08:29 PM
Please respond to belajar-excel
To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Mengecek isi cell
Hai Tio,
Bagaimana jika tidak menggunakan For each Next ?
Kira-kira bunyinya :
Dim sMsg As String
If Evaluate("=countif(b2:e2,""*Kelas*"")") = 0 Then
sMsg = "- Tidak ada kolom bernama Kelas" & vbCrLf
End If
If Evaluate("=countif(b2:e2,""*Keterangan*"")") = 0 Then
sMsg = sMsg & "- Tidak ada kolom bernama Keterangan" & vbCrLf
End If
If LenB(sMsg) <> 0 Then
MsgBox "Data kurang tepat karena :" & vbCrLf & sMsg, vbExclamation
Else
MsgBox "Data valid.", vbInformation
End If
Jika tetap ingin pakai For Each Next, bisa disusun dengan banyak cara dan
salah satunya adalah :
Dim rng As Range
Dim vKolom As Variant
Dim bNotFound As Boolean
Dim sMsg As String
sMsg = vbNullString
For Each vKolom In Array("Kelas", "Keterangan")
bNotFound = True
For Each rng In Range("b2:e2")
If InStr(LCase$(rng.Value), LCase$(vKolom)) <> 0 Then
bNotFound = False
Exit For
End If
Next rng
If bNotFound Then
sMsg = sMsg & "- Tidak ada kolom bernama " & vKolom & vbCrLf
End If
Next vKolom
If LenB(sMsg) <> 0 Then
MsgBox "Data tidak valid karena :" & vbCrLf & sMsg, vbExclamation
Else
MsgBox "Data valid.", vbInformation
End If
Selain kedua cara diatas, masih ada banyak cara lain, seperti penggunaan
methods find maupun worksheet function countif.
Memanfaatkan cell bantu berformula juga bisa.
Wassalam,
Kid.
2013/2/15 tio.adjie@ptssb.co.id >
Dear Be-Exceller,
Saya punya 4 kolom yang isinya Nama , Kelas, Umur, dan Keterangan. Saya
ingin ada button untuk mengecek apakah nama cell dari ke2 kolom dari ke-4
kolom itu isinya adalah benar yaitu yang
isi cellnya adalah Kelas dan Keterangan. Saya coba pakai For Each..Next,
tapi gak berhasil. Karena kadang User tidak menulis nama cell secara benar
yaitu yang isinya Kelas dan Keterangan.
Kalau tidak ada cell yang isinya Kelas maka msgbox "Tidak ada cell yang
bernama Kelas", dan juga kalau tidak ada cell yang isinya Keterangan maka
ada msgbox "Tidak ada cell yang bernama
Keterangan".
Ini picturenya :
Terima kasih,
Wassalam,
Tio
Kalau dilihat dari rumus dibawah, bisakah saya simpulkan bahwa semua
fungsi2 yang ada di Excel seperti Sum, Average, count, sumif, match, dll,
bisa di jadikan code VBA dengan diawali dengan
Evaluate ?
Trims jawabannya,
Wassalam,
Tio
"Mr. Kid" mr.nmkid@gmail.
Sent by: belajar-excel@
02/18/2013 01:45 PM
Please respond to belajar-excel
To: belajar-excel@
cc:
Subject: Re: [belajar-excel] Mengecek isi cell
Bunyi formula yang diinginkan tertulis di cell adalah :
=Countif(RangeHeade
Karena ada inputan berupa string berbunyi "Keterangan&qu
menjadi 2 bijik, menjadi :
=Countif(RangeHeade
kemudian lengkapnya menjadi :
range("
seperti sudah dicontohkan pada posting terdahulu berbunyi :
Evaluate("
Wassalam,
Kid.
2013/2/18 tio.adjie@ptssb.
Terima kasih Mr. Kid,
Saya coba cara lain, yaitu :
Range("
'Range(Selectio
Range(Selection, Selection.End(
Range("
Range("
If Range("
MsgBox ("Ada"
Else
MsgBox ("Tidak ada")
End If
Kok di bagian "Keterangan&qu
statement, kenapa yah ???
Tapi kalau apostrope nya di buang tidak error, tapi khan seharusnya pakai
apostrope
Terima kasih,
Wassalam,
Tio
"Mr. Kid" mr.nmkid@gmail.
Sent by: belajar-excel@
02/15/2013 08:29 PM
Please respond to belajar-excel
To: belajar-excel@
cc:
Subject: Re: [belajar-excel] Mengecek isi cell
Hai Tio,
Bagaimana jika tidak menggunakan For each Next ?
Kira-kira bunyinya :
Dim sMsg As String
If Evaluate("
sMsg = "- Tidak ada kolom bernama Kelas" & vbCrLf
End If
If Evaluate("
sMsg = sMsg & "- Tidak ada kolom bernama Keterangan" & vbCrLf
End If
If LenB(sMsg) <> 0 Then
MsgBox "Data kurang tepat karena :" & vbCrLf & sMsg, vbExclamation
Else
MsgBox "Data valid."
End If
Jika tetap ingin pakai For Each Next, bisa disusun dengan banyak cara dan
salah satunya adalah :
Dim rng As Range
Dim vKolom As Variant
Dim bNotFound As Boolean
Dim sMsg As String
sMsg = vbNullString
For Each vKolom In Array("
bNotFound = True
For Each rng In Range("
If InStr(LCase$
bNotFound = False
Exit For
End If
Next rng
If bNotFound Then
sMsg = sMsg & "- Tidak ada kolom bernama " & vKolom & vbCrLf
End If
Next vKolom
If LenB(sMsg) <> 0 Then
MsgBox "Data tidak valid karena :" & vbCrLf & sMsg, vbExclamation
Else
MsgBox "Data valid."
End If
Selain kedua cara diatas, masih ada banyak cara lain, seperti penggunaan
methods find maupun worksheet function countif.
Memanfaatkan cell bantu berformula juga bisa.
Wassalam,
Kid.
2013/2/15 tio.adjie@ptssb.
Dear Be-Exceller,
Saya punya 4 kolom yang isinya Nama , Kelas, Umur, dan Keterangan. Saya
ingin ada button untuk mengecek apakah nama cell dari ke2 kolom dari ke-4
kolom itu isinya adalah benar yaitu yang
isi cellnya adalah Kelas dan Keterangan. Saya coba pakai For Each..Next,
tapi gak berhasil. Karena kadang User tidak menulis nama cell secara benar
yaitu yang isinya Kelas dan Keterangan.
Kalau tidak ada cell yang isinya Kelas maka msgbox "Tidak ada cell yang
bernama Kelas", dan juga kalau tidak ada cell yang isinya Keterangan maka
ada msgbox "Tidak ada cell yang bernama
Keterangan"
Ini picturenya :
Terima kasih,
Wassalam,
Tio
Mon Feb 18, 2013 7:51 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Yup.
Evaluate adalah sebuah fungsi untuk mengkomputasi ekspresi (formula,rujukan
range [termasuk nama range]) pada sheet aktif. Jadi, untuk formula yang
isinya merujuk ke sheet lain harus menyertakan nama sheet-nya. Evaluate
tidak bisa mengkomputasi rujukan ke workbook lain yang dalam keadaan
tertutup.
Cenderung gunakan methods Evaluate milik worksheet daripada milik
Application dengan cara :
worksheets("nama sheet basis kerja evaluate").Evaluate(ekspresi_evaluate)
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.co.id >
> **
>
>
>
> Dear Mr. Kid,
>
> Kalau dilihat dari rumus dibawah, bisakah saya simpulkan bahwa semua
> fungsi2 yang ada di Excel seperti Sum, Average, count, sumif, match, dll,
> bisa di jadikan code VBA dengan diawali dengan
>
> Evaluate ?
>
>
> Trims jawabannya,
> Wassalam,
> Tio
>
>
>
> *"Mr. Kid" mr.nmkid@gmail.com >*
> Sent by: belajar-excel@yahoogroups.com
>
> 02/18/2013 01:45 PM
> Please respond to belajar-excel
>
> To: belajar-excel@yahoogroups.com
> cc:
> Subject: Re: [belajar-excel] Mengecek isi cell
>
>
>
>
> Bunyi formula yang diinginkan tertulis di cell adalah :
> =Countif(RangeHeader,*"Keterangan"*)
>
> Karena ada inputan berupa string berbunyi *"Keterangan" *(lengkap beserta
> tanpa petik dua), maka setiap tanda petik dua harus menjadi 2 bijik,
> menjadi :
> =Countif(RangeHeader,*""Keterangan""*)
> kemudian lengkapnya menjadi :
> range("b1").formula = "=Countif(RangeHeader,*""Keterangan""*)"
>
> seperti sudah dicontohkan pada posting terdahulu berbunyi :
> Evaluate("=countif(b2:e2,""*Kelas*"")")
>
> Wassalam,
> Kid.
>
> 2013/2/18 *tio.adjie@ptssb.co.id * tio.adjie@ptssb.co.id >>
>
>
>
> Terima kasih Mr. Kid,
>
> Saya coba cara lain, yaitu :
>
> Range("B2").Select
> 'Range(Selection, Selection.End(xlToRight)).Select
> Range(Selection, Selection.End(xlToRight)).Name = "RangeHeader"
> Range("B1").Select
> Range("B1").FormulaR1C1 = "=Countif(RangeHeader,*"Keterangan"*)"
> If Range("B1").Value = 1 Then
> MsgBox ("Ada")
> Else
> MsgBox ("Tidak ada")
> End If
>
> Kok di bagian "Keterangan" error yah, yaitu warning msg nya : needs end
> statement, kenapa yah ???
>
>
> Tapi kalau apostrope nya di buang tidak error, tapi khan seharusnya pakai
> apostrope
>
> Terima kasih,
> Wassalam,
> Tio
>
>
> *"Mr. Kid" **mr.nmkid@gmail.com * mr.nmkid@gmail.com >*>*
> Sent by: *belajar-excel@yahoogroups.com * belajar-excel@yahoogroups.com >
>
> 02/15/2013 08:29 PM
> Please respond to belajar-excel
>
> To: *belajar-excel@yahoogroups.com *belajar-excel@yahoogroups.com >
> cc:
> Subject: Re: [belajar-excel] Mengecek isi cell
>
>
>
>
>
> Hai Tio,
>
> Bagaimana jika tidak menggunakan For each Next ?
> Kira-kira bunyinya :
> Dim sMsg As String
>
> If Evaluate("=countif(b2:e2,""*Kelas*"")") = 0 Then
> sMsg = "- Tidak ada kolom bernama Kelas" & vbCrLf
> End If
> If Evaluate("=countif(b2:e2,""*Keterangan*"")") = 0 Then
> sMsg = sMsg & "- Tidak ada kolom bernama Keterangan" & vbCrLf
> End If
> If LenB(sMsg) <> 0 Then
> MsgBox "Data kurang tepat karena :" & vbCrLf & sMsg, vbExclamation
> Else
> MsgBox "Data valid.", vbInformation
> End If
>
> Jika tetap ingin pakai For Each Next, bisa disusun dengan banyak cara dan
> salah satunya adalah :
> Dim rng As Range
> Dim vKolom As Variant
> Dim bNotFound As Boolean
> Dim sMsg As String
>
> sMsg = vbNullString
> For Each vKolom In Array("Kelas", "Keterangan")
> bNotFound = True
> For Each rng In Range("b2:e2")
> If InStr(LCase$(rng.Value), LCase$(vKolom)) <> 0 Then
> bNotFound = False
> Exit For
> End If
> Next rng
> If bNotFound Then
> sMsg = sMsg & "- Tidak ada kolom bernama " & vKolom & vbCrLf
> End If
> Next vKolom
> If LenB(sMsg) <> 0 Then
> MsgBox "Data tidak valid karena :" & vbCrLf & sMsg, vbExclamation
> Else
> MsgBox "Data valid.", vbInformation
> End If
>
> Selain kedua cara diatas, masih ada banyak cara lain, seperti penggunaan
> methods find maupun worksheet function countif.
> Memanfaatkan cell bantu berformula juga bisa.
>
> Wassalam,
> Kid.
>
> 2013/2/15 *tio.adjie@ptssb.co.id * tio.adjie@ptssb.co.id >>
>
>
>
>
> Dear Be-Exceller,
>
> Saya punya 4 kolom yang isinya Nama , Kelas, Umur, dan Keterangan. Saya
> ingin ada button untuk mengecek apakah nama cell dari ke2 kolom dari ke-4
> kolom itu isinya adalah benar yaitu yang
>
> isi cellnya adalah Kelas dan Keterangan. Saya coba pakai For Each..Next,
> tapi gak berhasil. Karena kadang User tidak menulis nama cell secara benar
> yaitu yang isinya Kelas dan Keterangan.
>
> Kalau tidak ada cell yang isinya Kelas maka msgbox "Tidak ada cell yang
> bernama Kelas", dan juga kalau tidak ada cell yang isinya Keterangan maka
> ada msgbox "Tidak ada cell yang bernama
>
> Keterangan".
>
> Ini picturenya :
>
>
>
>
> Terima kasih,
> Wassalam,
> Tio
>
>
>
>
>
>
Evaluate adalah sebuah fungsi untuk mengkomputasi ekspresi (formula,rujukan
range [termasuk nama range]) pada sheet aktif. Jadi, untuk formula yang
isinya merujuk ke sheet lain harus menyertakan nama sheet-nya. Evaluate
tidak bisa mengkomputasi rujukan ke workbook lain yang dalam keadaan
tertutup.
Cenderung gunakan methods Evaluate milik worksheet daripada milik
Application dengan cara :
worksheets("
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.
> **
>
>
>
> Dear Mr. Kid,
>
> Kalau dilihat dari rumus dibawah, bisakah saya simpulkan bahwa semua
> fungsi2 yang ada di Excel seperti Sum, Average, count, sumif, match, dll,
> bisa di jadikan code VBA dengan diawali dengan
>
> Evaluate ?
>
>
> Trims jawabannya,
> Wassalam,
> Tio
>
>
>
> *"Mr. Kid" mr.nmkid@gmail.
> Sent by: belajar-excel@
>
> 02/18/2013 01:45 PM
> Please respond to belajar-excel
>
> To: belajar-excel@
> cc:
> Subject: Re: [belajar-excel] Mengecek isi cell
>
>
>
>
> Bunyi formula yang diinginkan tertulis di cell adalah :
> =Countif(RangeHeade
>
> Karena ada inputan berupa string berbunyi *"Keterangan&q
> tanpa petik dua), maka setiap tanda petik dua harus menjadi 2 bijik,
> menjadi :
> =Countif(RangeHeade
> kemudian lengkapnya menjadi :
> range("
>
> seperti sudah dicontohkan pada posting terdahulu berbunyi :
> Evaluate("
>
> Wassalam,
> Kid.
>
> 2013/2/18 *tio.adjie@ptssb.
>
>
>
> Terima kasih Mr. Kid,
>
> Saya coba cara lain, yaitu :
>
> Range("
> 'Range(Selectio
> Range(Selection, Selection.End(
> Range("
> Range("
> If Range("
> MsgBox ("Ada"
> Else
> MsgBox ("Tidak ada")
> End If
>
> Kok di bagian "Keterangan&qu
> statement, kenapa yah ???
>
>
> Tapi kalau apostrope nya di buang tidak error, tapi khan seharusnya pakai
> apostrope
>
> Terima kasih,
> Wassalam,
> Tio
>
>
> *"Mr. Kid" **mr.nmkid@gmail.
> Sent by: *belajar-excel@
>
> 02/15/2013 08:29 PM
> Please respond to belajar-excel
>
> To: *belajar-excel@
> cc:
> Subject: Re: [belajar-excel] Mengecek isi cell
>
>
>
>
>
> Hai Tio,
>
> Bagaimana jika tidak menggunakan For each Next ?
> Kira-kira bunyinya :
> Dim sMsg As String
>
> If Evaluate("
> sMsg = "- Tidak ada kolom bernama Kelas" & vbCrLf
> End If
> If Evaluate("
> sMsg = sMsg & "- Tidak ada kolom bernama Keterangan" & vbCrLf
> End If
> If LenB(sMsg) <> 0 Then
> MsgBox "Data kurang tepat karena :" & vbCrLf & sMsg, vbExclamation
> Else
> MsgBox "Data valid."
> End If
>
> Jika tetap ingin pakai For Each Next, bisa disusun dengan banyak cara dan
> salah satunya adalah :
> Dim rng As Range
> Dim vKolom As Variant
> Dim bNotFound As Boolean
> Dim sMsg As String
>
> sMsg = vbNullString
> For Each vKolom In Array("
> bNotFound = True
> For Each rng In Range("
> If InStr(LCase$
> bNotFound = False
> Exit For
> End If
> Next rng
> If bNotFound Then
> sMsg = sMsg & "- Tidak ada kolom bernama " & vKolom & vbCrLf
> End If
> Next vKolom
> If LenB(sMsg) <> 0 Then
> MsgBox "Data tidak valid karena :" & vbCrLf & sMsg, vbExclamation
> Else
> MsgBox "Data valid."
> End If
>
> Selain kedua cara diatas, masih ada banyak cara lain, seperti penggunaan
> methods find maupun worksheet function countif.
> Memanfaatkan cell bantu berformula juga bisa.
>
> Wassalam,
> Kid.
>
> 2013/2/15 *tio.adjie@ptssb.
>
>
>
>
> Dear Be-Exceller,
>
> Saya punya 4 kolom yang isinya Nama , Kelas, Umur, dan Keterangan. Saya
> ingin ada button untuk mengecek apakah nama cell dari ke2 kolom dari ke-4
> kolom itu isinya adalah benar yaitu yang
>
> isi cellnya adalah Kelas dan Keterangan. Saya coba pakai For Each..Next,
> tapi gak berhasil. Karena kadang User tidak menulis nama cell secara benar
> yaitu yang isinya Kelas dan Keterangan.
>
> Kalau tidak ada cell yang isinya Kelas maka msgbox "Tidak ada cell yang
> bernama Kelas", dan juga kalau tidak ada cell yang isinya Keterangan maka
> ada msgbox "Tidak ada cell yang bernama
>
> Keterangan"
>
> Ini picturenya :
>
>
>
>
> Terima kasih,
> Wassalam,
> Tio
>
>
>
>
>
>
Mon Feb 18, 2013 6:02 pm (PST) . Posted by:
"Heru Safrudin" superheruu
Dear Master,
Saya ingin menempatkan kontrol di cell yang saya kehendaki,
Lalu bagaimana cara mengetahui cell aktif kita ?
berada di koordinat pixel x dan y berapa ?
Terima kasih
Saya ingin menempatkan kontrol di cell yang saya kehendaki,
Lalu bagaimana cara mengetahui cell aktif kita ?
berada di koordinat pixel x dan y berapa ?
Terima kasih
Mon Feb 18, 2013 8:05 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba file terlampir.
Wassalam,
Kid.
2013/2/19 Heru Safrudin superheruu@gmail.com >
> **
>
>
> **
> Dear Master,
>
>
> Saya ingin menempatkan kontrol di cell yang saya kehendaki,
> Lalu bagaimana cara mengetahui cell aktif kita ?
> berada di koordinat pixel x dan y berapa ?
>
>
> Terima kasih
>
>
>
Wassalam,
Kid.
2013/2/19 Heru Safrudin superheruu@gmail.
> **
>
>
> **
> Dear Master,
>
>
> Saya ingin menempatkan kontrol di cell yang saya kehendaki,
> Lalu bagaimana cara mengetahui cell aktif kita ?
> berada di koordinat pixel x dan y berapa ?
>
>
> Terima kasih
>
>
>
Mon Feb 18, 2013 7:42 pm (PST) . Posted by:
"Helsy B" helsyb
Mr Kid,
Terima kasih nambah lagi ilmu saya selain dengan IF, ternyata bisa menggunakan lookup.
--- Pada Sen, 18/2/13, Mr. Kid mr.nmkid@gmail.com > menulis:
Dari: Mr. Kid mr.nmkid@gmail.com >
Judul: Re: [belajar-excel] perhitungan insentif borongan
Kepada: belajar-excel@yahoogroups.com
Tanggal: Senin, 18 Februari, 2013, 7:22 AM
Ikutan ah... biar rame...
Pada cell E6 diberi formula : (lalu copy ke cell lain dibawahnya)
1. Jika regional setting komputer setempat adalah EN (English) [tanda pemisah ribuan adalah koma]
=LOOKUP(C6,{0,60000,100000},C6*{0.5,0.75,1})
2. Jika regional setting komputer setempat adalah ID (Indonesia) [tanda pemisah ribuan adalah titik]
=LOOKUP(C6;{0\60000\100000};C6*{0,5\0,75\1})
File terlampir.
Wassalam,
Kid.
2013/2/18 Renaldo Parulian renaldo.parulian@yahoo.co.id >
Dear Suhu Excel
mohon untuk bantuannya dalam perhitungan insentif borongan.adapaun perhitungannya kami lampirkan datanya.
trims
Terima kasih nambah lagi ilmu saya selain dengan IF, ternyata bisa menggunakan lookup.
--- Pada Sen, 18/2/13, Mr. Kid mr.nmkid@gmail.
Dari: Mr. Kid mr.nmkid@gmail.
Judul: Re: [belajar-excel] perhitungan insentif borongan
Kepada: belajar-excel@
Tanggal: Senin, 18 Februari, 2013, 7:22 AM
Ikutan ah... biar rame...
Pada cell E6 diberi formula : (lalu copy ke cell lain dibawahnya)
1. Jika regional setting komputer setempat adalah EN (English) [tanda pemisah ribuan adalah koma]
=LOOKUP(C6,{
2. Jika regional setting komputer setempat adalah ID (Indonesia) [tanda pemisah ribuan adalah titik]
=LOOKUP(C6;{
File terlampir.
Wassalam,
Kid.
2013/2/18 Renaldo Parulian renaldo.parulian@
Dear Suhu Excel
mohon untuk bantuannya dalam perhitungan insentif borongan.adapaun perhitungannya kami lampirkan datanya.
trims
Mon Feb 18, 2013 7:45 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sama-sama.
Fungsi lookup bisa menjadi alternatif untuk *beberapa *kasus IF bersarang
(nested), terutama yang menyangkut pengkondisian terhadap suatu selang data.
Wassalam,
Kid.
2013/2/19 Helsy B helsyb@yahoo.com >
> **
>
>
> Mr Kid,
>
> Terima kasih nambah lagi ilmu saya selain dengan IF, ternyata bisa
> menggunakan lookup.
>
>
>
>
> --- Pada *Sen, 18/2/13, Mr. Kid mr.nmkid@gmail.com >* menulis:
>
>
> Dari: Mr. Kid mr.nmkid@gmail.com >
> Judul: Re: [belajar-excel] perhitungan insentif borongan
> Kepada: belajar-excel@yahoogroups.com
> Tanggal: Senin, 18 Februari, 2013, 7:22 AM
>
>
>
>
> Ikutan ah... biar rame...
>
> Pada cell E6 diberi formula : (lalu copy ke cell lain dibawahnya)
> 1. Jika regional setting komputer setempat adalah EN (English) [tanda
> pemisah ribuan adalah koma]
> =LOOKUP(C6*,*{0*,*60000*,*100000}*,*C6*{0*.*5*,*0*.*75*,*1})
>
> 2. Jika regional setting komputer setempat adalah ID (Indonesia) [tanda
> pemisah ribuan adalah titik]
> =LOOKUP(C6*;*{0*\*60000*\*100000}*;*C6*{0*,*5*\*0*,*75*\*1})
>
> File terlampir.
>
> Wassalam,
> Kid.
>
> 2013/2/18 Renaldo Parulian renaldo.parulian@yahoo.co.id http://mc/compose?to=renaldo.parulian@yahoo.co.id >
> >
>
> **
>
>
> Dear Suhu Excel
>
> mohon untuk bantuannya dalam perhitungan insentif borongan.
> adapaun perhitungannya kami lampirkan datanya.
>
> trims
>
>
>
>
>
Fungsi lookup bisa menjadi alternatif untuk *beberapa *kasus IF bersarang
(nested), terutama yang menyangkut pengkondisian terhadap suatu selang data.
Wassalam,
Kid.
2013/2/19 Helsy B helsyb@yahoo.
> **
>
>
> Mr Kid,
>
> Terima kasih nambah lagi ilmu saya selain dengan IF, ternyata bisa
> menggunakan lookup.
>
>
>
>
> --- Pada *Sen, 18/2/13, Mr. Kid mr.nmkid@gmail.
>
>
> Dari: Mr. Kid mr.nmkid@gmail.
> Judul: Re: [belajar-excel] perhitungan insentif borongan
> Kepada: belajar-excel@
> Tanggal: Senin, 18 Februari, 2013, 7:22 AM
>
>
>
>
> Ikutan ah... biar rame...
>
> Pada cell E6 diberi formula : (lalu copy ke cell lain dibawahnya)
> 1. Jika regional setting komputer setempat adalah EN (English) [tanda
> pemisah ribuan adalah koma]
> =LOOKUP(C6*,
>
> 2. Jika regional setting komputer setempat adalah ID (Indonesia) [tanda
> pemisah ribuan adalah titik]
> =LOOKUP(C6*;
>
> File terlampir.
>
> Wassalam,
> Kid.
>
> 2013/2/18 Renaldo Parulian renaldo.parulian@
> >
>
> **
>
>
> Dear Suhu Excel
>
> mohon untuk bantuannya dalam perhitungan insentif borongan.
> adapaun perhitungannya kami lampirkan datanya.
>
> trims
>
>
>
>
>
Mon Feb 18, 2013 7:51 pm (PST) . Posted by:
"Helsy B" helsyb
dear pak budhi,
hasil pengurangan kalau dalam bentuk desimal, sep. rumus berikut dan formatnya General.
Semoga sesuai dgn yg dimaksud.
--- Pada Sen, 18/2/13, Budhi Cahyanto budhi.cahyanto@
Dari: Budhi Cahyanto budhi.cahyanto@
Judul: [belajar-excel] Konversi waktu menjadi angka
Kepada: belajar-excel@
Tanggal: Senin, 18 Februari, 2013, 2:26 AM
Dear
Be Exceller,
Saya
punya data di sheet DATA A berupa waktu.
Mohon
bantuannya, bagaimana mengkonversi waktu di DATA A menjadi angka biasa dan bisa
langsung terhubung di sheet DATA B ?
Misalnya,
ketika saya memasukan data waktu di DATA A "Mulai" dan "Selesai",
akan keluar "Lama" waktunya.
Nah,
ketika keluar "Lama" waktu tersebut, lama waktu tersebut langsung
terhubung ke DATA B dan berupa angka sehingga saya bisa menggunakan angka yang
di DATA B untuk perhitungan selanjutnya.
Mohon
solusi dari para pakar. Terima kasih.
Salam,
Mon Feb 18, 2013 8:20 pm (PST) . Posted by:
"Budhi Cahyanto"
Problem solved.
Thanks Mr. Kid.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ]
On Behalf Of Mr. Kid
Sent: 18 Februari 2013 20:50
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Konversi waktu menjadi angka
Hai Budhi,
Data selesai (datetime) - mulai (datetime) = rentang waktu [lamanya]
(datetime)
data datetime menjadi data numerik dengan mengalikan angka 24.
02:00:00 * 24 = 2
A1 mulai, B1 selesai, C1 :
=(B1-A1)*24 -> hasil bertipe numerik
Wassalam,
Kid.
2013/2/18 Budhi Cahyanto budhi.cahyanto@bpkgm.com >
Dear Be Exceller,
Saya punya data di sheet DATA A berupa waktu.
Mohon bantuannya, bagaimana mengkonversi waktu di DATA A menjadi angka biasa
dan bisa langsung terhubung di sheet DATA B ?
Misalnya, ketika saya memasukan data waktu di DATA A "Mulai" dan "Selesai",
akan keluar "Lama" waktunya.
Nah, ketika keluar "Lama" waktu tersebut, lama waktu tersebut langsung
terhubung ke DATA B dan berupa angka sehingga saya bisa menggunakan angka
yang di DATA B untuk perhitungan selanjutnya.
Mohon solusi dari para pakar. Terima kasih.
Salam,
Thanks Mr. Kid.
From: belajar-excel@
On Behalf Of Mr. Kid
Sent: 18 Februari 2013 20:50
To: belajar-excel@
Subject: Re: [belajar-excel] Konversi waktu menjadi angka
Hai Budhi,
Data selesai (datetime) - mulai (datetime) = rentang waktu [lamanya]
(datetime)
data datetime menjadi data numerik dengan mengalikan angka 24.
02:00:00 * 24 = 2
A1 mulai, B1 selesai, C1 :
=(B1-A1)*24 -> hasil bertipe numerik
Wassalam,
Kid.
2013/2/18 Budhi Cahyanto budhi.cahyanto@
Dear Be Exceller,
Saya punya data di sheet DATA A berupa waktu.
Mohon bantuannya, bagaimana mengkonversi waktu di DATA A menjadi angka biasa
dan bisa langsung terhubung di sheet DATA B ?
Misalnya, ketika saya memasukan data waktu di DATA A "Mulai" dan "Selesai"
akan keluar "Lama" waktunya.
Nah, ketika keluar "Lama" waktu tersebut, lama waktu tersebut langsung
terhubung ke DATA B dan berupa angka sehingga saya bisa menggunakan angka
yang di DATA B untuk perhitungan selanjutnya.
Mohon solusi dari para pakar. Terima kasih.
Salam,
Mon Feb 18, 2013 8:50 pm (PST) . Posted by:
slametharto
Assalammu 'alaikum wr wb
Mas Kid, quota sender dan recepient masing-masing 1 MB, sedangkan attachment email 887KB.
Adakah caranya agar bisa kirim sekaligus. Trims
-----Original Message-----
From: "Mr. Kid" mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 18 Feb 2013 16:48:58
To: belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Force Error 452
Wa'alaikumussalam Wr. Wb.
Coba cari tahu batas quota pengiriman email yang sama dari akun email yang
digunakan untuk kirim email.
Jika mencukupi, cek juga batas quota yang diset dalam thunderbird.
Wassalamu'alaikum Wr. Wb.
Kid.
On Mon, Feb 18, 2013 at 3:02 PM, slametharto@gmail.com > wrote:
> Assalammu alaikum wr wb
>
> Dear Master
> Masih dgn email thunderbird. Saya coba dgn cdo method utk kirim bulk email
> ±400 recepient beserta attachment.
> Tetapi hanya dpt mengirim ke 9 recepient saja, muncul error 452: Run-time
> error , the server rejected the sender address. The server response was :
> 452, user.name is over quota and can't send mail.
>
> Setelah itu saya refresh thundirbird manual, lalu run vba lagi.. Jadi
> bisanya per 9 alamat penerima email. Gimana cara memaksakan agar terkirim
> semua.
>
> Sebelum dan sesudahnya terima kasih.
> Wassalammu 'alaikum wr wb
>
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
Mas Kid, quota sender dan recepient masing-masing 1 MB, sedangkan attachment email 887KB.
Adakah caranya agar bisa kirim sekaligus. Trims
-----Original Message-----
From: "Mr. Kid" mr.nmkid@gmail.
Sender: belajar-excel@
Date: Mon, 18 Feb 2013 16:48:58
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] Force Error 452
Wa'alaikumussal
Coba cari tahu batas quota pengiriman email yang sama dari akun email yang
digunakan untuk kirim email.
Jika mencukupi, cek juga batas quota yang diset dalam thunderbird.
Wassalamu'
Kid.
On Mon, Feb 18, 2013 at 3:02 PM, slametharto@
> Assalammu alaikum wr wb
>
> Dear Master
> Masih dgn email thunderbird. Saya coba dgn cdo method utk kirim bulk email
> ±400 recepient beserta attachment.
> Tetapi hanya dpt mengirim ke 9 recepient saja, muncul error 452: Run-time
> error , the server rejected the sender address. The server response was :
> 452, user.name is over quota and can't send mail.
>
> Setelah itu saya refresh thundirbird manual, lalu run vba lagi.. Jadi
> bisanya per 9 alamat penerima email. Gimana cara memaksakan agar terkirim
> semua.
>
> Sebelum dan sesudahnya terima kasih.
> Wassalammu 'alaikum wr wb
>
>
> ------------
>
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
Dear Be-Exceller,
Saya membuat Range Name yang namanya MyList. Saya mau memilih range tsb.
dengan code VBA :
Private Sub CommandButton1_Click()
Dim MyList As Range
Range(MyList).Select
End Sub
Tapi kok gak berhasil, kenapa yah ? Saya sudah coba dengan cara lain,
tetap gak berhasil.
Terima kasih jawabannya.
Wassalam,
Tio
Saya membuat Range Name yang namanya MyList. Saya mau memilih range tsb.
dengan code VBA :
Private Sub CommandButton1_
Dim MyList As Range
Range(MyList)
End Sub
Tapi kok gak berhasil, kenapa yah ? Saya sudah coba dengan cara lain,
tetap gak berhasil.
Terima kasih jawabannya.
Wassalam,
Tio
Mon Feb 18, 2013 9:04 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba :
Private Sub CommandButton1_Click()
Range("MyList").Select
End Sub
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.co.id >
> **
>
>
>
> Dear Be-Exceller,
>
> Saya membuat Range Name yang namanya MyList. Saya mau memilih range tsb.
> dengan code VBA :
>
> Private Sub CommandButton1_Click()
> Dim MyList As Range
>
> Range(MyList).Select
> End Sub
>
> Tapi kok gak berhasil, kenapa yah ? Saya sudah coba dengan cara lain,
> tetap gak berhasil.
>
>
> Terima kasih jawabannya.
> Wassalam,
> Tio
>
>
Private Sub CommandButton1_
Range("
End Sub
Wassalam,
Kid.
2013/2/19 tio.adjie@ptssb.
> **
>
>
>
> Dear Be-Exceller,
>
> Saya membuat Range Name yang namanya MyList. Saya mau memilih range tsb.
> dengan code VBA :
>
> Private Sub CommandButton1_
> Dim MyList As Range
>
> Range(MyList)
> End Sub
>
> Tapi kok gak berhasil, kenapa yah ? Saya sudah coba dengan cara lain,
> tetap gak berhasil.
>
>
> Terima kasih jawabannya.
> Wassalam,
> Tio
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar