اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

وصلت لهذا الكود و لكن لتيكست بوكس واحد

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If TextBox1.Value > ActiveSheet.Range("R12").Text Then
     MsgBox "ÇáÏÑÌÉ íÌÈ Çä Êßæä ÇÕÛÑ ãä ÏÑÌÉ ÇáãÇÏÉ"
     Cancel = True
    End If
End Sub
 

قام بنشر

أخي الكريم خالد

يرجى التوضيح بمزيد من التفاصيل

هل العمل على كل مربعات النصوص الموجودة في الفورم ...؟ وما هي الأعمدة أو الخلايا المرتبطة بالدرجة ؟

تقبل تحياتي

 

قام بنشر

أخي الكريم خالد

إليك الملف المرفق عله يفي بالغرض ..

الإدخالات المسموح بها هي ما بين الصفر والحد الأقصى لكل مادة وحرف الغين فقط (لغياب الطلاب)

 

Restrict Entries In TextBoxes.rar

قام بنشر

بلاش فضايح أخي الكريم خالد

الكود ليس من إبداعاتي للأسف وشرحه يحتاج لساعات طويلة ..يا ريت نلاقي حد يشرحه عشان معنديش وقت ..المعذرة أخي خالد

المهم إن المشكلة اتحلت بحمد الله

تقبل تحياتي

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information