نجوم المشاركات

تنقيح أخير، أصبح فيه الكود سطر واحد فقط 🙂 Sub Date2Text() Range("B7", "AJ23").NumberFormat = "m-d" End Sub

وعليكم السلام ورحمة الله وبركاته بالنسبة للاوقات التي خارج الاوقات في M&N لم تحدده وفي اي بصمة تسجل تم ربط المعادلات حسب الاوقات في M&N اكسل1.xlsm

انظر الامثلة ..... t1.accdb t2.accdb

تم تنقيح الكود سابقا لو ضغطت الزر أكثر من مرة فسوف يبدل النتائج مع كل ضغطة أما الآن سيبدلها مع الضغطة الأولى فقط. Sub Date2Text() Const sRow = 7, eRow = 23 Const sCol = 2, eCol = 36 Dim Row As Integer, Col As Integer Application.EnableEvents = False Application.ScreenUpdating = False For Row = sRow To eRow For Col = sCol To eCol With Cells(Row, Col) If .NumberFormat = "d-mmm" Then .NumberFormat = "@" If .Value <> "" Then .Value = Month(.Value) & "-" & Day(.Value) End If Else .NumberFormat = "@" End If End With Next Col Next Row Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Done" End Sub

الف شكر يا استاذ منتصر هذا هو المطلوب بارك الله فيك - تحياتي

السلام عليكم احسنت استاذي الكريم هذا ما رجوته ... لكن يجود خلل بسيط هو في حال فتح نموذج Login يظهر شريط التقدم الأصفر بصورته الكاملة قبل ان ادخل الاسم والرمز هم من الممكن يكون شريط التقدم مختفي وبعد ادخال المعلومات والضغط على زر دخول يظهر ويبداْ بالعد Database-1.accdb السلام عليكم : بارك الله بك استاذي الفاضل وجعله الله في ميزان حسناتكم .... ومنكم نتعلم

ممتاز ما قمت به . اكمل ما تريده ل 30 جدول و نشوف النتيجة النهائية بإذن الله

بالأكواد من زر asc2Text_02.xlsm

السلام عليكم ورحمة الله وبركاته أرى أن المشكلة تتعلق بالفاصلة التي تسبق تاريخ اليوم وهي تستخدم عادة لإظهار شكل المعادلة دون نتيجتها. فلو حددت كل التواريخ على هذه الورقة واستخدمت البحث و الاستبدال تبحث عن الفاصلة المذكورة وتستبدلها بفراغ، أو تقوم بحذفها يدويا والله أعلم.

وعليكم السلام ورحمة الله وبركاته جرب التعديل بالملف اكسل.xlsm

تفضل مجزر دواجن معدل.2.xlsx

وعليكم السلام ورحمة الله وبركاته أهلا بك وكل عام وأنتم بخير الرجاء إرسال ملف اكسل , اكتب فيه البيانات ووضح فيه طلبك

تم مهندسنا الغالي .. ⏳ تم تمديد المدة حتى نهاية شهر 4 إبريل April