logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
noureddine70 لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil برنامج فك حماية محرر الأكواد VBA وحماية unviewable اكسيل اسئله واجابات



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





23-05-2024 06:33 صباحاً
السلام عليكم ورحمة الله

الملف الذي المرفق أضفت فيه بيانات ولكني فوجئت أن جميع وظائف الماكرو لا تعمل  في الشيتات كلها في الملف ومنها الفلترة بالحرف بين تاريخين بجانب خلية مفتاح في sheet1 وكذلك التصدير الى pdf وإكسل يعني كل الاكواد لا تعمل تعطي run time error 438
بالله عليك أرجو من حضرتك أو من أحد الخبراء العظام محاولة إصلاحه وجزاكم الله كل خير يا رب
مرفق الملف

https://www.mediafire.com/file/bmfv1bbptki4jnt/2024.xlsm/file




look/images/icons/i1.gif خطأ برمجي والماكرو لا يعمل run time error 438
  23-05-2024 11:00 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-05-2024
رقم العضوية : 24525
المشاركات : 14
الجنس :
قوة السمعة : 134
الاعجاب : 12
وعليكم السلام ورحمة الله وبركاته

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


**كود الماكرو لفلترة البيانات بالحرف بين تاريخين بجانب خلية مفتاح في ورقة العمل Sheet1**


CODE

Sub FilterDataByLetterAndDates()

    Dim ws As Worksheet
    Dim keyCell As Range
    Dim letter As String
    Dim startDate As Date
    Dim endDate As Date

    ' الحصول على ورقة العمل النشطة
    Set ws = ActiveSheet

    ' الحصول على خلية المفتاح
    Set keyCell = ws.Range("A1")

    ' الحصول على الحرف من خلية المفتاح
    letter = keyCell.Value

    ' الحصول على تاريخ البدء وتاريخ الانتهاء من الخليتين المجاورتين لخلية المفتاح
    startDate = ws.Range("B1").Value
    endDate = ws.Range("C1").Value

    ' تصفية البيانات بالحرف بين تاريخين
    ws.Range("A2:D100").AutoFilter Field:=2, Criteria1:=letter, Operator:=xlAnd, Criteria2:=">=" & startDate, Operator2:=xlAnd, Criteria3:="

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



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




الكلمات الدلالية
برمجي ، والماكرو ، يعمل ، time ، error ،









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

الساعة الآن 05:49 AM