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 <d...@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.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
>
>
>
>
