15 New Messages
Digest #2387
Messages
Thu Jun 27, 2013 12:03 pm (PDT) . Posted by:
"Lies Mardiana" c2happy_girl
mantabs.. mr.Kid.
saya tunggu kelas pembahasan selanjutnya.. heheh.
saya termasuk yang bener2 pengen belajar dari awal tentang macro/vba..
hehe
2013/6/27 Mr. Kid <mr.nmkid@gmail.com >
> **
>
>
> Bismillah
>
> Assalamu'alaikum Wr. Wb.
>
> Dear BeExceller,
>
> e... :( speechless dah...
>
> gini aja, berdoa dulu kemudian....
> :) xixixixi... coba lihat aja sendiri...<http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html >
>
> Moga-moga nanti bisa berkelanjutan ya...
> Tapi kita mulai dari dummiest n konservatif aja ya,
> yang gampang nulisnya...
> maklum, orang baru,
> sungkan sama yang udah hariannya ngubek-ubek VBA.
>
> Yang udah pada pinter, sempetkanlah melihat-lihat kesana, supaya bisa
> mengoreksi segala sesuatu yang salah yang ada disana dengan segera.
>
> Mohon diingatkan ya kalau ndak muncul tulisan baru yang terlalu lama (3
> bulan misalnya) wakakaka...
>
> yuk belajar vba perlahan-lahan, supaya ndak puyeng apalagi sampai
> menganggap vba itu susah. Kalo memang VBA itu susah, Kid juga bakalan gak
> bisa kali... ;)
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
--
Terimakasih,
Regards,
Lies Mda #12
saya tunggu kelas pembahasan selanjutnya.
saya termasuk yang bener2 pengen belajar dari awal tentang macro/vba..
hehe
2013/6/27 Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Bismillah
>
> Assalamu'
>
> Dear BeExceller,
>
> e... :( speechless dah...
>
> gini aja, berdoa dulu kemudian....
> :) xixixixi... coba lihat aja sendiri...<http://b-excel.
>
> Moga-moga nanti bisa berkelanjutan ya...
> Tapi kita mulai dari dummiest n konservatif aja ya,
> yang gampang nulisnya...
> maklum, orang baru,
> sungkan sama yang udah hariannya ngubek-ubek VBA.
>
> Yang udah pada pinter, sempetkanlah melihat-lihat kesana, supaya bisa
> mengoreksi segala sesuatu yang salah yang ada disana dengan segera.
>
> Mohon diingatkan ya kalau ndak muncul tulisan baru yang terlalu lama (3
> bulan misalnya) wakakaka...
>
> yuk belajar vba perlahan-lahan, supaya ndak puyeng apalagi sampai
> menganggap vba itu susah. Kalo memang VBA itu susah, Kid juga bakalan gak
> bisa kali... ;)
>
> Wassalamu'
> Kid.
>
>
>
--
Terimakasih,
Regards,
Lies Mda #12
Thu Jun 27, 2013 10:15 pm (PDT) . Posted by:
"lapendosol opik" lapendosol
Wa'alaikumsalam Wr. Wb.
Ini yang ditunggu-tunggu, belajar VBA dari dasar abis. Yang paling penting belajar disiplin dalam pembuatan apaaja biar kalo ada yang salah bisa langsung ketahuan. Selama ini hanya copast script dan alhasil begitu tidak sesuai ada yg error jadi bingung errornya dimana hehehe
Ditunggu pembahasan 001 nya Mas Kid
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Friday, June 28, 2013 1:45 AM
Subject: [belajar-excel] BelajarVBA yuk...
Bismillah
Assalamu'alaikum Wr. Wb.
Dear BeExceller,
e... :( speechless dah...
gini aja, berdoa dulu kemudian....
:) xixixixi... coba lihat aja sendiri...
Moga-moga nanti bisa berkelanjutan ya...
Tapi kita mulai dari dummiest n konservatif aja ya,
yang gampang nulisnya...
maklum, orang baru,
sungkan sama yang udah hariannya ngubek-ubek VBA.
Yang udah pada pinter, sempetkanlah melihat-lihat kesana, supaya bisa mengoreksi segala sesuatu yang salah yang ada disana dengan segera.
Mohon diingatkan ya kalau ndak muncul tulisan baru yang terlalu lama (3 bulan misalnya) wakakaka...
yuk belajar vba perlahan-lahan, supaya ndak puyeng apalagi sampai menganggap vba itu susah. Kalo memang VBA itu susah, Kid juga bakalan gak bisa kali... ;)
Wassalamu'alaikum Wr. Wb.
Kid.
Ini yang ditunggu-tunggu, belajar VBA dari dasar abis. Yang paling penting belajar disiplin dalam pembuatan apaaja biar kalo ada yang salah bisa langsung ketahuan. Selama ini hanya copast script dan alhasil begitu tidak sesuai ada yg error jadi bingung errornya dimana hehehe
Ditunggu pembahasan 001 nya Mas Kid
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Friday, June 28, 2013 1:45 AM
Subject: [belajar-excel] BelajarVBA yuk...
Bismillah
Assalamu'
Dear BeExceller,
e... :( speechless dah...
gini aja, berdoa dulu kemudian....
:) xixixixi... coba lihat aja sendiri...
Moga-moga nanti bisa berkelanjutan ya...
Tapi kita mulai dari dummiest n konservatif aja ya,
yang gampang nulisnya...
maklum, orang baru,
sungkan sama yang udah hariannya ngubek-ubek VBA.
Yang udah pada pinter, sempetkanlah melihat-lihat kesana, supaya bisa mengoreksi segala sesuatu yang salah yang ada disana dengan segera.
Mohon diingatkan ya kalau ndak muncul tulisan baru yang terlalu lama (3 bulan misalnya) wakakaka...
yuk belajar vba perlahan-lahan, supaya ndak puyeng apalagi sampai menganggap vba itu susah. Kalo memang VBA itu susah, Kid juga bakalan gak bisa kali... ;)
Wassalamu'
Kid.
Thu Jun 27, 2013 12:30 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba formula :
=COUNTIF(D$1:D2,D2)-COUNTIF($B$2:$B$231,D2)
kemudian klik kanan -> format cells -> tab Number -> item Custom -> di
textbox tulis :
"TIDAK";"YA";"YA"
copy ke bawah
Wassalam,
Kid.
2013/6/27 ChordJR <vendeta_06@yahoo.co.id >
> **
>
>
> Maaf Min & Mod, menyingkapi kasus pada topik ini, sapatau ada yang pernah
> mengalami seperti saya...Ini contoh perbandingan ada atau tidak nya data
> pada kolom B dan kolom D (Rekonsiliasi)
>
> Cth:
> Bagaimana pula bila tidak berlaku untuk data ke-3 dan ke-4
> Padahal yang bernilai 15.000 hanya 2 saja�???
> File saya lampirkan...contoh kasus pada yang bewarna...
>
> Salam,
>
> Indra
>
>
> On 6/26/2013 1:19 PM, Mr. Kid wrote:
>
>
> Coba di E2 diisi formula :
> =IFERROR(MATCH(D2,$B$2:$B$231,0),0)
> lalu klik kanan -> format cells -> tab number -> custom -> isi di textbox
> :
> "YA";;"TIDAK"
> copy ke seluruh baris data.
>
> Lakukan auto filter.
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/6/26 Eko Noviyanto <eko_ny77@yahoo.co.id >
>
>>
>>
>> Dear all,
>>
>> Tolong dibantu untuk mengfilter data dari dua kolom yang terdiri dari
>> banyak baris.
>>
>> Terima kasih saya ucapkan atas bantuannya.
>>
>> Salam,
>> Nopenk
>>
>
>
>
>
=COUNTIF(D$1:
kemudian klik kanan -> format cells -> tab Number -> item Custom -> di
textbox tulis :
"TIDAK"
copy ke bawah
Wassalam,
Kid.
2013/6/27 ChordJR <vendeta_06@yahoo.
> **
>
>
> Maaf Min & Mod, menyingkapi kasus pada topik ini, sapatau ada yang pernah
> mengalami seperti saya...Ini contoh perbandingan ada atau tidak nya data
> pada kolom B dan kolom D (Rekonsiliasi)
>
> Cth:
> Bagaimana pula bila tidak berlaku untuk data ke-3 dan ke-4
> Padahal yang bernilai 15.000 hanya 2 saja�???
> File saya lampirkan...
>
> Salam,
>
> Indra
>
>
> On 6/26/2013 1:19 PM, Mr. Kid wrote:
>
>
> Coba di E2 diisi formula :
> =IFERROR(MATCH(
> lalu klik kanan -> format cells -> tab number -> custom -> isi di textbox
> :
> "YA"
> copy ke seluruh baris data.
>
> Lakukan auto filter.
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/6/26 Eko Noviyanto <eko_ny77@yahoo.
>
>>
>>
>> Dear all,
>>
>> Tolong dibantu untuk mengfilter data dari dua kolom yang terdiri dari
>> banyak baris.
>>
>> Terima kasih saya ucapkan atas bantuannya.
>>
>> Salam,
>> Nopenk
>>
>
>
>
>
Thu Jun 27, 2013 12:34 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Manusia membandingkan angka yang satu dengan angka yang lainnya bisa dengan
mudah karena secara tidak sadar otak manusia mengkonversi setiap tulisan
angka menjadi suatu data bertipe numerik.
Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan
memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi
tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
Ubah bagian :
ElseIf txtJumlahBeli.Text > lblStok.Caption Then
menjadi :
ElseIf clng(0 & txtJumlahBeli.Text) > clng(0 & lblStok.Caption) Then
Wassalam,
Kid.
2013/6/28 lapendosol opik <lapendosol@yahoo.com >
> ElseIf txtJumlahBeli.Text > lblStok.Caption Then
mudah karena secara tidak sadar otak manusia mengkonversi setiap tulisan
angka menjadi suatu data bertipe numerik.
Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan
memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi
tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
Ubah bagian :
ElseIf txtJumlahBeli.
menjadi :
ElseIf clng(0 & txtJumlahBeli.
Wassalam,
Kid.
2013/6/28 lapendosol opik <lapendosol@yahoo.
> ElseIf txtJumlahBeli.
Thu Jun 27, 2013 10:00 pm (PDT) . Posted by:
"lapendosol opik" lapendosol
Trimakasih Mas Kid
Scriptnya berjalan sesuai keinginan.
Pertanyaan yg kedua supaya textboxnya hanya bisa terisi dengan angka saja harus disisipkan script gimana?
Saya pake script VB tapi ga berhasil :'(
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
End Select
KeyAscii = 0
End Sub
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Friday, June 28, 2013 2:33 AM
Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
Manusia membandingkan angka yang satu dengan angka yang lainnya bisa dengan mudah karena secara tidak sadar otak manusia mengkonversi setiap tulisan angka menjadi suatu data bertipe numerik.
Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
Ubah bagian :
ElseIf txtJumlahBeli.Text > lblStok.Caption Then
menjadi :
ElseIf clng(0 & txtJumlahBeli.Text) > clng(0 & lblStok.Caption) Then
Wassalam,
Kid.
2013/6/28 lapendosol opik <lapendosol@yahoo.com >
ElseIf txtJumlahBeli.Text > lblStok.Caption Then
Scriptnya berjalan sesuai keinginan.
Pertanyaan yg kedua supaya textboxnya hanya bisa terisi dengan angka saja harus disisipkan script gimana?
Saya pake script VB tapi ga berhasil :'(
Private Sub txtDisplay_KeyPress
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
End Select
KeyAscii = 0
End Sub
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Friday, June 28, 2013 2:33 AM
Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
Manusia membandingkan angka yang satu dengan angka yang lainnya bisa dengan mudah karena secara tidak sadar otak manusia mengkonversi setiap tulisan angka menjadi suatu data bertipe numerik.
Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
Ubah bagian :
ElseIf txtJumlahBeli.
menjadi :
ElseIf clng(0 & txtJumlahBeli.
Wassalam,
Kid.
2013/6/28 lapendosol opik <lapendosol@yahoo.
ElseIf txtJumlahBeli.
Thu Jun 27, 2013 11:41 pm (PDT) . Posted by:
"Jan Raisin"
coba script berikut, [belum dites karena kompie Jan lagi trouble]
private sub txtdisplay_change
with txtdisplay
if not isnumeric(.value) and .value <> vbnullstring then
msgbox "Hanya boleh diiisi dengan angka" , vbokonly, "Gak bisa
wew.."
.value = vbnullstring
end if
end with
end sub
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juni 2013 11.45, lapendosol opik <lapendosol@yahoo.com > menulis:
> **
>
>
> Trimakasih Mas Kid
> Scriptnya berjalan sesuai keinginan.
> Pertanyaan yg kedua supaya textboxnya hanya bisa terisi dengan angka saja
> harus disisipkan script gimana?
> Saya pake script VB tapi ga berhasil :'(
>
> Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
> Dim ch As String
> ch = Chr$(KeyAscii)
> Select Case ch
> Case "0"
> cmdAngka_Click 0
> Case "1"
> cmdAngka_Click 1
> Case "2"
> cmdAngka_Click 2
> Case "3"
> cmdAngka_Click 3
> Case "4"
> cmdAngka_Click 4
> Case "5"
> cmdAngka_Click 5
> Case "6"
> cmdAngka_Click 6
> Case "7"
> cmdAngka_Click 7
> Case "8"
> cmdAngka_Click 8
> Case "9"
> cmdAngka_Click 9
> End Select
> KeyAscii = 0
> End Sub
>
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Friday, June 28, 2013 2:33 AM
> *Subject:* Re: [belajar-excel] VBA (error pada perbandingan nilai)
>
>
> Manusia membandingkan angka yang satu dengan angka yang lainnya bisa
> dengan mudah karena secara tidak sadar otak manusia mengkonversi setiap
> tulisan angka menjadi suatu data bertipe numerik.
> Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan
> memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi
> tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
>
> Ubah bagian :
> ElseIf txtJumlahBeli.Text > lblStok.Caption Then
> menjadi :
> ElseIf clng(0 & txtJumlahBeli.Text) > clng(0 & lblStok.Caption) Then
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/28 lapendosol opik <lapendosol@yahoo.com >
>
> ElseIf txtJumlahBeli.Text > lblStok.Caption Then
>
>
>
>
>
>
>
private sub txtdisplay_change
with txtdisplay
if not isnumeric(.value) and .value <> vbnullstring then
msgbox "Hanya boleh diiisi dengan angka" , vbokonly, "Gak bisa
wew.."
.value = vbnullstring
end if
end with
end sub
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juni 2013 11.45, lapendosol opik <lapendosol@yahoo.
> **
>
>
> Trimakasih Mas Kid
> Scriptnya berjalan sesuai keinginan.
> Pertanyaan yg kedua supaya textboxnya hanya bisa terisi dengan angka saja
> harus disisipkan script gimana?
> Saya pake script VB tapi ga berhasil :'(
>
> Private Sub txtDisplay_KeyPress
> Dim ch As String
> ch = Chr$(KeyAscii)
> Select Case ch
> Case "0"
> cmdAngka_Click 0
> Case "1"
> cmdAngka_Click 1
> Case "2"
> cmdAngka_Click 2
> Case "3"
> cmdAngka_Click 3
> Case "4"
> cmdAngka_Click 4
> Case "5"
> cmdAngka_Click 5
> Case "6"
> cmdAngka_Click 6
> Case "7"
> cmdAngka_Click 7
> Case "8"
> cmdAngka_Click 8
> Case "9"
> cmdAngka_Click 9
> End Select
> KeyAscii = 0
> End Sub
>
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Friday, June 28, 2013 2:33 AM
> *Subject:* Re: [belajar-excel] VBA (error pada perbandingan nilai)
>
>
> Manusia membandingkan angka yang satu dengan angka yang lainnya bisa
> dengan mudah karena secara tidak sadar otak manusia mengkonversi setiap
> tulisan angka menjadi suatu data bertipe numerik.
> Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan
> memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi
> tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
>
> Ubah bagian :
> ElseIf txtJumlahBeli.
> menjadi :
> ElseIf clng(0 & txtJumlahBeli.
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/28 lapendosol opik <lapendosol@yahoo.
>
> ElseIf txtJumlahBeli.
>
>
>
>
>
>
>
Fri Jun 28, 2013 12:14 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Trimakasih Mis Jan
Sempurna hehehehe
Wassalam,
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, June 28, 2013 1:41 PM
Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
coba script berikut, [belum dites karena kompie Jan lagi trouble]
private sub txtdisplay_change
with txtdisplay
if not isnumeric(.value) and .value <> vbnullstring then
msgbox "Hanya boleh diiisi dengan angka" , vbokonly, "Gak bisa wew.."
.value = vbnullstring
end if
end with
end sub
-Miss Jan Raisin-
* Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi member milis;
* Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
* Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
* Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juni 2013 11.45, lapendosol opik <lapendosol@yahoo.com > menulis:
>
>Trimakasih Mas Kid
>Scriptnya berjalan sesuai keinginan.
>Pertanyaan yg kedua supaya textboxnya hanya bisa terisi dengan angka saja harus disisipkan script gimana?
>Saya pake script VB tapi ga berhasil :'(
>
>Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
>Dim ch As String
>ch = Chr$(KeyAscii)
>Select Case ch
>Case "0"
>cmdAngka_Click 0
>Case "1"
>cmdAngka_Click 1
>Case "2"
>cmdAngka_Click 2
>Case "3"
>cmdAngka_Click 3
>Case "4"
>cmdAngka_Click 4
>Case "5"
>cmdAngka_Click 5
>Case "6"
>cmdAngka_Click 6
>Case "7"
>cmdAngka_Click 7
>Case "8"
>cmdAngka_Click 8
>Case "9"
>cmdAngka_Click 9
>End Select
>KeyAscii = 0
>End Sub
>
>
>
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com >
>To: BeExcel <belajar-excel@yahoogroups.com >
>Sent: Friday, June 28, 2013 2:33 AM
>Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
>
>
>
>
>Manusia membandingkan angka yang satu dengan angka yang lainnya bisa dengan mudah karena secara tidak sadar otak manusia mengkonversi setiap tulisan angka menjadi suatu data bertipe numerik.
>
>Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
>
>
>Ubah bagian :
>
> ElseIf txtJumlahBeli.Text > lblStok.Caption Then
>
>menjadi :
>
> ElseIf clng(0 & txtJumlahBeli.Text) > clng(0 & lblStok.Caption) Then
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>
>2013/6/28 lapendosol opik <lapendosol@yahoo.com >
>
>ElseIf txtJumlahBeli.Text > lblStok.Caption Then
>
>
>
>
Sempurna hehehehe
Wassalam,
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
Sent: Friday, June 28, 2013 1:41 PM
Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
coba script berikut, [belum dites karena kompie Jan lagi trouble]
private sub txtdisplay_change
with txtdisplay
if not isnumeric(.value) and .value <> vbnullstring then
msgbox "Hanya boleh diiisi dengan angka" , vbokonly, "Gak bisa wew.."
.value = vbnullstring
end if
end with
end sub
-Miss Jan Raisin-
* Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake belajar-excel@
* Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
* Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
* Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juni 2013 11.45, lapendosol opik <lapendosol@yahoo.
>
>Trimakasih Mas Kid
>Scriptnya berjalan sesuai keinginan.
>Pertanyaan yg kedua supaya textboxnya hanya bisa terisi dengan angka saja harus disisipkan script gimana?
>Saya pake script VB tapi ga berhasil :'(
>
>Private Sub txtDisplay_KeyPress
>Dim ch As String
>ch = Chr$(KeyAscii)
>Select Case ch
>Case "0"
>cmdAngka_
>Case "1"
>cmdAngka_
>Case "2"
>cmdAngka_
>Case "3"
>cmdAngka_
>Case "4"
>cmdAngka_
>Case "5"
>cmdAngka_
>Case "6"
>cmdAngka_
>Case "7"
>cmdAngka_
>Case "8"
>cmdAngka_
>Case "9"
>cmdAngka_
>End Select
>KeyAscii = 0
>End Sub
>
>
>
>
>
>
>________
> From: Mr. Kid <mr.nmkid@gmail.
>To: BeExcel <belajar-excel@
>Sent: Friday, June 28, 2013 2:33 AM
>Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
>
>
>
>
>Manusia membandingkan angka yang satu dengan angka yang lainnya bisa dengan mudah karena secara tidak sadar otak manusia mengkonversi setiap tulisan angka menjadi suatu data bertipe numerik.
>
>Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
>
>
>Ubah bagian :
>
> ElseIf txtJumlahBeli.
>
>menjadi :
>
> ElseIf clng(0 & txtJumlahBeli.
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>
>2013/6/28 lapendosol opik <lapendosol@yahoo.
>
>ElseIf txtJumlahBeli.
>
>
>
>
Fri Jun 28, 2013 1:30 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Dear Be-Excel,
Bisa ga fungsi2 pada sheet seperti SUM diterapkan di VBA?
Saya coba:
Frm1.lblSubTotal.Caption = "=sum(bantuan2!H2:H100)"
Tapi hasilnya tidak sesuai, apakah harus di dibuat cell bantuan atau ada penulisan script yang lebih tepat?
Mohon bantuannya rekan2
Sebelum dan sesudahnya saya ucapkan banyak terimakasih.
Wassalam,
Bisa ga fungsi2 pada sheet seperti SUM diterapkan di VBA?
Saya coba:
Frm1.lblSubTotal.
Tapi hasilnya tidak sesuai, apakah harus di dibuat cell bantuan atau ada penulisan script yang lebih tepat?
Mohon bantuannya rekan2
Sebelum dan sesudahnya saya ucapkan banyak terimakasih.
Wassalam,
Fri Jun 28, 2013 1:57 am (PDT) . Posted by:
"Jan Raisin"
ada beberapa fungsi dari worksheet yang bisa digunakan dalam VBA
salah satu cara mengaksesnya adalah menggunakan script
application.worksheetfunction._IniNamaFungsinya
Salam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juni 2013 15.30, lapendosol opik <lapendosol@yahoo.com > menulis:
> **
>
>
> Dear Be-Excel,
> Bisa ga fungsi2 pada sheet seperti SUM diterapkan di VBA?
> Saya coba:
> Frm1.lblSubTotal.Caption = "=sum(bantuan2!H2:H100)"
> Tapi hasilnya tidak sesuai, apakah harus di dibuat cell bantuan atau ada
> penulisan script yang lebih tepat?
> Mohon bantuannya rekan2
> Sebelum dan sesudahnya saya ucapkan banyak terimakasih.
> Wassalam,
>
>
>
salah satu cara mengaksesnya adalah menggunakan script
application.
Salam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juni 2013 15.30, lapendosol opik <lapendosol@yahoo.
> **
>
>
> Dear Be-Excel,
> Bisa ga fungsi2 pada sheet seperti SUM diterapkan di VBA?
> Saya coba:
> Frm1.lblSubTotal.
> Tapi hasilnya tidak sesuai, apakah harus di dibuat cell bantuan atau ada
> penulisan script yang lebih tepat?
> Mohon bantuannya rekan2
> Sebelum dan sesudahnya saya ucapkan banyak terimakasih.
> Wassalam,
>
>
>
Fri Jun 28, 2013 2:11 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Trimakasih Miss,
Saya coba terapkan tapi kayanya masih salah dalam penulisannya
With Application.WorksheetFunction
Frm1.lblSubTotal.Caption = .Sum("bantuan2!H2:H50")
End With
Mohon dikoreksi Miss
Terimakasih sekali lagi
Wassalam,
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, June 28, 2013 3:57 PM
Subject: Re: [belajar-excel] Fungsi Sum pada VBA
ada beberapa fungsi dari worksheet yang bisa digunakan dalam VBA
salah satu cara mengaksesnya adalah menggunakan script
application.worksheetfunction._IniNamaFungsinya
Salam,
-Miss Jan Raisin-
* Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi member milis;
* Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
* Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
* Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juni 2013 15.30, lapendosol opik <lapendosol@yahoo.com > menulis:
>
>Dear Be-Excel,
>Bisa ga fungsi2 pada sheet seperti SUM diterapkan di VBA?
>Saya coba:
>Frm1.lblSubTotal.Caption = "=sum(bantuan2!H2:H100)"
>Tapi hasilnya tidak sesuai, apakah harus di dibuat cell bantuan atau ada penulisan script yang lebih tepat?
>Mohon bantuannya rekan2
>Sebelum dan sesudahnya saya ucapkan banyak terimakasih.
>Wassalam,
Saya coba terapkan tapi kayanya masih salah dalam penulisannya
With Application.
Frm1.lblSubTotal.
End With
Mohon dikoreksi Miss
Terimakasih sekali lagi
Wassalam,
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
Sent: Friday, June 28, 2013 3:57 PM
Subject: Re: [belajar-excel] Fungsi Sum pada VBA
ada beberapa fungsi dari worksheet yang bisa digunakan dalam VBA
salah satu cara mengaksesnya adalah menggunakan script
application.
Salam,
-Miss Jan Raisin-
* Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake belajar-excel@
* Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
* Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
* Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juni 2013 15.30, lapendosol opik <lapendosol@yahoo.
>
>Dear Be-Excel,
>Bisa ga fungsi2 pada sheet seperti SUM diterapkan di VBA?
>Saya coba:
>Frm1.lblSubTota
>Tapi hasilnya tidak sesuai, apakah harus di dibuat cell bantuan atau ada penulisan script yang lebih tepat?
>Mohon bantuannya rekan2
>Sebelum dan sesudahnya saya ucapkan banyak terimakasih.
>Wassalam,
Fri Jun 28, 2013 2:41 am (PDT) . Posted by:
"Jan Raisin"
Wassalamu'alaikum,
coba ubah scriptnya jadi begini:
with thisworkbook.sheets("bantuan2")
frm1.lblsubtotal.caption = _
application.worksheetfunction.sum(.range("h2:h50"))
end with
Wa'alaikumsalam wr. wb.,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
������ ��� ����� �������������
Pada 28 Juni 2013 16.11, lapendosol opik <lapendosol@yahoo.com > menulis:
> **
>
>
> Trimakasih Miss,
> Saya coba terapkan tapi kayanya masih salah dalam penulisannya
> With Application.WorksheetFunction
> Frm1.lblSubTotal.Caption = .Sum("bantuan2!H2:H50")
> End With
>
> Mohon dikoreksi Miss
> Terimakasih sekali lagi
> Wassalam,
>
> ------------------------------
>
coba ubah scriptnya jadi begini:
with thisworkbook.
frm1.lblsubtotal.
application.
end with
Wa'alaikumsalam wr. wb.,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
������ ��� ����� �������������
Pada 28 Juni 2013 16.11, lapendosol opik <lapendosol@yahoo.
> **
>
>
> Trimakasih Miss,
> Saya coba terapkan tapi kayanya masih salah dalam penulisannya
> With Application.
> Frm1.lblSubTotal.
> End With
>
> Mohon dikoreksi Miss
> Terimakasih sekali lagi
> Wassalam,
>
> ------------
>
Fri Jun 28, 2013 2:54 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Trimakasih sekali lagi miss
Udah sesuai hehehe
Wassalam,
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, June 28, 2013 4:41 PM
Subject: Re: [belajar-excel] Fungsi Sum pada VBA
Wassalamu'alaikum,
coba ubah scriptnya jadi begini:
with thisworkbook.sheets("bantuan2")
frm1.lblsubtotal.caption = _
application.worksheetfunction.sum(.range("h2:h50"))
end with
Wa'alaikumsalam wr. wb.,
-Miss Jan Raisin-
* Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi member milis;
* Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
* Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
* Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juni 2013 16.11, lapendosol opik <lapendosol@yahoo.com > menulis:
>
>Trimakasih Miss,
>Saya coba terapkan tapi kayanya masih salah dalam penulisannya
>With Application.WorksheetFunction
>Frm1.lblSubTotal.Caption = .Sum("bantuan2!H2:H50")
>End With
>
>
>
>Mohon dikoreksi Miss
>Terimakasih sekali lagi
>Wassalam,
>
>
>
>
>________________________________
>
Udah sesuai hehehe
Wassalam,
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
Sent: Friday, June 28, 2013 4:41 PM
Subject: Re: [belajar-excel] Fungsi Sum pada VBA
Wassalamu'
coba ubah scriptnya jadi begini:
with thisworkbook.
frm1.lblsubtotal.
application.
end with
Wa'alaikumsalam wr. wb.,
-Miss Jan Raisin-
* Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake belajar-excel@
* Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
* Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa on line setiap saat;
* Semoga semangat berbagi dan membantu semakin meningkat di kalangan Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti. اَÙ…ِين ÙŠَا رَبَّ الْعَالَÙ…ِÙŠْÙ†
Pada 28 Juni 2013 16.11, lapendosol opik <lapendosol@yahoo.
>
>Trimakasih Miss,
>Saya coba terapkan tapi kayanya masih salah dalam penulisannya
>With Application.
>Frm1.lblSubTota
>End With
>
>
>
>Mohon dikoreksi Miss
>Terimakasih sekali lagi
>Wassalam,
>
>
>
>
>________
>
Fri Jun 28, 2013 2:58 am (PDT) . Posted by:
"Jan Raisin"
ups.. ada yang salah..
Jan hari ini lagi agak error jadi salah menempatkan salam
semoga scriptnya gak ikutan salah karena gak dites dulu..
Wassalam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
������ ��� ����� �������������
Pada 28 Juni 2013 16.41, Jan Raisin <miss.jan.raisin@gmail.com > menulis:
> Wassalamu'alaikum,
>
> coba ubah scriptnya jadi begini:
>
> with thisworkbook.sheets("bantuan2")
> frm1.lblsubtotal.caption = _
> application.worksheetfunction.sum(.range("h2:h50"))
> end with
>
> Wa'alaikumsalam wr. wb.,
>
> -Miss Jan Raisin-
>
>
> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
> belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
> member milis;
> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan orang-orang yang sabar QS 2:153;
> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
> memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
> bisa on line setiap saat;
> - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
> ������ ��� ����� �������������
>
>
>
> Pada 28 Juni 2013 16.11, lapendosol opik <lapendosol@yahoo.com > menulis:
>
> **
>>
>>
>> Trimakasih Miss,
>> Saya coba terapkan tapi kayanya masih salah dalam penulisannya
>> With Application.WorksheetFunction
>> Frm1.lblSubTotal.Caption = .Sum("bantuan2!H2:H50")
>> End With
>>
>> Mohon dikoreksi Miss
>> Terimakasih sekali lagi
>> Wassalam,
>>
>> ------------------------------
>>
>
>
Jan hari ini lagi agak error jadi salah menempatkan salam
semoga scriptnya gak ikutan salah karena gak dites dulu..
Wassalam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
������ ��� ����� �������������
Pada 28 Juni 2013 16.41, Jan Raisin <miss.jan.raisin@
> Wassalamu'
>
> coba ubah scriptnya jadi begini:
>
> with thisworkbook.
> frm1.lblsubtotal.
> application.
> end with
>
> Wa'alaikumsalam wr. wb.,
>
> -Miss Jan Raisin-
>
>
> - Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
> belajar-excel@
> member milis;
> - Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan orang-orang yang sabar QS 2:153;
> - Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
> memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
> bisa on line setiap saat;
> - Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
> ������ ��� ����� �������������
>
>
>
> Pada 28 Juni 2013 16.11, lapendosol opik <lapendosol@yahoo.
>
> **
>>
>>
>> Trimakasih Miss,
>> Saya coba terapkan tapi kayanya masih salah dalam penulisannya
>> With Application.
>> Frm1.lblSubTotal.
>> End With
>>
>> Mohon dikoreksi Miss
>> Terimakasih sekali lagi
>> Wassalam,
>>
>> ------------
>>
>
>
Fri Jun 28, 2013 1:52 am (PDT) . Posted by:
"Ferry Setiawan" ferry_2005_skom
bisa di share macro inputnya seperti apa ya?
thanks
ferry
On Jun 27, 2013 8:20 PM, "Rahmat Hermawan" <ione_1984@yahoo.com > wrote:
> **
>
>
>
> Selamat Malam BeExceler...
>
> Mau tanya lagi yak..
>
> gimana ya caranya untuk input cell yang nilai di dalamnya terdapat
> karakter ( ' ), misalnya di cell A1 berisi "Erfan's studio", pada saat klik
> tombol simpan (menyimpan isi cell ke database mysql), selalu error.
>
> Terimakasih....
>
>
thanks
ferry
On Jun 27, 2013 8:20 PM, "Rahmat Hermawan" <ione_1984@yahoo.
> **
>
>
>
> Selamat Malam BeExceler...
>
> Mau tanya lagi yak..
>
> gimana ya caranya untuk input cell yang nilai di dalamnya terdapat
> karakter ( ' ), misalnya di cell A1 berisi "Erfan&#
> tombol simpan (menyimpan isi cell ke database mysql), selalu error.
>
> Terimakasih.
>
>
Fri Jun 28, 2013 3:25 am (PDT) . Posted by:
"mardi" hekerkampoeng
Rencananya seperti itu Mr, Tapi ternyata saya kurang teliti. Ada part-part discontinue yang di output harus di tampilkan dan aktual hariannya otomatis tidak terecord shg di pivot tidak tersedia. Akibatnya flag filter urutannya loncat dan hasilnya geser ke baris atasnya. Huft...gagal deh, padahal sudah setengah seneng...he..he..
salam
mardi
From: Mr. Kid
Sent: Thursday, June 27, 2013 9:09 PM
To: BeExcel
Subject: Re: [belajar-excel] padanan sumproduct yang lebih ringan
Kalau memang pivot table menjadi helper table, mungkin sebaiknya ndak perlu di-hide.
Jika grand total tidak dibutuhkan, maka atur options pivot table agar tidak menampilkan grand total disisi row dan column.
Kemudian, Pak Mardi bisa sekalian belajar VBA dengan membuat sebuah tombol yang harus dipencet setelah update daftar filter.
Proses dalam tombol tersebut :
1. set kalkulasi Excel pasti jadi automatic
2. refresh pivot table
3. hapus area output yang lama
4. blok area pivot table yang dicopy (manfaatkan properti TableRange1 [yang tanpa pivot page fields]), kemudian offset 1 kolom dan copy
5. paste values ke area output
Wassalam,
Kid.
2013/6/27 mardi <sumardiana596@gmail.com >
Terima kasih Mr
Ketiga cara belum aku coba bandingkan cuma saya cenderung modif cara 3 dengan cara pivotnya yang di fliter blok hasil grand total di pivot dan copy lalu paste di sheet output. Dengan kerja manual sedikit tapi lebih efisien waktu. Apakah cara ini bisa direkomendasikan, atau ada kemungkinan tercopynya baris pivot yang terhide karena filter ? Mohon pencerahan lagi Mr...
Wassalam
mardi
From: Mr. Kid
Sent: Wednesday, June 26, 2013 11:34 PM
To: BeExcel
Subject: Re: [belajar-excel] padanan sumproduct yang lebih ringan
Coba file terlampir yang mencoba dengan 3 cara, yaitu :
1. Formula vlookup terhadap pivot table
2. Formula SumIF terhadap raw data
3. Kolom filter pembentuk filter data untuk pivot table
Semoga ada salah satu yang sesuai harapan.
Mohon dikabari, cara mana yang tercepat untuk data yang buanyak (at least 200K records)
Wassalam,
Kid.
2013/6/26 mardi <sumardiana596@gmail.com >
Sebenernya masih kasus yang dulu Mr, sumproduct dari sebuah pivot. Dan saya harus mengambil data sebagiannya saja tanpa harus centang dan uncentang filter pivot karena miripnya data dan banyak shg memakan waktu lama juga. File terlampir.
Terima kasih
mardi
From: Mr. Kid
Sent: Wednesday, June 26, 2013 8:56 PM
To: BeExcel
Subject: Re: [belajar-excel] padanan sumproduct yang lebih ringan
Wa'alaikumussalam Wr. Wb.
Dengan mengetahui bentuk data yang diolah akan relatif lebih bisa tepat memutuskan ada atau tidaknya formula yang lebih efisien dibanding SumProduct yang ada. Pada dasarnya, fungsi SumIFs pada Excel 2007 ke atas lebih efisien dibanding SumProduct, tetapi penggunaannya tidak serta merta akan pasti bisa menggantikan fungsi SumProduct pada kasus-kasus tertentu.
Beberapa baris contoh data, yang mewakili selengkap mungkin varian data yang ada, yang dilampirkan ke milis akan mempermudah usaha BeExceller untuk mencari ide solusi yang lebih efisien. Bisa jadi fitur Excel seperti Pivot Table dapat menjadi solusi yang efisien.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/6/26 mardi <sumardiana596@gmail.com >
Assalamu�alaikum,
Dear all master dan be excel, Selamat kepada belajar excel atas terlaksana dan suksenya kopdar #1 , maaf kemarin tidak bisa hadir krn masih harus nguli. Melihat uforia kopdar kemarin jadi timbul lagi nih semangat belajarku....he..he..( dasarnya pamalas ). Perkenankan saya bertanya di sini apakah ada formula layaknya sumproduct yang lebih ringan kalkulasinya, mungkin memang terlalu dipaksakan sih karena banyaknya record shg buat kerja excel berat. Barangkali dan mudah-mudahan ada. Atau mungkin ada solusi lain dari rekan sekalian. Sebelumnya terima kasih.
Wassalamu�alaikum,
mardi
salam
mardi
From: Mr. Kid
Sent: Thursday, June 27, 2013 9:09 PM
To: BeExcel
Subject: Re: [belajar-excel] padanan sumproduct yang lebih ringan
Kalau memang pivot table menjadi helper table, mungkin sebaiknya ndak perlu di-hide.
Jika grand total tidak dibutuhkan, maka atur options pivot table agar tidak menampilkan grand total disisi row dan column.
Kemudian, Pak Mardi bisa sekalian belajar VBA dengan membuat sebuah tombol yang harus dipencet setelah update daftar filter.
Proses dalam tombol tersebut :
1. set kalkulasi Excel pasti jadi automatic
2. refresh pivot table
3. hapus area output yang lama
4. blok area pivot table yang dicopy (manfaatkan properti TableRange1 [yang tanpa pivot page fields]), kemudian offset 1 kolom dan copy
5. paste values ke area output
Wassalam,
Kid.
2013/6/27 mardi <sumardiana596@
Terima kasih Mr
Ketiga cara belum aku coba bandingkan cuma saya cenderung modif cara 3 dengan cara pivotnya yang di fliter blok hasil grand total di pivot dan copy lalu paste di sheet output. Dengan kerja manual sedikit tapi lebih efisien waktu. Apakah cara ini bisa direkomendasikan, atau ada kemungkinan tercopynya baris pivot yang terhide karena filter ? Mohon pencerahan lagi Mr...
Wassalam
mardi
From: Mr. Kid
Sent: Wednesday, June 26, 2013 11:34 PM
To: BeExcel
Subject: Re: [belajar-excel] padanan sumproduct yang lebih ringan
Coba file terlampir yang mencoba dengan 3 cara, yaitu :
1. Formula vlookup terhadap pivot table
2. Formula SumIF terhadap raw data
3. Kolom filter pembentuk filter data untuk pivot table
Semoga ada salah satu yang sesuai harapan.
Mohon dikabari, cara mana yang tercepat untuk data yang buanyak (at least 200K records)
Wassalam,
Kid.
2013/6/26 mardi <sumardiana596@
Sebenernya masih kasus yang dulu Mr, sumproduct dari sebuah pivot. Dan saya harus mengambil data sebagiannya saja tanpa harus centang dan uncentang filter pivot karena miripnya data dan banyak shg memakan waktu lama juga. File terlampir.
Terima kasih
mardi
From: Mr. Kid
Sent: Wednesday, June 26, 2013 8:56 PM
To: BeExcel
Subject: Re: [belajar-excel] padanan sumproduct yang lebih ringan
Wa'alaikumussal
Dengan mengetahui bentuk data yang diolah akan relatif lebih bisa tepat memutuskan ada atau tidaknya formula yang lebih efisien dibanding SumProduct yang ada. Pada dasarnya, fungsi SumIFs pada Excel 2007 ke atas lebih efisien dibanding SumProduct, tetapi penggunaannya tidak serta merta akan pasti bisa menggantikan fungsi SumProduct pada kasus-kasus tertentu.
Beberapa baris contoh data, yang mewakili selengkap mungkin varian data yang ada, yang dilampirkan ke milis akan mempermudah usaha BeExceller untuk mencari ide solusi yang lebih efisien. Bisa jadi fitur Excel seperti Pivot Table dapat menjadi solusi yang efisien.
Wassalamu'
Kid.
2013/6/26 mardi <sumardiana596@
Assalamu�alaikum,
Dear all master dan be excel, Selamat kepada belajar excel atas terlaksana dan suksenya kopdar #1 , maaf kemarin tidak bisa hadir krn masih harus nguli. Melihat uforia kopdar kemarin jadi timbul lagi nih semangat belajarku...
Wassalamu�alaikum,
mardi
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