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

ارجو المساعده في التعديل علي الشيت للاهميه


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

اولا يوجد باسورد (لايهم)

ثانيا : تريد البيان بكود الموظف واجمالى شهر

أم يوم يوم (ايام العمل)

[حضور/انصراف/ عدد ساعات العمل/تأخير]

حدد المطلوب بدقة 

 

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

شكرا علي الاهتمام انا عايز تقرير اريد كل ايام الشهر (حضور. انصراف . عدد ساعات العمل . تاخير ) حتي اتمكن من طباعه موظف بالشهر الخاص به 

بهذا الشكل والف شكر علي المساعده

Untitled.png

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

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

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

ممكن توضبح أكثر للمطلوب .. ما هي ورقة العمل المطلوب عليها وأين تصميم الورقة المطلوب العمل عليها؟

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

شيت رقم واحد اقوم بادخال البيانات فيه واريد استخراج البيانات في شيت رقم 2 بمعني تقرير لموظف واحد شامل كل ايام الشهر بنفس صيغه الادخال ولكن بشكل طولي كما موضح في الشيت  الباص 123 والعمل علي شيت رقم 1 و2  والف شكر وارجو المساعده 

حركه حضور وانصراف شهريه.rar

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

جرب الكود التالي .. في ورقة العمل 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

 

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

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

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

شكرا علي اهتمامك معي اخي الفاضل ولكن اولا اعذرني علي جهلي وقله معرفتي في الاكسيل 

ثانيا لا اريد الاعمده الخاصه بتاريخ معين ولكن اريد البيانات الخاصه باسم الموظف علي مدار الشهر وارجو المساعده وشكرا لصبرك معي وبارك الله لك

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

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

Untitled2222222222.png

حركه حضور وانصراف شهريه.rar

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

جرب الكود التالي

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
رابط هذا التعليق
شارك

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

 

بعد وضع الكود في موديول داخل محرر الاكواد ..قم بتعديل الاسم الموجودة في الخلية C4 في ورقة التقرير المطلوب العمل عليها ، ثم من لوحة المفاتيح اضغط Alt + F8 واختار اسم الماكرو Test ثم انقر Run
وأعتذر عن عدم إرفاق ملف ...حيث أن المنتدى تعليمي وحيث أن مبدأي هو أن يتعلم الناس كيف يصطادون لا أن يأكلوا السمك جاهز ..

تقبل تحياتي

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

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

حركه حضور وانصراف شهريه.rar

تم تعديل بواسطه mohamedarafa
  • Like 1
رابط هذا التعليق
شارك

الحمد لله الذي بنعمته تتم الصالحات ..

إذا أردت التعلم عليك بمتابعة موضوعات المنتدى ومحاولة الإطلاع على المدونات واليوتيوب .. الفيديوهات ستفيدك بشكل كبير

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

وأي مشكلة تقابلك أو أي سؤال لا تتردد في طرح موضوع وإن شاء الله تجد العون من إخوانك ..

وفقني الله وإياك لكل خير .. تقبل تحياتي

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

  • 3 weeks later...

أ/ ياسر خليل السلام عليكم ورحمه الله وبركاته تم العمل بهذا الشيت والحمد لله لا يوجد مشاكل ولكني اريد ان احقق اعلي قدر من الاستفاده فيوجد عندي شيت للمرتبات اقوم فيه بادخال الاضافي والغياب  واريد ربطه  بهذا الشيت

 

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

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