ابوعلي الحبيب قام بنشر يناير 21 قام بنشر يناير 21 (معدل) السلام عليكم ياكرام مطلوب كود يقوم بـ ( تعطيل / تفعيل ) التنسيق الشرطى الموجوده بالصفحة ثم تفعيل بعد تنفيذ الامر الامر هو حفظ pdf بدون ظهور التلوين في التنسيق الشرطي وبعد الحفظ يتم اعادة التنسيق الشرطي كما كان للمتابعة ولكم جزيل الشكر مرفق الملف كود اريد حفظ نطاق معين فقط بصيغة pdf.xlsb تم تعديل يناير 21 بواسطه ابوعلي الحبيب
عبدالله بشير عبدالله قام بنشر يناير 21 قام بنشر يناير 21 وعليكم السلام ورحمة الله وبركاته الفكرة انشاء ملف جديد غير مرئي يتم فيه لصق البيانان ثم ازالة التنسيق الشرطي منه ثم التحويل الى PDF ثم يتم حذق الملف بدون المساس بالتنسيق الشرطى للملف الاصل كل ما سبق عن طريق كود ترحيل بدون تنسيق شرطي.xlsb 1
ابوعلي الحبيب قام بنشر يناير 21 الكاتب قام بنشر يناير 21 (معدل) رائع يعطيك العافية استاذ عبدالله صحيح يحفظ بدون التنسيق الشرطي ولكن حتى المعادلات التي فيها الارقام لا تظهر يخفي التنسيق وارقام المعادلات وكل شي ويظهر الملف فارغ تم ارفاق الملف بالمعادلات ولك جزيل الشكر مرفق الملف فيه المشكلة ترحيل بدون تنسيق شرطي.xlsb تم تعديل يناير 21 بواسطه ابوعلي الحبيب
عبدالله بشير عبدالله قام بنشر يناير 21 قام بنشر يناير 21 جرب التعديل التالي توجد ورقة مخفية يتم نسخ البياتان اليها ومنها يتم تحويل الى PDF ترحيل بدون تنسيق شرطي.xlsb 2
ابوعلي الحبيب قام بنشر يناير 22 الكاتب قام بنشر يناير 22 يعطيك العافية استاذ عبدالله واعتذر على الاطالة صحيح يحفظ الان بدون التنسيق الشرطي ولكن اصبح يخفي التلوين العادي للصفوف والخلاياء التي ليست تنسيق الشرطي والمشكلة الثانية عندما انسخ ورقة العمل المشروع 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 1
محمد هشام. قام بنشر يناير 22 قام بنشر يناير 22 وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا 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 2 2
ابوعلي الحبيب قام بنشر يناير 23 الكاتب قام بنشر يناير 23 الاستاذ الفاضل محمد هشام تسلم هذا المطلوب لك مني كل الشكر والتقدير ﷲ يجزاك خير ويسعدك وكذالك اشكر الاستاذ عبدالله بشير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.