وجدي الحاج علي قام بنشر يوليو 22, 2015 مشاركة قام بنشر يوليو 22, 2015 السلام عليكم اخواني انا اقوم بتصميم فورم واريد اضافة شرط ان لا يقوم بحساب الناتج ان لم يكن المدخل رقم صحيح وليس اي كتابة اخرى رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 22, 2015 مشاركة قام بنشر يوليو 22, 2015 (معدل) جرب هذا الملف و يمكن استعمال معادلاته في User Form conditional sum.zip تم تعديل يوليو 22, 2015 بواسطه سليم حاصبيا 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يوليو 22, 2015 أفضل إجابة مشاركة قام بنشر يوليو 22, 2015 الأخ الكريم وجدي قم بوضع الكود التالي في حدث الفورم Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If (Shift = 2 And KeyCode = vbKeyV) Or (Shift = 1 And KeyCode = vbKeyInsert) Then KeyCode = 0 End If End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case vbKey0 To vbKey9, vbKeyBack, vbKeyClear, vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab Case Else KeyAscii = 0 Beep End Select End Sub Private Sub CommandButton1_Click() If TextBox1.Value <> "" Then MsgBox TextBox1.Value Unload Me End Sub للتعامل مع الأرقام الصحيحة فقط Restrict TextBox Entry To Whole Numbers.rar رابط هذا التعليق شارك More sharing options...
وجدي الحاج علي قام بنشر يوليو 22, 2015 الكاتب مشاركة قام بنشر يوليو 22, 2015 شكرا اخ سليم على تلبيت المساعدة وشكر خاص لمبدعنا الاخ ابو البراء سلمت يداكم رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 22, 2015 مشاركة قام بنشر يوليو 22, 2015 الحمد لله أن تم المطلوب على خير لا تنسى أن تضغط "أعجبني هذا" إذا أعجبتك المشاركة التي بها الحل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان