كيفية طباعة عمود طويل على صفحة واحدة في إكسيل؟

لنفترض أن لديك قائمة طويلة من البيانات في عمود ، ربما 200 صف ، والآن تحتاج إلى طباعتها ، ولكن عند الطباعة ، تستخدم حوالي 5 صفحات من الورق ، مع عمود واحد فقط في الجانب الأيسر ، ومساحة بيضاء كبيرة على الجانب الأيمن. في Word ، يمكنك العمود ، لكن Excel ليس لديه هذه الوظيفة. كيف يمكنك طباعة بيانات القائمة الطويلة على صفحة واحدة لحفظ الورق؟

طباعة عمود طويل على صفحة واحدة مع الصيغة

اطبع عمودًا طويلًا على صفحة واحدة برمز VBA

اطبع عمودًا طويلًا على صفحة واحدة باستخدام Kutools for Excel

طباعة عمود طويل على صفحة واحدة مع الصيغة

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

هنا يمكنني تقديم صيغة طويلة لحل هذه المشكلة ، يرجى القيام بذلك على النحو التالي:

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 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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. انقر OK، وأدخل عدد الأعمدة التي تريد تقسيمها. انظر لقطة الشاشة:

5. وانقر OK، تم تقسيم العمود الطويل إلى خمسة أعمدة في ورقة عمل جديدة. انظر لقطات الشاشة:

اطبع عمودًا طويلًا على صفحة واحدة باستخدام Kutools for Excel

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

كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن.

عندما تقوم بتثبيت Kutools for Excel ، يمكنك القيام بالخطوات التالية:

1. انقر مشروع > طباعة أعمدة متعددة، انظر لقطة الشاشة:

2. في طباعة أعمدة متعددة صندوق المحادثة:

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

3. ثم اضغط OK، تم تقسيم بيانات القائمة الطويلة إلى خمسة أعمدة في الصفحة. انظر لقطات الشاشة:

الملاحظات:

1. سيتم إضافة العنوان قبل كل عمود.

2. إذا قمت بالتدقيق قم بإنشاء ارتباط بالورقة النشطة الخيار ، يمكن ربط بيانات ورقة العمل الجديدة ببيانات المصدر.

إذا كنت تريد معرفة المزيد عن هذه الميزة ، الرجاء النقر فوق طباعة أعمدة متعددة.

أفضل أدوات إنتاجية المكتب

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

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...