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

[أبو يوسف النجار]

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

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

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

تم تعديل مايو 26, 2015 بواسطه uosefalnagar

[أبو يوسف النجار]

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

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

استعمل هذا الشيء

(اكتب قبل الرقم (فاصلة عليا)  حرف الطاء بعد تحويل الكيبورد الى الاجنبية

'1/2

[ابو نبأ]

https://www.youtube.com/watch?v=snHGQst68cE

[أبو يوسف النجار]

أستاذ سليم شكرا جزيلا ولكن هل يوجد تغيير بالكود لأني أريد أفرز الفصول بنفس التنسيق هكذا 1/2 فقط

[أبو يوسف النجار]

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

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

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

 

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

 

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

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

تقبل تحياتي

[أبو يوسف النجار]

 

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

 

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

 

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

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

تقبل تحياتي

 

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

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

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

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

 

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

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

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:

Format TextBox As Text Not As Date KH UserForm.rar

[أبو يوسف النجار]

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

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

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

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

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

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

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

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

 

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

[أبو يوسف النجار]

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

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

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

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

 

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

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

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

تم تعديل مايو 28, 2015 بواسطه uosefalnagar

[أبو يوسف النجار]

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

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

[أبو يوسف النجار]

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

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

[أبو يوسف النجار]

وضح الآن إن الأستاذ  /  ياسر خليل أبو البراء

 حوت كبير مش سمكة صغيرة في هذا المنتدى