logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





14-04-2024 06:00 مساءً
السلام عليكم إخوتي 
عيدكم مبارك سعيد
أواجه مشكلة في الملف المرفق الكود يتنفذ و لكن النتائج لا تظهر ( تثبيث الغيابات في شيت ABS و مسحها  من شيت RAP JOUR)
رجاء المساعدة و شكرا
 
 
  Classeur2.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(102.384) KB
  Classeur2.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(102.384) KB





look/images/icons/i1.gif ممكن تصحيح الكود
  23-05-2024 09:27 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-05-2024
رقم العضوية : 24525
المشاركات : 12
الجنس :
قوة السمعة : 130
الاعجاب : 10
**الكود لملء الغيابات في شيت ABS:**

CODE


Sub FillAbsences()

    Dim wsAbs As Worksheet
    Dim wsRapJour As Worksheet
    Dim lastRowAbs As Long
    Dim lastRowRapJour As Long
    Dim i As Long

    Set wsAbs = Sheets("ABS")
    Set wsRapJour = Sheets("RAP JOUR")

    lastRowAbs = wsAbs.Cells(wsAbs.Rows.Count, 1).End(xlUp).Row
    lastRowRapJour = wsRapJour.Cells(wsRapJour.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRowRapJour
        If wsRapJour.Cells(i, 2) = "غياب" Then
            wsAbs.Cells(lastRowAbs + 1, 1) = wsRapJour.Cells(i, 1)
            wsAbs.Cells(lastRowAbs + 1, 2) = wsRapJour.Cells(i, 2)
            wsAbs.Cells(lastRowAbs + 1, 3) = wsRapJour.Cells(i, 3)
            lastRowAbs = lastRowAbs + 1
        End If
    Next i

End Sub




**الكود لمسح الغيابات من شيت RAP JOUR:**

CODE


Sub ClearAbsences()

    Dim wsRapJour As Worksheet
    Dim lastRowRapJour As Long
    Dim i As Long

    Set wsRapJour = Sheets("RAP JOUR")

    lastRowRapJour = wsRapJour.Cells(wsRapJour.Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRowRapJour
        If wsRapJour.Cells(i, 2) = "غياب" Then
            wsRapJour.Cells(i, 2) = ""
        End If
    Next i

End Sub




**ملاحظات:**

* تأكد من تغيير أسماء أوراق العمل في الكود لتتوافق مع أسماء أوراق العمل في ملفك.
* تأكد من تمكين الماكرو في إعدادات Excel.
* قم بتشغيل الماكرو "FillAbsences" لملء الغيابات في شيت ABS.
* قم بتشغيل الماكرو "ClearAbsences" لمسح الغيابات من شيت RAP JOUR.


تم تحرير المشاركة بواسطة :Yasser Elaraby بتاريخ:26-05-2024 09:48 صباحاً


أثارت هذه المشاركة إعجاب: ayoub2007، Yasser Elaraby،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ممكن كتاب او كورس لتعليم لغة البايثون Python بالعربى تكون قوية osama2022
2 1323 osama2022
ممكن توضيح اين الخطأ فى الكود المكون من تجميع كود للعلامة استاذ سليم والاستاذ ياسر omhamzh
16 1820 omhamzh
ممكن كود ترحيل لشيت منه وله omhamzh
36 1796 YasserKhalil
ممكن تعديل لملف البيانات منه وله بالتاريخ ليحضر الرصيد السابق abouelhassan
14 1297 abouelhassan
هل ممكن عمل حماية للخلايا من تغير تنسيقها عند اللصق والنسخ عبد الله السعيد
0 835 عبد الله السعيد

الكلمات الدلالية
ممكن ، تصحيح ، الكود ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:43 AM