Trimakasih Mis Jan
Sempurna hehehehe
Wassalam,
________________________________
From: Jan Raisin <miss.jan.rai...@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 <lapendo...@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.nm...@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 <lapendo...@yahoo.com>
>
>ElseIf txtJumlahBeli.Text > lblStok.Caption Then
>
>
>
>
