Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (13)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لدي سؤال يتعلق بالخيار الثاني "طباعة عمود طويل على صفحة واحدة برمز VBA". إذا كان لدي أكثر من عمود واحد في النطاق ، فكيف يمكنني استخدام نفس الرمز. لنفترض أن النطاق "$ A $ 2: $ C $ 118" كيف يمكنني القيام بذلك. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لكم على هذه المعلومات! كانت مفيدة للغاية وسهلة الاستخدام - حتى بالنسبة لشخص يفتقر إلى مهارات الكمبيوتر القوية (استخدمت الطريقة الأولى)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بعد البحث في الإنترنت لساعات ، عثرت على هذا. هذا بالضبط ما كنت أبحث عنه. عمل جيد وشكرا لأخذ الوقت المستقطع لهذا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيدي العزيز ، شكرًا على هذا العمل ، رمز VBA مفيد جدًا لعملي ، ويسعدني إكمال مهمتي في ثوانٍ. شكرا. ....
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك استخدام صيغة بسيطة = OFFSET (Sheet1! $ A $ 1، (ROW () - 2) * 5 + COLUMN ()، 0) للسماح للبيانات بالتدفق أفقيًا في 5 أعمدة. ثم يمكنك تحديد حجم الصفحة ، وطباعة الصف الأول على كل صفحة ، وما إلى ذلك. بسيط ، أنيق ، بدون VBA
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لتعديل هذه الصيغة للعمل مع 3 أعمدة بدلاً من 1؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سأكون مهتمًا بحل كهذا أيضًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
اين تذهب هذه الصيغة؟ أحاول طباعة صفوف متعددة مع عدة أعمدة على صفحة واحدة في تخطيط صفوف متعددة. مشابهة لهذه:

أسبوع جون سميث 1
أسبوع جون سميث 2
مجاميع جون سميث


لدي أكثر من 100 صف مع ما يصل إلى IJ
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك! الصيغة تعمل بسلاسة!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أو يمكنك فقط نسخ الجدول ولصقه في مستند Word ، مع العديد من الأعمدة التي تريدها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي عمود من 10,000 رقم وسيوفر ماكرو VBA جدولًا في عدة صفحات. ومع ذلك ، أفضل أن يتم فرز كل صفحة رقميًا بدلاً من العمود. نقدر أي مساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي عمود مكون من 10,000 رقم فريد ، تم فرزها جميعًا. توفر التعليمات البرمجية لـ VBA جدولاً ، ولكن يتم فرز الأعمدة بشكل فردي.
أفضل أن يتم فرز كل صفحة عدديًا بحيث يسهل متابعة صفحة البيانات حسب الصفحة. أي اقتراحات موضع ترحيب.
كيث
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا يا باترسون ،
ربما يمكن أن يقدم لك رمز VBA التالي خدمة:
Sub SingleToMultiColumn()
    Dim xRng As Range
    Dim xCount As Integer
    Dim xICols As Integer
    Dim xLRows As Long
    Dim xICol As Integer
    Dim xLRow As Long
    Dim xLRowSource As Long
    Dim xRowNum As Long
    Dim xFCount, xFNum, xFNum_R, xFNum_C As Long
    Dim x As Long
    Dim xWst As Worksheet
    Dim xJ As Integer
    
    Set xRng = Application.InputBox(prompt:="Select the range to convert", Type:=8)
    xICols = InputBox("How many columns do you want?")
    xRowNum = InputBox("How many rows do you want in a page?")
    xCount = xRng.Count
    xFCount = Fix(xCount / (xICols * xRowNum))
    If xICols * xRowNum * xFCount < xCount Then xFCount = xFCount + 1
    Set xWst = Worksheets.Add
    xJ = 0
    Application.ScreenUpdating = False
    For xFNum = 1 To xFCount
        If xJ = xCount Then Exit For
        For xFNum_C = 1 To xICols
            If xJ = xCount Then Exit For
            For xFNum_R = 1 To xRowNum
                If xJ = xCount Then Exit For
                xWst.Cells((xFNum - 1) * xRowNum + xFNum_R, xFNum_C) = xRng.Item(xJ + 1)
                xJ = xJ + 1
            Next
        Next
    Next
     Application.ScreenUpdating = True
End Sub



من فضلك حاول ، آمل أن يساعدك!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL