Coba pakai Select Case supaya punya variasi lain selain IF ELSEIF ELSE ENDIF
Select case keyascii
case 48 to 57 , 65 to 90
'lakukan apa
case else
keyascii=0
end select
Wassalam,
Kid.
2013/7/2 Ahmad Adriansyah <ahmad.adrians...@trac.astra.co.id>
> **
>
>
> Dear Ms Jan, Om Kid, [dp], & Master lainnya,****
>
> Menyambung pertanyaan dibawah ini, untuk menuliskan koding pada VBA agas
> nilai suatu text box hanya dapat diisi berupa numeric dan huruf capital
> saja (Key Ascii : 48 s.d. 57 dan key ascii 65 s.d. 90) membuat kodingnya
> bagaimana ya?****
>
> ** **
>
> Rgds,****
>
> ** **
>
> AA****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *De Premor
> *Sent:* 28 Juni 2013 15:00
> *To:* belajar-excel@yahoogroups.com
>
> *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> <mr.nm...@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com><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****
>
> ** **
>
> ** **
>
> ** **
>
> ****
>
>
>
