Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
حساب جديد  \/ 
x

or

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

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

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

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

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

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
  • أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
  • أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
  • لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
  • مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تطبيق الفلتر بواسطة bold، formulas، comment ...
  • أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الحق فقاعة طباعة عمود طويل على صفحة واحدة مع الصيغة


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

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 ، ثم استمر في سحب مقبض التعبئة إلى اليمين حتى يتم عرض البيانات. وقد تم تقسيم العمود الطويل إلى عدة أعمدة ليلائم صفحة واحدة في ورقة عمل جديدة. انظر لقطة الشاشة:

doc- طباعة- عمود طويل 1


السهم الأزرق الحق فقاعة اطبع عمودًا طويلًا على صفحة واحدة برمز 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 مفتاح لتشغيل هذا الرمز ، وحدد بيانات القائمة التي تريد تقسيمها في مربع الحوار المنبثق ، انظر لقطة الشاشة:

doc- طباعة- عمود طويل 2

4. انقر OK، وأدخل عدد الأعمدة التي تريد تقسيمها. انظر لقطة الشاشة:

doc- طباعة- عمود طويل 3

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

doc- طباعة- عمود طويل 4 -2 doc- طباعة- عمود طويل 5

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

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

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

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

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

doc- طباعة- عمود طويل 6

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

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

doc- طباعة- عمود طويل 7

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

doc- طباعة- عمود طويل 8 -2 doc- طباعة- عمود طويل 9

الملاحظات:

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

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

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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    George · 3 years ago
    Or you can just copy the table, and paste it in a word document, with as many columns you want to have.
  • To post as a guest, your comment is unpublished.
    Beckett Kirk · 4 years ago
    Thank you! The formula worked seamlessly!
  • To post as a guest, your comment is unpublished.
    Jake Kacher · 4 years ago
    You can use a simple formula =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0) to let the data flow horizontally in 5 columns.
    Then you can select Page size, print first row on each page, etc. Simple, neat, no VBA
    • To post as a guest, your comment is unpublished.
      Jen · 4 years ago
      where does this formula go? I am trying to print multiple rows with several columns on one page in a multiple row layout. Similar to this:

      john smith week 1
      john smith week 2
      john smith totals


      I have over 100 rows with up to IJ
    • To post as a guest, your comment is unpublished.
      Tara · 4 years ago
      Is there a way to modify this formula to work with 3 columns instead of 1?
      • To post as a guest, your comment is unpublished.
        Jeremy · 4 years ago
        I would be interested in a solution like this as well.
  • To post as a guest, your comment is unpublished.
    Mohsin Dastgeer · 4 years ago
    Dear Sir
    Thanks for this work, This VBA Code is very helpful for my work, I am glad to complete my task in seconds. Thank You. ....
  • To post as a guest, your comment is unpublished.
    Ron · 5 years ago
    After searching the internet for hours, I stumbled across this. Its exactly what I was looking for. Nice job and thanks for taking the time out for this.
  • To post as a guest, your comment is unpublished.
    Tarina · 5 years ago
    Thank you for this information! It was very helpful and easy to use - even for somebody lacking strong computer skills (I used the first method)
  • To post as a guest, your comment is unpublished.
    Antonio · 7 years ago
    Hello, I have a question related to the second option "Print long column on one page with VBA code".

    If i have more than one column in range how can I use the same code. Let say the range of "$A$2:$C$118" how can i do it work.

    Thanks.