كود لقيمة الـTextbox أرقام فقط

[Ali994m]

السلام عليكم

الطلوب جعل ال Textboxلا يقبل أي قيمة ليست رقم

وجزاكم الله كل خير

textbox.xlsm

[أ / محمد صالح]

يمكنك استعمال هذا الكود

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case vbKey0 To vbKey9, vbKeyBack, vbKeyClear, vbKeyDelete, _
    vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab
        If KeyAscii = 46 Then If InStr(1, TextBox1.Text, ".") Then KeyAscii = 0
    Case Else
        KeyAscii = 0
End Select
End Sub

بالتوفيق 

[Ali994m]

جزاك الله كل خير

[أ / محمد صالح]

جميعا بإذن الله