كيفية طباعة صفحات أو ورقة عمل معينة بناءً على قيمة الخلية في Excel؟
هل سبق لك أن حاولت طباعة صفحة أو ورقة عمل معينة بناءً على قيمة خلية في Excel؟ وكيف نحققه؟ يمكن أن تساعدك الطرق الواردة في هذه المقالة في حلها بالتفصيل.
اطبع صفحة معينة بناءً على قيمة الخلية برمز VBA
اطبع ورقة عمل معينة بناءً على قيمة الخلية برمز VBA
اطبع صفحة معينة بناءً على قيمة الخلية برمز VBA
على سبيل المثال ، تريد طباعة صفحة معينة مثل الصفحة 1 من ورقة العمل الحالية تلقائيًا عند إدخال رقم الصفحة 1 في الخلية A1 في ورقة العمل الحالية. يمكنك القيام بما يلي لتحقيق ذلك.
1. حدد الخلية التي تحتوي على رقم الصفحة التي تريد الطباعة بناءً عليها ، ثم اضغط قديم و F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. ثم اضغط إدراج > وحدة.
2. ثم ميكروسوفت فيسوال باسيك للتطبيقات نافذة منبثقة ، يرجى نسخ ولصق رمز VBA التالي في ملف رمز نافذة.
كود فبا: طباعة الصفحة على أساس قيمة الخلية
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 مفتاح لتشغيل الكود. في ظهرت كوتولس ل إكسيل مربع الحوار، انقر فوق نعم لطباعة صفحة معينة ، أو انقر فوق لا زر للخروج من مربع الحوار إذا كنت لا تريد الطباعة. انظر لقطة الشاشة:
ثم تفتح نافذة المعاينة لصفحة معينة من ورقة العمل الحالية ، يرجى النقر فوق طباعة زر لبدء الطباعة.
اطبع صفحة معينة بناءً على قيمة الخلية برمز VBA
لنفترض أنك تريد طباعة ورقة العمل النشطة عندما تكون القيمة في الخلية B2 بهذه الورقة مساوية للرقم 1001. يمكنك تحقيق ذلك باستخدام رمز VBA التالي. الرجاء القيام بما يلي.
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 لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
عند إدخال الرقم 1001 في الخلية B2 ، أ كوتولس ل إكسيل ينبثق مربع الحوار ، الرجاء النقر فوق نعم زر لبدء الطباعة. أو انقر فوق لا زر للخروج من مربع الحوار مباشرة بدون طباعة. انظر لقطة الشاشة:
مقالات ذات صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!