أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
وليد 99999 لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة تعديل معادلة صفيف اكسيل اسئله واجابات


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





تعديل كود لتصدير البيانات بدون معادلات

[code]W1N1YiBFeHBvcnRfU3BlY2lmaWNfU2hlZXRzX1RvX09uZV9Xb3JrYm9va19Vc2luZ19BcnJheXMoKTxiciAvPg0KJm5ic3A7ICZuYnNwOyBEaW0gd3 ..



11-06-2020 12:32 صباحا
a.kawkab
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-10-2017
رقم العضوية : 1076
المشاركات : 19
الجنس : ذكر
تاريخ الميلاد : 14-10-1970
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 36
 offline 

[Sub Export_Specific_Sheets_To_One_Workbook_Using_Arrays()
    Dim ws          As Worksheet
    Dim sSheets()   As String
    Dim n           As Long

    Application.ScreenUpdating = False
    For Each ws In Worksheets(Array("تقاريرانسولين الهيئة", "تقارير انسولين الطلاب والرضع", "تقارير الاصناف"))
  
            n = n + 1
            ReDim Preserve sSheets(1 To n)
            sSheets(n) = ws.Name
        Next ws
    
        Worksheets(sSheets).Copy
        Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "Output", FileFormat:=51
        Application.DisplayAlerts = True
    
        For Each ws In ActiveWorkbook.Worksheets
            ws.UsedRange.Value = ws.UsedRange.Value
        Next ws
    
        ActiveWorkbook.Close True
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub
]

[/code]

السلام عليكم
الكود السابق يقوم بتصدير الشيتات المحددة الى شيت منفصل بدون اظهار المعادلات لكن عندما اقوم بحماية شيتات التقارير يرفض التصدير الا فى حالتين
الاولى ان الغى الحمايه وهى ضروريهلعدم العبث فى المعادلات وبالتالى يحدث احطاء فى التفارير الثانية تعطيل الجزء  ws.UsedRange.Value = ws.UsedRange.Value من الماكرو وفى هذه الحالة يتم تصدير التقارير مع المعادلات والمطلوب التصدير بدون معادلات اى قيم فقط مرفق صور توضيحية للمشكلة بالاضافة لملف العمل وكود الغاء الحماية - كود الحماية123
 
  2f.png   تحميل png 2f.png مرات التحميل :(0)
الحجم :(38.225) KB
  1f.png   تحميل png 1f.png مرات التحميل :(0)
الحجم :(19.602) KB
 
  التقارير.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(40.973) KB


11-06-2020 09:23 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تعديل كود لتصدير البيانات بدون معادلات
جرب التعديل في الجزء التالي حيث أنه يجب إلغاء الحماية من ورقة العمل ، ثم بعد الانتهاء من الجزء الذي به مشكلة يمكنك إعادة الحماية مرة أخرى
        For Each ws In ActiveWorkbook.Worksheets
            ws.Unprotect 123
                ws.UsedRange.Value = ws.UsedRange.Value
            ws.Protect 123
        Next ws

12-06-2020 12:10 صباحا
مشاهدة مشاركة منفردة [2]
a.kawkab
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-10-2017
رقم العضوية : 1076
المشاركات : 19
الجنس : ذكر
تاريخ الميلاد : 14-10-1970
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 36
 offline 
look/images/icons/i1.gif تعديل كود لتصدير البيانات بدون معادلات
شكرااستاذنا الفاضل استاذ ياسر دائما نتعلم منك تم المطلوب دون الغاء الحمايه وشكرا جزيلا لك
واطمع فى كرم حضرتكم لدى طلب اخر حيث يوجد لدى ملف به عدد كبير من الشيتات وهى محميه واحيانا يتطلب منى الامر الغاء الحماية لاجراء تعديلات ثم اعادة الحماية مرة اخرى وهذا امر مرهق فهل اطمع فى كود عند الضغط على ذر بالشيت يقوم بالغاء الحمايه لكل الاوراق المحميه ثم الضغط على ذر اخر فتعود الحماية وشكرا لسعة صدركم وان تطلب الامر فتح موضوع جديد اقوم بفتحة

12-06-2020 08:00 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تعديل كود لتصدير البيانات بدون معادلات
أخي الكريم
طلبك هو نفس الكود السابق حيث يقوم الكود بعمل حلقة تكرارية لكل أوراق العمل وداخل الحلقة التكرارية ضع ما شئت ، وفي طلبك الثاني ستقوم بوضع السطر الذي يقوم بإلغاء الحماية فقط
ثم تقوم بنسخ نفس الكود مع تغيير السطر داخل الحلقة التكرارية ليقوم بوضع الحماية ..
الرجاء دراسة الأكواد ومحاولة فهم الكود لتستطيع تطويعه

12-06-2020 08:36 صباحا
مشاهدة مشاركة منفردة [4]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif تعديل كود لتصدير البيانات بدون معادلات
مشكور جدا استاذ ياسر لدى سؤال لدى نفس مشكلة اخى وهى الكود لايعمل فى وضعية حماية الاوراق
هل استخدم هذا التعديل 
شكر وتقدير واحترام من اخيك

12-06-2020 09:14 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تعديل كود لتصدير البيانات بدون معادلات
نعم أخي أبا الحسن 
الفكرة واحدة وهي أن تقوم بإلغاء الحماية ثم تقوم بفعل ما شئت من خلال أسطر الكود وفي  النهاية تقوم بإرجاع الحماية مرة أخرى ، لأن العمل على الورقة أثناء الحماية قد يسبب حدوث أخطاء.

13-06-2020 08:30 مساء
مشاهدة مشاركة منفردة [6]
abouelhassan
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس : ذكر
يتابعهم : 6
يتابعونه : 0
قوة السمعة : 418
 offline 
look/images/icons/i1.gif تعديل كود لتصدير البيانات بدون معادلات
شكروتقدير واحترام من اخيك استاذى ابوالبراء




الكلمات الدلالية
بدون ، معادلات ، تعديل ، لتصدير ، البيانات ،


 










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

الساعة الآن 10:15 صباحا