- Katılım
- 25 Aralık 2007
- Mesajlar
- 335
- Excel Vers. ve Dili
- exel 2000 türkçe
Arkadaslar
Private Sub TextBox21_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "Sadece rakam girebilirsiniz.", vbExclamation, "İŞLEM HATASI !"
End Select
End Sub
kodundaki
(",") virgülü bir kodla vba nın (".") olarak algılatmam lazım
convert case falan demem lazımda nasıl
yardım edecek arkadaslara simdiden tesekkur
Private Sub TextBox21_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0: MsgBox "Sadece rakam girebilirsiniz.", vbExclamation, "İŞLEM HATASI !"
End Select
End Sub
kodundaki
(",") virgülü bir kodla vba nın (".") olarak algılatmam lazım
convert case falan demem lazımda nasıl
yardım edecek arkadaslara simdiden tesekkur