نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية طباعة صفحات أو ورقة عمل معينة استنادا إلى قيمة الخلية في إكسيل؟

هل حاولت طباعة صفحة أو ورقة عمل معينة استنادا إلى قيمة خلية في إكسيل؟ وكيفية تحقيق ذلك؟ الأساليب في هذه المقالة يمكن أن تساعدك على حلها في التفاصيل.

طباعة صفحة معينة استنادا إلى قيمة الخلية مع التعليمات البرمجية فبا

طباعة ورقة عمل معينة استنادا إلى قيمة الخلية مع التعليمات البرمجية فبا

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الفقاعة اليمنى طباعة صفحة معينة استنادا إلى قيمة الخلية مع التعليمات البرمجية فبا


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

1. حدد الخلية تحتوي على رقم الصفحة الذي تريد طباعته استنادا إلى ثم اضغط مفتاحي ألت و فسنومك في وقت واحد لفتح إطار ميكروسوفت فيسوال باسيك فور أبليكاتيونس. ثم اضغط إدراج > وحدة.

2. ثم ميكروسوفت فيسوال باسيك للتطبيقات نافذة للملوثات العضوية الثابتة، يرجى نسخ ولصق التعليمات البرمجية فبا التالية في رمز نافذة.

رمز فبا: طباعة الصفحة استنادا إلى قيمة الخلية

Option Explicit
Sub Print_Pages()
Dim xPage As Integer
Dim xYesorNo As Integer
With ActiveCell
    If Not IsEmpty(.Value) And IsNumeric(.Value) Then
        xPage = .Value
    Else: MsgBox "Please specify a cell and enter a page in cell"
        Exit Sub
    End If
End With
xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
    ActiveSheet.PrintOut from:=xPage, To:=xPage, preview:=True
Else
    Exit Sub
End If
End Sub

3. صحافة F5 مفتاح لتشغيل التعليمات البرمجية. في ظهرت كوتولس ل إكسيل مربع الحوار، انقر فوق نعم زر لطباعة صفحة معينة، أو انقر فوق لا زر للخروج من مربع الحوار إذا كنت لا تريد الطباعة. انظر لقطة الشاشة:

ثم تفتح نافذة المعاينة لصفحة معينة من ورقة العمل الحالية، الرجاء النقر فوق طباعة لبدء الطباعة.


السهم الأزرق الفقاعة اليمنى طباعة صفحة معينة استنادا إلى قيمة الخلية مع التعليمات البرمجية فبا

لنفترض أنك تريد طباعة ورقة العمل النشطة عندما تكون القيمة في الخلية بكسنومك من هذه الورقة مساوية لعدد نومومكس. يمكنك تحقيق ذلك مع التعليمات البرمجية فبا التالية. يرجى القيام على النحو التالي.

1. انقر بزر الماوس الأيمن ورقة التبويب التي تريد طباعتها استنادا إلى قيمة الخلية، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

2. ثم ميكروسوفت فيسوال باسيك للتطبيقات وينبثق، يرجى نسخ ولصق التعليمات البرمجية فبا التالية في إطار التعليمات البرمجية.

رمز فبا: طباعة ورقة عمل استنادا إلى قيمة الخلية

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xCell As Range, xYesorNo As Integer
Set xCell = ActiveSheet.Range("B2")
If Application.Intersect(Target, xCell) Is Nothing Then Exit Sub
    If xCell.Value = 1001 Then
        xYesorNo = MsgBox("Ready to print the specified worksheet? ", vbYesNo, "Kutools for Excel")
        If xYesorNo = vbYes Then
          ActiveSheet.PrintOut
        Else
           Exit Sub
        End If
End If
End Sub

ملاحظة:: يمكنك تغيير الخلية وقيمة الخلية في التعليمات البرمجية كما تحتاج.

3. صحافة قديم + Q لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

عند إدخال رقم شنومكس في خلية بكسنومكس، أ كوتولس ل إكسيل مربع الحوار للملوثات العضوية الثابتة، الرجاء النقر فوق نعم لبدء الطباعة. أو انقر فوق لا زر للخروج من مربع الحوار مباشرة دون الطباعة. انظر لقطة الشاشة:

تلميح: إذا كنت ترغب في طباعة صفحات غير متتالية مباشرة مثل صفحة شنومكس و شنومكس و شنومكس في ورقة العمل الحالية أو طباعة فقط كل الصفحات حتى أو الفردية، يمكنك محاولة طباعة الصفحات المحددة الأداة المساعدة يف كوتولس ل إكسيل كما يظهر أدناه قطة. يمكنك الذهاب إلى مجانا تحميل البرنامج مع عدم وجود قيود في أيام شنومكس.


السهم الأزرق الفقاعة اليمنىمقالات ذات صلة:


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ryan · 4 months ago
    This was very helpful! Is there a way to print multiple pages? For example, if cell A1 = 5, print pages 1-5.
    • To post as a guest, your comment is unpublished.
      crystal · 3 months ago
      Hi Ryan,
      If you want to print consecutive pages such as 1-5 in a worksheet based on a cell value, please specify a cell such as A1 as Text formatting, type 1-5 into it, keep this cell selecting, and then run the below VBA code.

      Sub Print_Pages()
      Dim xPage As String
      Dim xYesorNo As Integer
      Dim xI As String
      Dim xPArr() As String
      Dim xIS, xIE, xF, xNum As Integer
      xPage = ActiveCell.Value
      xYesorNo = MsgBox("Ready to print page" & xPage & " ", vbYesNo, "Kutools for Excel")
      If xYesorNo = vbYes Then
      xPArr() = Split(xPage, "-")
      If UBound(xPArr) = 0 Then
      If IsEmpty(xPage) And IsNumeric(xPage) Then
      MsgBox "Please specify a cell and enter a page in cell"
      Exit Sub
      End If
      xNum = Int(xPage)
      ActiveSheet.PrintOut from:=xNum, To:=xNum, preview:=True
      ElseIf UBound(xPArr) = 1 Then
      On Error GoTo Err01
      xIS = Int(xPArr(0))
      xIE = Int(xPArr(1))
      If xIS < xIE Then
      For xF = xIS To xIE
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      Else
      For xF = xIE To xIS
      ActiveSheet.PrintOut from:=xF, To:=xF, preview:=True
      Next
      End If
      Else
      MsgBox "Please enter the valid data", vbOKOnly, "Kutools for Excel"
      Exit Sub
      End If
      Else
      Exit Sub
      End If
      Exit Sub
      Err01:
      MsgBox "Please enter the correct page scope", vbOKOnly, "Kutools for Excel"
      End Sub