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
<mailto:lapendo...@yahoo.com>>
ElseIf txtJumlahBeli.Text > lblStok.Caption Then