mohamedarafa قام بنشر أبريل 27, 2017 قام بنشر أبريل 27, 2017 عايز اطلع تقرير بايام الحضور والانصراف بشكل راسي لموظف معين حتي اتمكن من الطباعه حركه حضور وانصراف شهريه.rar
عبدللرحيم قام بنشر أبريل 27, 2017 قام بنشر أبريل 27, 2017 اولا يوجد باسورد (لايهم) ثانيا : تريد البيان بكود الموظف واجمالى شهر أم يوم يوم (ايام العمل) [حضور/انصراف/ عدد ساعات العمل/تأخير] حدد المطلوب بدقة
mohamedarafa قام بنشر أبريل 29, 2017 الكاتب قام بنشر أبريل 29, 2017 شكرا علي الاهتمام انا عايز تقرير اريد كل ايام الشهر (حضور. انصراف . عدد ساعات العمل . تاخير ) حتي اتمكن من طباعه موظف بالشهر الخاص به بهذا الشكل والف شكر علي المساعده
mohamedarafa قام بنشر أبريل 29, 2017 الكاتب قام بنشر أبريل 29, 2017 اسف اخي علي الاطاله المشكله عندي اني لا استطيع طباعه ايام الشهرلموظف واحد لانها بالعرض واريد طباعه كل بيانات الموظفبشكل طولي كما بالصوره واعتذر عن الاطاله حيث اني جديد العهد في الاكسل وبارك الله لك
ياسر خليل أبو البراء قام بنشر أبريل 29, 2017 قام بنشر أبريل 29, 2017 غير في الإعدادات ..اتبع الخطوات في الصورة
mohamedarafa قام بنشر أبريل 29, 2017 الكاتب قام بنشر أبريل 29, 2017 جرت هذا الحل ولم يصلح لاني اريد موطف واحد
ياسر خليل أبو البراء قام بنشر أبريل 29, 2017 قام بنشر أبريل 29, 2017 ممكن توضبح أكثر للمطلوب .. ما هي ورقة العمل المطلوب عليها وأين تصميم الورقة المطلوب العمل عليها؟
mohamedarafa قام بنشر أبريل 30, 2017 الكاتب قام بنشر أبريل 30, 2017 شيت رقم واحد اقوم بادخال البيانات فيه واريد استخراج البيانات في شيت رقم 2 بمعني تقرير لموظف واحد شامل كل ايام الشهر بنفس صيغه الادخال ولكن بشكل طولي كما موضح في الشيت الباص 123 والعمل علي شيت رقم 1 و2 والف شكر وارجو المساعده حركه حضور وانصراف شهريه.rar
ياسر خليل أبو البراء قام بنشر أبريل 30, 2017 قام بنشر أبريل 30, 2017 جرب الكود التالي .. في ورقة العمل 2 ضع التاريخ المطلوب في الخلية G4 ثم نفذ الكود Sub Test() Dim ws As Worksheet Dim sh As Worksheet Dim fd As Range Set ws = Sheets("Sheet1") Set sh = Sheets("Sheet2") Application.ScreenUpdating = False Set fd = ws.Rows(5).Find(sh.Range("G4").Value) If Not fd Is Nothing Then ws.Range(ws.Cells(7, fd.Column), ws.Cells(302, fd.Column + 4)).Copy sh.Range("F6") Application.CutCopyMode = False End If Application.ScreenUpdating = True End Sub
mohamedarafa قام بنشر مايو 1, 2017 الكاتب قام بنشر مايو 1, 2017 اخي في الله ياسر شكرا علي المساعده ولكني اخي لا افهم ما هذا والله لا ادري فارجو منك المساعده في التنفيذ
ياسر خليل أبو البراء قام بنشر مايو 1, 2017 قام بنشر مايو 1, 2017 عند كتابة التاريخ في الخلية المحددة في ورقة العمل 2 ثم تنفيذ الكود سيجلب لك الأعمدة الخاصة بهذا التاريخ
mohamedarafa قام بنشر مايو 3, 2017 الكاتب قام بنشر مايو 3, 2017 شكرا علي اهتمامك معي اخي الفاضل ولكن اولا اعذرني علي جهلي وقله معرفتي في الاكسيل ثانيا لا اريد الاعمده الخاصه بتاريخ معين ولكن اريد البيانات الخاصه باسم الموظف علي مدار الشهر وارجو المساعده وشكرا لصبرك معي وبارك الله لك
ياسر خليل أبو البراء قام بنشر مايو 3, 2017 قام بنشر مايو 3, 2017 ممكن تصمم شكل النتائج المتوقعة في ورقة جديدة ..كدليل لمن يريد تقديم المساعدة
mohamedarafa قام بنشر مايو 4, 2017 الكاتب قام بنشر مايو 4, 2017 يستمر الشكر لك علي الاهتمام واعتذاري لك علي تعبك معي وانا قمت بعمل شكل التقرير وتعديله في الملف ويتبقي عمليه الربط لاستخلاص التقرير حركه حضور وانصراف شهريه.rar
ياسر خليل أبو البراء قام بنشر مايو 4, 2017 قام بنشر مايو 4, 2017 جرب الكود التالي Sub Test() Dim ws As Worksheet Dim sh As Worksheet Dim i As Long Dim j As Long Dim x As Long Set ws = Feuil1 Set sh = Sheet1 Application.ScreenUpdating = False sh.Range("B7:J" & Rows.Count).Clear For i = 7 To ws.Cells(Rows.Count, 3).End(xlUp).Row If ws.Cells(i, 3).Value = sh.Cells(4, 3).Value Then For j = 5 To 155 Step 5 sh.Range("B" & x + 7).Value = ws.Cells(6, j).Offset(-1).Value ws.Range("B" & i & ":D" & i).Copy sh.Range("C" & x + 7) ws.Cells(i, j).Resize(1, 5).Copy sh.Range("F" & x + 7) x = x + 1 Next j Exit For End If Next i With sh.Range("B7:B" & Rows.Count) .NumberFormat = "d-mmm" .Interior.Color = RGB(255, 255, 153) .Borders.Value = 1 End With Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub
mohamedarafa قام بنشر مايو 6, 2017 الكاتب قام بنشر مايو 6, 2017 (معدل) لقد قمت بتعلم طريقه ادخال الكود ولكن لم يحدث اي تغيير ممكن التوضيح والمساعده ممكن استاذن حضرتك ان تقوم بتنفيذها تيسيرا عليا لاني والله ضعيف جدا في الاكسل وهذا الشيت مهم جدا بالنسبه لظروف الشغل ولك الشكر علي صبرك معي واعتذر لك علي طلباتي الكثيره وبارك الله لك تم تعديل مايو 6, 2017 بواسطه mohamedarafa
ياسر خليل أبو البراء قام بنشر مايو 6, 2017 قام بنشر مايو 6, 2017 أخي الكريم أنصحك بمشاهدة الفيديو التالي .. للأهمية لمعرفة البدايات في التعامل مع الأكواد بعد وضع الكود في موديول داخل محرر الاكواد ..قم بتعديل الاسم الموجودة في الخلية C4 في ورقة التقرير المطلوب العمل عليها ، ثم من لوحة المفاتيح اضغط Alt + F8 واختار اسم الماكرو Test ثم انقر Run وأعتذر عن عدم إرفاق ملف ...حيث أن المنتدى تعليمي وحيث أن مبدأي هو أن يتعلم الناس كيف يصطادون لا أن يأكلوا السمك جاهز .. تقبل تحياتي
mohamedarafa قام بنشر مايو 7, 2017 الكاتب قام بنشر مايو 7, 2017 (معدل) بارك الله لك وحقيقي انا استفدت وتم التنفيذ شكرا جدا هلي تعبك معي وطول صبرك واني اعجز عن الشكر لك كما اني احببت العمل جدا واريد ان اتعلم كتابه الاكواد وفهمها وقد قمت برفع الملف حتي تلقي نظره عليه ويستفاد منه اي شخص اخر وشكرا وارجوك دلني علي طريق تعلم الاكواد حركه حضور وانصراف شهريه.rar تم تعديل مايو 7, 2017 بواسطه mohamedarafa 1
ياسر خليل أبو البراء قام بنشر مايو 7, 2017 قام بنشر مايو 7, 2017 الحمد لله الذي بنعمته تتم الصالحات .. إذا أردت التعلم عليك بمتابعة موضوعات المنتدى ومحاولة الإطلاع على المدونات واليوتيوب .. الفيديوهات ستفيدك بشكل كبير ولكن الأهم من ذلك هو التطبيق والفهم وليس الحفظ ..لأن البرمجة قائمة على الفهم في المقام الأول ، الأهم أن تعرف كيفية استخدام الأكواد لا أن تحفظها .. وللعلم أن لا أستطيع الحفظ بشكل كبير لكن أستطيع قراءة معظم الأكواد وففهمها وهذا يحدث فارق في البرمجة وأي مشكلة تقابلك أو أي سؤال لا تتردد في طرح موضوع وإن شاء الله تجد العون من إخوانك .. وفقني الله وإياك لكل خير .. تقبل تحياتي
mohamedarafa قام بنشر مايو 8, 2017 الكاتب قام بنشر مايو 8, 2017 الحمد لله وبارك الله لك وجعله في ميزان حسناتك وانشاء الله سوف احاول بكل جهدي الاستفاده من هذا الصرح الكبير وان افيد غيري باذن الله وتقبل تحياتي 1
mohamedarafa قام بنشر مايو 23, 2017 الكاتب قام بنشر مايو 23, 2017 أ/ ياسر خليل السلام عليكم ورحمه الله وبركاته تم العمل بهذا الشيت والحمد لله لا يوجد مشاكل ولكني اريد ان احقق اعلي قدر من الاستفاده فيوجد عندي شيت للمرتبات اقوم فيه بادخال الاضافي والغياب واريد ربطه بهذا الشيت
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.