اضافة شرط قيمة الخلية تساوي عدد صحيح

[وجدي الحاج علي]

السلام عليكم اخواني

انا اقوم بتصميم 
فورم 
واريد اضافة شرط 
ان لا يقوم بحساب الناتج ان لم يكن 
المدخل رقم صحيح وليس اي كتابة اخرى 

 

[سليم حاصبيا]

جرب هذا الملف و يمكن استعمال معادلاته في User Form

conditional sum.zip

تم تعديل يوليو 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

[وجدي الحاج علي]

شكرا اخ سليم على تلبيت المساعدة
وشكر خاص لمبدعنا الاخ ابو البراء 
​سلمت يداكم 

[ياسر خليل أبو البراء]

الحمد لله أن تم المطلوب على خير

لا تنسى أن تضغط "أعجبني هذا" إذا أعجبتك المشاركة التي بها الحل