كيف يمكن طباعة أوراق محددة في Excel استنادًا إلى قيم الخلايا؟
هل سبق أن حاولت طباعة أوراق محددة بناءً على قيمة خلية؟ في هذه المقالة، سأعرض بعض الأمثلة لحل هذه المشكلة. إذا كنت مهتمًا، فتابع القراءة!
طباعة ورقة استنادًا إلى خلية باستخدام VBA
طباعة ورقة استنادًا إلى الخلية المجاورة باستخدام VBA
طباعة ورقة استنادًا إلى خلية باستخدام VBA
افترض أن لديك وريقتين، وتريد طباعة الورقة Sheet1 أو Sheet2 أو كليهما بناءً على قيمة الخلية A1 في الورقة Sheet1. يُرجى اتباع الخطوات التالية:
في هذه الحالة، أدخل 1 لطباعة الورقة الأولى، أو 2 لطباعة الورقة الثانية، أو 3 لطباعة الوريقتين معًا.
1. أدخل 1 أو 2 أو 3 حسب الحاجة في الخلية A1 في الورقة الأولى، ثم اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة البرمجة (Module)، ثم الصق الكود أدناه في نافذة وحدة البرمجة(Module). راجع لقطة الشاشة:
VBA: طباعة الورقة استنادًا إلى قيمة الخلية
Sub PrintStuff()
'UpdayebyExtendoffice20180811
Dim xRgVal As Variant
Dim xSheets As Sheets
Set xSheets = ActiveWorkbook.Worksheets
xRgVal = xSheets(1).Range("A1").Value
If (IsNumeric(xRgVal)) And (Len(xRgVal) = 1) Then
Select Case xRgVal
Case 1
xSheets(1).PrintOut
Case 2
xSheets(2).PrintOut
Case 3
xSheets(1).PrintOut
xSheets(2).PrintOut
Case Else
MsgBox "Enter1, 2 or 3 into A1 (1 print Sheet1 2 print Sheet2 3 print Sheet1 and Sheet2 ", , "KuTools For Excel"
Exit Sub
End Select
Else
Exit Sub
End If
End Sub
3. اضغط على مفتاحF5 لطباعة الورقة (أو الأوراق) مباشرةً.
طباعة ورقة استنادًا إلى الخلية المجاورة باستخدام VBA
إذا كان لديك عدة أوراق في ملف عمل، وترغب في طباعة ورقة واحدة أو أكثر استنادًا إلى قيم خلايا من هذا الملف، يمكنك اتباع الخطوات التالية:
1. أنشئ ورقة جديدة باسمورقة التحكم (Control Sheet)في ملف العمل الذي تستخدمه، ثم أدرج أسماء جميع الأوراق في العمود A (بما في ذلك ورقة التحكم أو باستثنائها حسب رغبتك). راجع لقطة الشاشة:
2. اكتب "print" في الخلية المجاورة لاسم الورقة التي ترغب في طباعتها. راجع لقطة الشاشة أدناه.
3. اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications، ثم انقر علىإدراج > وحدة البرمجة (Module). راجع لقطة الشاشة:
4. الصق الكود أدناه في وحدة البرمجة، ثم اضغط على مفتاحF5 لتشغيل الكود.
VBA: الطباعة استنادًا إلى الخلية المجاورة
Sub CreateControlSheet()
'UpdatebyExtendoffice20170811
Dim i As Integer
Dim xCSheetRow As Integer
Dim xSName As String
Dim xCSheet As Variant
Dim xRgVal As String
On Error Resume Next
xSName = "Control Sheet"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xCSheet = ActiveWorkbook.Worksheets(xSName)
xCSheetRow = xCSheet.Range("B65536").End(xlUp).Row
For i = 2 To xCSheetRow
xRgVal = xCSheet.Range("B" & i).Value
If xRgVal = "Print" Or xRgVal = "print" Then
If xCSheet.Range("A" & i).Value <> "" Then
ActiveWorkbook.Worksheets(xCSheet.Range("A" & i).Value).PrintOut
End If
End If
Next
xCSheet.Delete
ActiveWorkbook.Worksheets.Add
ActiveSheet.Name = "Control Sheet"
Range("A1").Select
ActiveCell.FormulaR1C1 = "Sheet Name"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Print?"
For i = 1 To ActiveWorkbook.Worksheets.Count
Range("A" & i + 1).Value = ActiveWorkbook.Worksheets(i).Name
Next
Cells.Columns.AutoFit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
بعد تشغيل الكود، سيتم طباعة الورقة (أو الأوراق) فورًا، ويُستبدل ورقة التحكم القديمة بورقة تحكم جديدة في الوقت نفسه.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل