• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sayı girişi ve CDbl hk.

  • Konbuyu başlatan Konbuyu başlatan mumugul
  • Başlangıç tarihi Başlangıç tarihi
Katılım
12 Ekim 2004
Mesajlar
220
Excel Vers. ve Dili
365 Türkçe
Merhaba;

Bir Textbox girişi "0-9" ve "," (virgül) ile sınırlandırılmış ise, aşağıdaki örnekte olduğu gibi CDbl kullanmaya gerek var mı, yardımcı olur musunuz?

Saygılarımla...

If CDbl(TextBox.Value) = 0 Then
 
Merhaba;
Bir Textbox'un 0-9 aralığında rakam ve virgül dışındaki karakter girişine kapatılması ise;

Userform'un kod bölümüne;

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(",")
Case Else
KeyAscii = 0
End Select
End Sub

ekleyeceğiniz kodlar yeterli olur.
Deneyin.
İyi çalışmalar.
 
Geri
Üst