8 New Messages
Digest #2388
Messages
Fri Jun 28, 2013 3:41 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Tapi ga salah kok miss hehehehe
Wassalam,
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, June 28, 2013 4:50 PM
Subject: Re: [belajar-excel] Fungsi Sum pada VBA
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 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.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 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,
>>
>>
>>
>>
>>________________________________
>>
>
Wassalam,
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
Sent: Friday, June 28, 2013 4:50 PM
Subject: Re: [belajar-excel] Fungsi Sum pada VBA
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 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.41, Jan Raisin <miss.jan.raisin@
Wassalamu'
>
>
>coba ubah scriptnya jadi begini:
>
>
>with thisworkbook.
> frm1.lblsubtotal.
> application.
>end with
>
>
>Wa'alaikums
>
>
>
>-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.
>>End With
>>
>>
>>
>>Mohon dikoreksi Miss
>>Terimakasih sekali lagi
>>Wassalam,
>>
>>
>>
>>
>>____
>>
>
Fri Jun 28, 2013 4:43 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Sekali lagi mohon bantuannya rekan2 Be-Excel menindak lanjuti pertanyaan tentang fungsi pada VBA
Saya udah membuat fungsi TERBILANG dengan membuat module baru
Ketika dijalankan di workbook sih berfungsi sebagaimana mestinya misal =TERBILANG(100)
Tapi ketika dimasukkan ke VBA kok tidak muncul fungsi TERBILANG nya ya?
Frm1.lblTerbilang.Caption = Application.WorksheetFunction.TE (ga muncul fungsi yang udah dibuat)
Sekali lagi mohon bantuannya
Terimakasih
Wassalam,
________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, June 28, 2013 4:50 PM
Subject: Re: [belajar-excel] Fungsi Sum pada VBA
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 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.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 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,
>>
>>
>>
>>
>>________________________________
>>
>
Saya udah membuat fungsi TERBILANG dengan membuat module baru
Ketika dijalankan di workbook sih berfungsi sebagaimana mestinya misal =TERBILANG(100)
Tapi ketika dimasukkan ke VBA kok tidak muncul fungsi TERBILANG nya ya?
Frm1.lblTerbilang.
Sekali lagi mohon bantuannya
Terimakasih
Wassalam,
____________
From: Jan Raisin <miss.jan.raisin@
To: belajar-excel@
Sent: Friday, June 28, 2013 4:50 PM
Subject: Re: [belajar-excel] Fungsi Sum pada VBA
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 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.41, Jan Raisin <miss.jan.raisin@
Wassalamu'
>
>
>coba ubah scriptnya jadi begini:
>
>
>with thisworkbook.
> frm1.lblsubtotal.
> application.
>end with
>
>
>Wa'alaikums
>
>
>
>-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.
>>End With
>>
>>
>>
>>Mohon dikoreksi Miss
>>Terimakasih sekali lagi
>>Wassalam,
>>
>>
>>
>>
>>____
>>
>
Fri Jun 28, 2013 3:54 am (PDT) . Posted by:
"De Premor"
Coba script berikut mas, buat mengalter karakter selain angka
Private Sub txtDisplay_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Atau bisa juga pada event keydown, sbb:
Private Sub txtDisplay_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
End Sub
Rgds,
[dp]
On 28/06/2013 11:45, lapendosol opik wrote:
> 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
> <mailto:lapendosol@yahoo.com >>
>
> ElseIf txtJumlahBeli.Text > lblStok.Caption Then
>
>
>
>
>
>
Private Sub txtDisplay_KeyPress
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Atau bisa juga pada event keydown, sbb:
Private Sub txtDisplay_KeyDown(
ByVal Shift As Integer)
If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
End Sub
Rgds,
[dp]
On 28/06/2013 11:45, lapendosol opik wrote:
> 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.
> <mailto:lapendosol@yahoo.
>
> ElseIf txtJumlahBeli.
>
>
>
>
>
>
Fri Jun 28, 2013 4:25 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Terimakasih banyak mas DP
Kedua pilihan yg disarankan berjalan semua,
Jadi banyak pilihan ini mengenai batasan input numeric
Sekali lagi terimakasih banyak
Wassalam,
________________________________
From: De Premor <de@premor.net>
To: belajar-excel@yahoogroups.com
Sent: Friday, June 28, 2013 2:59 PM
Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
Coba script berikut mas, buat mengalter karakter selain angka
Private Sub txtDisplay_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Atau bisa juga pada event keydown, sbb:
Private Sub txtDisplay_KeyDown(ByVal KeyCode As
MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105
Then KeyCode = 0
End Sub
Rgds,
[dp]
On 28/06/2013 11:45, lapendosol opik wrote:
>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
>
>
>
>
Kedua pilihan yg disarankan berjalan semua,
Jadi banyak pilihan ini mengenai batasan input numeric
Sekali lagi terimakasih banyak
Wassalam,
____________
From: De Premor <de@premor.net>
To: belajar-excel@
Sent: Friday, June 28, 2013 2:59 PM
Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
Coba script berikut mas, buat mengalter karakter selain angka
Private Sub txtDisplay_KeyPress
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Atau bisa juga pada event keydown, sbb:
Private Sub txtDisplay_KeyDown(
MSForms.ReturnInteg
If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105
Then KeyCode = 0
End Sub
Rgds,
[dp]
On 28/06/2013 11:45, lapendosol opik wrote:
>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 3:55 am (PDT) . Posted by:
"Ferry Rahdiansyah"
Assalamualaikum rekan-rekan,
Mudah2an ada diantara rekan-rekan disini yang berkenan untuk berbagi ilmu tentang bagaimana formula untuk membuat nomor urut atas beberapa kelompok data apabila jumlah kelompok datanya tidak beraturan. Ilustrasinya terlampir. Terima kasih sebelumnya atas kebaikan rekan-rekan.
Wassalam,
Ferry Rahdiansyah
Mudah2an ada diantara rekan-rekan disini yang berkenan untuk berbagi ilmu tentang bagaimana formula untuk membuat nomor urut atas beberapa kelompok data apabila jumlah kelompok datanya tidak beraturan. Ilustrasinya terlampir. Terima kasih sebelumnya atas kebaikan rekan-rekan.
Wassalam,
Ferry Rahdiansyah
Fri Jun 28, 2013 5:06 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
tulis di B8
=IF(OR(D8="";MAX(B$7:B7)=COUNTBLANK(D$8:D8)+1);"";COUNTBLANK(D$8:D8)+1)
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: Ferry Rahdiansyah <FRahdiansyah@paitonenergy.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 28 Juni 2013 15:03
Judul: [belajar-excel] FW: Membuat No. Urut (Kelompok Data)
Assalamualaikumrekan-rekan,
Mudah2an ada diantara rekan-rekan disini yang berkenan untuk berbagi ilmu tentang bagaimana formula untuk membuat nomor urut atas beberapa kelompok data apabila jumlah kelompok datanya tidak beraturan. Ilustrasinya terlampir. Terima kasih sebelumnya atas kebaikan rekan-rekan.
Wassalam,
Ferry Rahdiansyah
=IF(OR(D8="
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: Ferry Rahdiansyah <FRahdiansyah@
Kepada: "belajar-excel@
Dikirim: Jumat, 28 Juni 2013 15:03
Judul: [belajar-excel] FW: Membuat No. Urut (Kelompok Data)
Assalamualaikumreka
Mudah2an ada diantara rekan-rekan disini yang berkenan untuk berbagi ilmu tentang bagaimana formula untuk membuat nomor urut atas beberapa kelompok data apabila jumlah kelompok datanya tidak beraturan. Ilustrasinya terlampir. Terima kasih sebelumnya atas kebaikan rekan-rekan.
Wassalam,
Ferry Rahdiansyah
Fri Jun 28, 2013 3:55 am (PDT) . Posted by:
"firman 21"
Dear Rekan,
Saya sedang belajar membuat perhitungan dengan tabel excel sederhana
untuk menghitung orang yang akan di recruit, promosi, aktivitas ini akan di
capture untuk 2 tahun ( YTG 2013 dan 2014).
Kemudian data ini di summarykan, saya sudah mencoba men summary kan nya,
jika hanya satu tahun datanya sudah bisa ke capture, tetapi jika 2 tahun,
saya kebingungan dengan cara menghitungnya.
Mohon bantuan dan pencerahannya, terima kasih sebelumnya.
salam
firman
Saya sedang belajar membuat perhitungan dengan tabel excel sederhana
untuk menghitung orang yang akan di recruit, promosi, aktivitas ini akan di
capture untuk 2 tahun ( YTG 2013 dan 2014).
Kemudian data ini di summarykan, saya sudah mencoba men summary kan nya,
jika hanya satu tahun datanya sudah bisa ke capture, tetapi jika 2 tahun,
saya kebingungan dengan cara menghitungnya.
Mohon bantuan dan pencerahannya, terima kasih sebelumnya.
salam
firman
Fri Jun 28, 2013 4:06 am (PDT) . Posted by:
"Rudi Anto" rudi.excel
Siap mantau selalu, ^_^
Klo boleh usul, gimana klo setiap post ada file lampirannya, biar kayak saya bisa ngerti maksud dari kode dan formula yang diterangkan, minimal di post pertama.. Dibuat sederhana ga apa2 ^_^
Maklum, saya masih baru dalam dunia vba dan formula excel.. Selama ini masih pake manual.. Hiks hiks
Ketemu milis ini, wah ternyata ga salah.. Setiap hari rame dan hangat, serasa kayak saudara sendiri ^_^
Wassalam,
++rudi
BeExceller
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Fri, 28 Jun 2013 01:45:04
To: BeExcel<belajar-excel@yahoogroups.com >
Reply-To: belajar-excel@yahoogroups.com
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...<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.
Klo boleh usul, gimana klo setiap post ada file lampirannya, biar kayak saya bisa ngerti maksud dari kode dan formula yang diterangkan, minimal di post pertama.. Dibuat sederhana ga apa2 ^_^
Maklum, saya masih baru dalam dunia vba dan formula excel.. Selama ini masih pake manual.. Hiks hiks
Ketemu milis ini, wah ternyata ga salah.. Setiap hari rame dan hangat, serasa kayak saudara sendiri ^_^
Wassalam,
++rudi
BeExceller
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Fri, 28 Jun 2013 01:45:04
To: BeExcel<belajar-excel@
Reply-To: belajar-excel@
Subject: [belajar-excel] BelajarVBA yuk...
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.
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