كيف يمكن طباعة عمود طويل في صفحة واحدة في 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. انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي في نافذة الوحدة النمطية.
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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل