logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
صلاح الصغير لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة Yasser Elaraby نظام ادارة شؤون الموظفين اعداد ياسر العربي اكسيل اسئله واجابات



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





22-01-2025 05:25 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 05-05-2018
رقم العضوية : 6082
المشاركات : 254
رصيد العضو : 8
الدولة : السعودية
الجنس :
تاريخ الميلاد : 30-7-1973
قوة السمعة : 178
الاعجاب : 5


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

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




توصلت الى هذا الحل  
ان اجعل شيت قيه التنسيق فقط لتسخ منه وليسى للعمل
ولكن المشكلة 
عندما انسخ  التنسيق الشرطي منه وهو  المشروع 1
الى مشروع 2 ومشروع 3 ومشروع 4 ومشروع 5 ومشروع 6 ومشروع 7 وووو
يعمل على شيت محدد الذي بالكود
هل يمكن جعلة الكود ينسخ التنسيق من شيت محدد وثابت 
ويلصقة في اي شيت انا اقف فيه واعمل عليه
سواء مشروع 2 او مشروع 3 او 4او 5او 6

 
CODE
[/font][/size][/color][/center]
[center]
 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 Sub
 [/center]
[center][color=#353c41][size=2][font=tahoma]



 مرفق الملف 
واشكر  الاستاذ عبدالله بشير عبدالله
على مجهوده السابق معي
 
 
  ترحيل بدون تنسيق شرطي.xlsb   تحميل xlsb مرات التحميل :(0)
الحجم :(97.17) KB

تم تحرير الموضوع بواسطة :ابوعلي الحبيب بتاريخ:22-01-2025 05:29 مساءً



توقيع :ابوعلي الحبيب
( خير الناس انفعهم للناس) 113142

look/images/icons/i1.gif مطلوب كود يقوم بـ ( تعطيل / تفعيل ) التنسيق الشرطى الموجوده بالصفحة اريد حفظ pdf بدون ظهور التلوين
  23-01-2025 09:43 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 05-05-2018
رقم العضوية : 6082
المشاركات : 254
رصيد العضو : 8
الدولة : السعودية
الجنس :
تاريخ الميلاد : 30-7-1973
قوة السمعة : 178
الاعجاب : 5
هذا هو الحل من 
الاستاذ الفاضل 
محمد هشام

جزله الله خير 

CODE
[/b][/font][/size][/color][/font][/color][/font][/color]
[ltr][color=#694040][font=tahoma, sans-serif][color=#00369b][font=Droid Arabic Kufi][b][color=#353c41][size=2][font=monospace, monospace][color=#000000]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[/color][/b][/font][/size][/color][/font][/color][/font][/color][/ltr]
[color=#353c41][font=tahoma][color=#694040][font=tahoma, sans-serif][color=#00369b][size=5][font=Droid Arabic Kufi][b]




توقيع :ابوعلي الحبيب
( خير الناس انفعهم للناس) 113142

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




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









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

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