Ali994m قام بنشر نوفمبر 14, 2021 مشاركة قام بنشر نوفمبر 14, 2021 السلام عليكم الطلوب جعل ال Textboxلا يقبل أي قيمة ليست رقم وجزاكم الله كل خير textbox.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر نوفمبر 14, 2021 أفضل إجابة مشاركة قام بنشر نوفمبر 14, 2021 يمكنك استعمال هذا الكود 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 بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
Ali994m قام بنشر نوفمبر 14, 2021 الكاتب مشاركة قام بنشر نوفمبر 14, 2021 جزاك الله كل خير 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر نوفمبر 14, 2021 مشاركة قام بنشر نوفمبر 14, 2021 جميعا بإذن الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.