أبو حنــــين

قم بتحديد الخلية او الخلايا في صفحة : MainPage ثم من تنسيق خلايا اذهب الى الرقم ثم مخصص تجد كلمة General أضف لها "0" في البداية دون فراغ ثم تحول الى صفحة Store و حدد كل الخلايا التي يمكن ان تحتوي على هذا الرقم و قم بنفس العملية السابقة و نفس الشيئ مع صفحة Buys

جرب المرفق صف ثالث.rar

هذا شرح مختصر '*************************************************************************************** ' هذا السطر لتفريغ محتوي المدى المحدد Range("D10:E40").ClearContents '*************************************************************************************** '*************************************************************************************** 'هذا السطر يبين فارق التاريخ بالايام بين الخلية بي7 و الخلية سي7 a = DateDiff("d", Range("B7"), Range("C7")) '*************************************************************************************** '*************************************************************************************** ' هذا السطر هو افتراض متغير يبدأ من الصفر الى عدد الايام في السطر السابق For s = 0 To a '*************************************************************************************** ' هذا السطر يقوم باضافة الايام المتحصل عليها الى التاريخ ابتذاءا من الصف العشر العمود الخامس ' مثلا لوكان التاريخ 1/1/2012 و اضفنا له 1 يصبح التاريخ 2/1/2012 و هكذا حسب المتغير سي Cells(s + 10, 5) = Range("B7") + s '*************************************************************************************** '*************************************************************************************** ' هذا السطر يقوم بادراج اليوم الموافق للتاريخ الموجود في العمود الذي يسبق عمود التاريخ Cells(s + 10, 5).Offset(0, -1) = Format(Cells(s + 10, 5), "ddd") '*************************************************************************************** ' هذا السطر يشترط مسح عمود الايام اذا كان غمود التاريخ فارغا If Cells(s + 10, 5) = "" Then Cells(s + 10, 5).Offset(0, -1) = "" '***************************************************************************************

هذه طريقة اخرى يكفي كتابة التاريخ في الخلية H2 11111.rar

اخي ابراهيم ضع مكان الكود السابق هذا الكود Private Sub Worksheet_Selectionchange(ByVal Target As Range) Application.ScreenUpdating = False Range("D10:E40").ClearContents a = DateDiff("d", Range("B7"), Range("C7")) For s = 0 To a Cells(s + 10, 5) = Range("B7") + s Cells(s + 10, 5).Offset(0, -1) = Format(Cells(s + 10, 5), "ddd") If Cells(s + 10, 5) = "" Then Cells(s + 10, 5).Offset(0, -1) = "" Next Application.ScreenUpdating = True End Sub

هل تقصط هكذا 2003.rar

ارسل نمذج للشيئ الذي تريد كتابته

الخلية B7 تمثل بداية حساب الشهراكتب فيها تاريخ و ليكم بداية الشهر الخلية C7 تمثل نهاية الشهر التي نريدها غيرها كما تشاء و اخبرني

هذا الطلب الاول استخراج اكبر بالمعادلات والكود بعد الاجابة من النت.rar

وهذا لتلوين كل الصف فرق.rar

السلام عليكم If Amendment.rar

هذا الطلب الاول تسلل تواريخ.rar

تم تلوين الخلية فرق.rar

اخي محمود حسب فهمي لما هو موجود في الملف : عدد ساعات العمل الواجبة هو 8 ساعات يوميا أي من الساعة 8 الى الساعة 16 اي الرابعة مساءا في المرفق الذي ارسلته انا لو تفحصته تجد ما يلي مثلا أحمد : الاربعاء : من 9 الى 16 اي تأخر بساعة الخميس : من 8 الى 11 اي خروج قبل 5 ساعات من الساعات الفعلية للعمل الجمعة : من 8 الى 14 اي خروج بـ 1 ساعة قبل الساعات الفعلية وعندما نجمع 5 + 2 + 1 = 8 ان كان فهمي للسؤال صحيح فهذا هو الحل و ان كان احونا (حلم فلسطين ) له قصد آخر فأكون قد أخطأت و جل من لا يخطأ تحياتي

من خصائص الخلية ثم الى رقم ثم نص 1.rar

انطر اخي الطريقة ان كنت خاطئا اخبرني حل.rar

أستاذ محمود وين اخونا الشهابي من الموضوع ؟ هل تقصد الاخ صاحب السؤال : حلم فلسطين لأن الشهابي لم يكتب و لم يرد على السؤال

ان كان لديك مشعل الفلاش يمكن ان ارسل لك ملف فيديو يوضح الطريقة

سبقني الاستاذ هاني جزاه الله خيرا

افتح محرر الاكواد ثم اذهب الى الفورم ثم حدد الصورة ( شعار المنتدى ) ثم من من خصائص الصورة الموجودة جانبا انظر الى picture من هناك يمكنك تغيير الصورة

وجدت ملفك ثقيل نوعا ما فأرسلت لك ملفا مختصرا يوصح الطريقة فرق.rar

كنت قد قمت بهذا العمل مسبقا و اليك النموذج يمكنك التعديل عليه حول البرنامج.rar

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

و هذه تجربة أخرى لجلب بيانات من ملف آخر أجري تعديل على الملف : المرفق الصحيح هو رقم 2 تطبيق.rar تطبيق2.rar

هذا في اكسل 2003 طبعا بعذ الضغط على أدوات ـ تخصيص ـ 1.rar