Wuihhh, keren Om Kid. Thanks ya... Rgds AA
From: [email protected] [mailto:[email protected]] On Behalf Of Mr. Kid Sent: 02 Juli 2013 16:56 To: BeExcel Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai) 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 <[email protected]<mailto:[email protected]>> 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: [email protected]<mailto:[email protected]> [mailto:[email protected]<mailto:[email protected]>] On Behalf Of De Premor Sent: 28 Juni 2013 15:00 To: [email protected]<mailto:[email protected]> 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 <[email protected]><mailto:[email protected]> To: BeExcel <[email protected]><mailto:[email protected]> 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 <[email protected]<mailto:[email protected]>> ElseIf txtJumlahBeli.Text > lblStok.Caption Then
