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

كيف أظهر النص في الفورم هكذا 2/1 كاسم فصل وليس تاريخ


إذهب إلى أفضل إجابة Solved by ياسر خليل أبو البراء,

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

في فورم الأستاذ خبوور يظهر الرقم بتنسيق كنص تاريخ  فأنا أقوم بتنسيق الخلية كنص وأكتب 2/1 مثلا ليظهر كفصل دراسي ولكن بالفورم يظهر الفصل كتاريخ فأرجو الحل ليظهر بالفورم أيضا كنص 2/1

السؤال بالمرفقات

السؤال.rarالسؤال.rar

تم تعديل بواسطه uosefalnagar
رابط هذا التعليق
شارك

أين عمالقة الاكسل -                   يارب

 

أين الأساتذة الكبار ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

 

اللي موجود السمك الصغير :yes:

الموجود هنا يقدم المساعدة كل على قدر استطاعته

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

 

أين عمالقة الاكسل -                   يارب

 

أين الأساتذة الكبار ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

 

اللي موجود السمك الصغير :yes:

الموجود هنا يقدم المساعدة كل على قدر استطاعته

تقبل تحياتي

 

 ماشي أبو البراء واضح اني سمكة صغيره تايهة في بحر هذا المنتدى الجميل يارب نكبر تحياتي لك ولعباقرة المنتدى تعلمت منك ومنهم الكثير وتبقى الأكثر

رابط هذا التعليق
شارك

  • أفضل إجابة

أخي الكريم يوسف النجار

يرجى تغيير اسم الظهور للغة العربية

 

إليك الحل التالي عله يفي بالغرض

قم بإدراج الكود التالي في حدث الفورم

Private Function IsExcluded(ByVal NMB As Long) As Boolean
  Dim I As Long, ArrExcluded
'الأعمدة المراد استثنائها من التنسيق كتاريخ
'رقم 1 يعني العمود الثاني ، ورقم 2 يعني العمود الثالث وهكذا
'[F] في حالتنا العمود الخامس هو المراد استثناء تنسيقه وهو العمود
  ArrExcluded = Array(5)
  IsExcluded = False
  For I = LBound(ArrExcluded) To UBound(ArrExcluded)
      If NMB = ArrExcluded(I) Then
         IsExcluded = True
         Exit Function
      End If
  Next I
End Function

ثم قم باستبدال السطر التالي

If Not IsNumeric(MyVelue) And IsDate(MyVelue) Then

بهذا السطر

If Not IsNumeric(MyVelue) And IsDate(MyVelue) And Not isExcluded(cc) Then

*************************************

 

وهذا السطر قم باستبداله

If IsDate(.Cells(iRow + 1, C)) Then

بهذا السطر

If IsDate(.Cells(iRow + 1, C)) And Not isExcluded(cc) Then

*************************************

 

وهذا السطر قم باستبداله

If tb1 Then

بهذا السطر

If tb1 And Not isExcluded(C) Then

*************************************

 

وهذا السطر قم باستبداله

If IsDate(MyVelue) Then MyVelue = Format(MyVelue, DtF)

بهذا السطر

If IsDate(MyVelue) And Not isExcluded(C) Then MyVelue = Format(MyVelue, DtF)

تقبل تحياتي :fff: :fff: :fff:

Format TextBox As Text Not As Date KH UserForm.rar

رابط هذا التعليق
شارك

أستاذي  ياسر خليل أبو البراء  

ألف ألف شكر  و جزاكم الله خير - والله ظللت أسبوع أبحث عن الحل بعلمي القليل جدا بالبرمجة  - ولكن والحمد لله كرمني بمثلك ليعطيني الحل متابعك ومتابع فيديوهاتك وخفة ظلك - وتوصيل المعلومة بسهولة -- وكم يسعدني أن ترد على سؤالي ، ولو لم يكون به الاجابة - والحمد لله كان فيه الرد الكافي والشافي - وكم تعلم أن هذه الاجابة ستوفر على الكثيير فيالجهد والوقت ببرنامجي المتواضع لمدرستيشئون الطلبة ،  فأنا شغوف للعلم وبشرط يكون في خدمة عملي - قولي أعملك إيه - على فكرة مش عندي أغلى من الدعاء لك ولأمثالك - بارك الله فيك وياريت تتعرف على أكثر من هذا الرابط http://www.thanwya.com/vb/forumdisplay.php?s=fcfd18b9dfe8bd04c6d4eed62cbeeceb&f=1036

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

  • Like 1
رابط هذا التعليق
شارك

أخي الحبيب يوسف النجار

أما آن لك أن تغير اسم الظهور للغة العربية

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

ومشكور على كلماتك الطيبة وشعورك النبيل ، أداام الله المحبة بيننا

 

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

رابط هذا التعليق
شارك

أخي الحبيب يوسف النجار

أما آن لك أن تغير اسم الظهور للغة العربية

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

ومشكور على كلماتك الطيبة وشعورك النبيل ، أداام الله المحبة بيننا

 

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

أستاذي / ٍسأغير  الاسم باذن الله ولكن حاولت أن يكون الفصل قائمة منسدلة بالفورم

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

تم تعديل بواسطه uosefalnagar
رابط هذا التعليق
شارك

أستاذي / تم تغيير الاسم باذن الله وأفضل اجابة وجعلت للفصل قائمة منسدلة بالفورم

لاختيار الفصل بسرعة والحمد لله من قبل ومن بعد أعزك الله وبارك الله فيك سأظل أدعو لك

رابط هذا التعليق
شارك

أستاذي  /  ياسر خليل أبو البراء

غيرت الاسم  والحمد لله  واخترت أفضل اجابة وجعلت للفصل قائمة منسدلة بالفورم لاختيار الفصل بسرعة كما بالشرح بكود الأستاذ خبور  ، والحمد لله من قبل ومن بعد - سأظل أدعو لك بالخير  أبو يوسف

  • Like 1
رابط هذا التعليق
شارك

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