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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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

Preview




مشكلة فى نطاق الطباعة

السلام عليكم استخدمت اكثر من طريقة لتحديد نطاق الطباعة لعدة أوراق حيث تكون البيانات مختلفة فى كل ورقة ، بل وقد تتغير فى ..



04-09-2017 01:05 صباحا
أباالحسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 689
الاعجاب : 2
 offline 
السلام عليكم
استخدمت اكثر من طريقة لتحديد نطاق الطباعة لعدة أوراق
حيث تكون البيانات مختلفة فى كل ورقة ، بل وقد تتغير فى الورقة الواحدة ، فيكون الناتج مرة ورقتان أو 3  أو 4 ورقات  مثلا
وهذا حسب قيمة خلية معينة فى هذه الورقة
وقد استخدمت هذا الكود ، 
داخل الورقة فى حدث Active_Worksheet

Private Sub Worksheet_Activate()

On Error Resume Next

'Application.ScreenUpdating = False
'Application.EnableEvents = False
'Application.Calculation = xlCalculationManual

ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.PaperSize = xlPaperA4

ActiveSheet.PageSetup.PrintArea = "$C$2:I" & [k4].Value
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = [k5].Value

ActiveSheet.PageSetup.CenterHorizontally = True
ActiveSheet.PageSetup.CenterVertically = True

ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(0.196)
ActiveSheet.PageSetup.RightMargin = Application.InchesToPoints(0.196)
ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0.196)
ActiveSheet.PageSetup.BottomMargin = Application.InchesToPoints(0.196)

'Application.ScreenUpdating = True
'Application.EnableEvents = True
'Application.Calculation = xlCalculationAutomatic

End Sub


حيث القيمة K4 بها عدد الصفوف ، والقيمة K5 بها عدد الصفحات التى ستطبع، وهما متغيرتان

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

والمطلوب
هل يمكن تغيير نطاق الطباعة عند تتغير قيمة الخلية E1 




04-09-2017 07:27 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif مشكلة فى نطاق الطباعة
إذا كنت تريد التغيير حسب الخلية فيجب وضع الكود في حدث Worksheet_Change وليس Worksheet_Activate
نقطة أخرى حاول أن تضع في أول الكود سطر يقوم بإعادة ضبط نطاق الطباعة أو ما يسمى Reset أو Clear Print Area
وهي ببساطة نفس السطر التالي
ActiveSheet.PageSetup.PrintArea = "$C$2:I" & [k4].Value

ولكن ما بعد علامة يساوي تكتب فراغ بهذا الشكل ""




04-09-2017 07:33 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26664
الاعجاب : 671
 offline 
look/images/icons/i1.gif مشكلة فى نطاق الطباعة
قمت بعمل ملف بسيط يوضح لك كيف يمكن الدمج بين كلا الطريقتين .. استخدمت كود بسيط لتفهم كيف تسير الأمور 
ورقة العمل Sheet1 بها حدث Worksheet Activate ويظهر رسالة عند تنشيط ورقة العمل
فأضفت كود آخر في حدث التغير في ورقة العمل يستدعي كود نتشيط ورقة العمل
إليك المثال عله يفيدك في حل مشكلتك
 
 
  Call Worksheet Activate In Worksheet Change.rar   تحميل rar مرات التحميل :(17)
الحجم :(12.93) KB





05-09-2017 01:26 صباحا
مشاهدة مشاركة منفردة [3]
ناصر سعيد
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 232
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 525
الاعجاب : 4
 offline 
look/images/icons/i1.gif مشكلة فى نطاق الطباعة
Option Explicit

Private Sub Worksheet_Activate()
    MsgBox "Hello Excel Experts", 64
End Sub

ربنا يبارك فيك استاذ ياسر



توقيع :ناصر سعيد
جزاكم الله خيرا




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيف اجعل الكود الموجود يحفظ الصورة بنطاق مرن ابوعلي الحبيب
17 249 YasserKhalil
نسخ و طباعة نطاق معين بشرط او اكثر halan550
4 227 YasserKhalil
مسح جزء من نطاق خالد الشاعر
5 280 salim
حفظ نطاق الطباعة كصورة Export Print Area + Print title rows As Picture hassona229
35 859 hassona229
حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture YasserKhalil
32 1735 hassona229

الكلمات الدلالية
مشكلة ، نطاق ، الطباعة ،


 








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

الساعة الآن 06:47 مساء

أعلن هنا
أعلن هنا
أعلن هنا