كيفية طباعة عمود طويل على صفحة واحدة في Excel؟
لنفترض أن لديك قائمة طويلة من البيانات في عمود، ربما 200 صف، والآن تحتاج إلى طباعتها، ولكن عند الطباعة، يتم استخدام حوالي 5 صفحات ورقية، مع وجود عمود واحد فقط في الجانب الأيسر ومساحة بيضاء كبيرة على الجانب الأيمن. في برنامج Word، يمكنك تقسيم النص إلى أعمدة، لكن Excel لا يحتوي على هذه الوظيفة. كيف يمكنك طباعة القائمة الطويلة من البيانات على صفحة واحدة لتوفير الورق؟
طباعة عمود طويل على صفحة واحدة باستخدام الصيغة
طباعة عمود طويل على صفحة واحدة باستخدام كود VBA
طباعة عمود طويل على صفحة واحدة باستخدام Kutools لـ Excel
طباعة عمود طويل على صفحة واحدة باستخدام الصيغة
هنا يمكنني أن أقدم لك صيغة طويلة لحل هذه المشكلة، يرجى القيام بما يلي:
1. في ورقة عمل جديدة من المصنف الحالي، أدخل الصيغة =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) في الخلية A1.
- Sheet1 هي ورقة العمل التي تحتوي على القائمة الطويلة التي تريد تقسيمها إلى أعمدة.
- 45 هو عدد الصفوف الذي تريد سرد البيانات فيه في العمود.
- كلها متغيرات، ويمكنك تغييرها حسب حاجتك.
2. ثم حدد الخلية A1، واسحب مقبض التعبئة لأسفل حتى الصف 45، ثم استمر في سحب مقبض التعبئة عبر اليمين حتى يتم عرض البيانات. وسيتم تقسيم العمود الطويل إلى عدة أعمدة لتتناسب مع صفحة واحدة في ورقة عمل جديدة. انظر لقطة الشاشة:
طباعة عمود طويل على صفحة واحدة باستخدام كود VBA
الكود التالي لـ VBA أيضًا يمكن أن يساعدك في تقسيم قائمة طويلة من البيانات إلى عدة أعمدة، بحيث يمكنك طباعة البيانات وتوفير الورق.
1. اضغط مع الاستمرار على مفتاحي ALT + F11، ويفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
Sub SingleToMultiColumn()
Dim rng As Range
Dim iCols As Integer
Dim lRows As Long
Dim iCol As Integer
Dim lRow As Long
Dim lRowSource As Long
Dim x As Long
Dim wks As Worksheet
Set rng = Application.InputBox _
(prompt:="Select the range to convert", _
Type:=8)
iCols = InputBox("How many columns do you want?")
lRowSource = rng.Rows.Count
lRows = lRowSource / iCols
If lRows * iCols <> lRowSource Then lRows = lRows + 1
Set wks = Worksheets.Add
lRow = 1
x = 1
For iCol = 1 To iCols
Do While x <= lRows And lRow <= lRowSource
Cells(x, iCol) = rng.Cells(lRow, 1)
x = x + 1
lRow = lRow + 1
Loop
x = 1
Next
End Sub
3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، وحدد بيانات القائمة التي تريد تقسيمها في مربع الحوار المنبثق، انظر لقطة الشاشة:
4. انقر فوق موافق، وأدخل عدد الأعمدة التي تريد تقسيمها إليها. انظر لقطة الشاشة:
5. وانقر فوق موافق، تم تقسيم العمود الطويل إلى خمسة أعمدة في ورقة عمل جديدة. انظر لقطات الشاشة:
 |  |  |
طباعة عمود طويل على صفحة واحدة باستخدام Kutools لـ Excel
قد تكون كل من الصيغة الطويلة وكود VBA صعبين بالنسبة لك، هنا يمكنني أن أقدم لك طريقة سهلة ومريحة لحل هذه المشكلة. وظيفة تقسيم البيانات إلى أعمدة في Kutools لـ Excel يمكن أن تساعدك بسرعة في تقسيم العمود الطويل إلى عدة أعمدة بحيث يمكنك طباعتها بشكل معقول.
Kutools لـ Excel يتضمن أكثر من 300 أداة مفيدة لبرنامج Excel. جربها مجانًا بدون قيود لمدة 30 يومًا. احصل عليها الآن.
عندما تقوم بتثبيت Kutools لـ Excel، يمكنك القيام بالخطوات التالية:
1. انقر فوق Kutools Plus > تقسيم إلى أعمدة، انظر لقطة الشاشة:
2. في مربع الحوار المنبثق:
- انقر فوق الزر الأول
لتحديد عنوان النطاق، ثم انقر فوق الزر الثاني لتحديد العمود الذي تريد تقسيمه. - ثم حدد عدد الصفوف التي تريد وضعها لكل صفحة من الصفوف في الصفحة المطبوعة، وأدخل عدد الأعمدة التي تريدها في صفحة واحدة ضمن عدد الأقسام. انظر لقطة الشاشة:
لتحديد عنوان النطاق، ثم انقر فوق الزر الثاني 
3. ثم انقر فوق موافق، تم تقسيم بيانات القائمة الطويلة إلى خمسة أعمدة في الصفحة. انظر لقطات الشاشة:
 | |  |
- 1. سيتم إضافة العنوان قبل كل عمود.
- 2. إذا قمت بتحديد خيار إنشاء رابط مع ورقة العمل الحالية، يمكن ربط بيانات ورقة العمل الجديدة بالبيانات المصدر.
- إذا كنت ترغب في معرفة المزيد حول هذه الميزة، يرجى النقر فوق طباعة أعمدة متعددة.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد