مطلوب كود يقوم بـ ( تعطيل / تفعيل ) التنسيق الشرطى الموجوده بالصفحة اريد حفظ pdf بدون ظهور التلوين التنسيق الشرطي

[ابوعلي الحبيب]

السلام عليكم 

 

ياكرام 

مطلوب كود يقوم بـ ( تعطيل / تفعيل ) التنسيق الشرطى الموجوده بالصفحة

ثم تفعيل بعد تنفيذ الامر 

الامر هو حفظ pdf بدون ظهور التلوين في التنسيق الشرطي 

وبعد الحفظ يتم اعادة التنسيق الشرطي كما كان  للمتابعة

 

ولكم جزيل الشكر 

 

مرفق الملف

كود اريد حفظ نطاق معين فقط بصيغة pdf.xlsb

تم تعديل بالامس في 10:21 بواسطه ابوعلي الحبيب

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

الفكرة انشاء ملف جديد غير مرئي يتم فيه لصق البيانان ثم ازالة التنسيق الشرطي  منه ثم التحويل الى PDF ثم يتم حذق الملف بدون المساس بالتنسيق الشرطى للملف الاصل

كل ما سبق عن طريق كود

ترحيل بدون تنسيق شرطي.xlsb

 

 

 

 

 

 

 

 

 

 

 

[ابوعلي الحبيب]

رائع

يعطيك العافية استاذ عبدالله

صحيح يحفظ بدون التنسيق الشرطي

ولكن حتى المعادلات التي فيها الارقام لا تظهر

 

يخفي التنسيق وارقام المعادلات وكل شي

ويظهر الملف فارغ تم ارفاق الملف بالمعادلات

ولك جزيل الشكر

 

مرفق الملف فيه المشكلة

 

ترحيل بدون تنسيق شرطي.xlsb

تم تعديل بالامس في 17:04 بواسطه ابوعلي الحبيب

[عبدالله بشير عبدالله]

جرب التعديل التالي

توجد ورقة مخفية يتم نسخ البياتان اليها ومنها يتم تحويل الى PDF

ترحيل بدون تنسيق شرطي.xlsb

[ابوعلي الحبيب]

يعطيك العافية استاذ عبدالله

واعتذر على الاطالة

صحيح يحفظ الان بدون التنسيق الشرطي

ولكن اصبح يخفي التلوين العادي للصفوف والخلاياء التي ليست تنسيق الشرطي

والمشكلة الثانية 

عندما انسخ ورقة العمل المشروع 1

الى مشروع 2 ومشروع 3 ومشروع 4 ومشروع 5 ومشروع 6 ومشروع 7 وووو

يعمل على المشروع الاول فقط

هل يمكن الغاء تحديد الشيت 

بحيث يعمل على الي شيت يتم نسخ الشيت ((المشروع))

 

ولك جزيل الشكر

 

 

[ابوعلي الحبيب]

استاذ عبدالله

توصلت الى هذا الحل  

ان اجعل شيت قيه التنسيق فقط لتسخ منه وليسى للعمل

ولكن المشكلة 

عندما انسخ  التنسيق الشرطي منه وهو  المشروع 1

الى مشروع 2 ومشروع 3 ومشروع 4 ومشروع 5 ومشروع 6 ومشروع 7 وووو

يعمل على شيت محدد الذي بالكود

هل يمكن جعلة الكود ينسخ التنسيق من شيت محدد وثابت 

ويلصقة في اي شيت انا اقف فيه واعمل عليه

سواء مشروع 2 او مشروع 3 او 4او 5او 6

 

ولك جزيل الشكر

 

مرفق الملف 

 

 Sub SaveAsPDF11()
    Range("B2:I47").Select
    Selection.FormatConditions.Delete
    
    
        Range("A1:Z999").AutoFilter Field:=1, Criteria1:="<>"
        savePath = "d:\" & Range("AA1").Value & " " & Format(Now, "yyyy-mm-dd,hh.mm") & ".pdf"
        Range("A1:Z999").ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
  
    Sheets("مشروع 1").Select
    Range("B2:I47").Select
    Selection.Copy
    Sheets("مشروع 4").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False


End Su

 

 

ترحيل بدون تنسيق شرطي.xlsb

تم تعديل منذ 13 ساعات بواسطه ابوعلي الحبيب

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

جرب هدا 

Sub SaveAsPDF11()
    Dim WS As Worksheet, CrWS As Worksheet
    Set WS = ActiveSheet: Set CrWS = Sheets("مشروع 1")
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    WS.Range("B2:I47").FormatConditions.Delete
    WS.Range("A1:Z999").AutoFilter Field:=1, Criteria1:="<>"
    savePath = "d:\" & WS.Range("AA1").Value & " " & Format(Now, "yyyy-mm-dd,hh.mm") & ".pdf"
    WS.Range("A1:Z999").ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath
    CrWS.Range("B2:I47").Copy
    WS.Range("B2").PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub