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

كيف تتحقق من حجم كل ورقة عمل من المصنف؟

لنفترض أن لديك مصنفًا كبيرًا يحتوي على أوراق عمل متعددة ، والآن ، تريد معرفة حجم كل ورقة عمل لتحديد الورقة التي يجب تصغيرها. هل هناك طرق سريعة للتعامل مع هذه المهمة؟

تحقق من حجم كل ورقة عمل برمز VBA

تحقق من حجم كل ورقة عمل باستخدام Kutools for Excel

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

السهم الأزرق الحق فقاعة تحقق من حجم كل ورقة عمل برمز VBA

باستخدام رمز فبا التالي ، يمكنك الحصول بسرعة على حجم كل ورقة عمل في المصنف الخاص بك. يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: تحقق من حجم كل ورقة عمل في مصنف </ p>

Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
    xOutWs.Delete
    Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
    .Name = xOutName
    .Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
    If xWs.Name <> xOutName Then
        xWs.Copy
        Application.ActiveWorkbook.SaveAs xOutFile
        Application.ActiveWorkbook.Close SaveChanges:=False
        Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
        Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
        Kill xOutFile
        xIndex = xIndex + 1
    End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub

3. ثم اضغط F5 مفتاح لتنفيذ هذا الرمز ، وورقة عمل جديدة باسم كوتولسفورإكسيل سيتم إدراجها في المصنف الحالي الذي يحتوي على كل اسم ورقة عمل وحجم الملف ، والوحدة هي بت. انظر لقطة الشاشة:

حجم ورقة فحص المستندات 1


السهم الأزرق الحق فقاعة تحقق من حجم كل ورقة عمل باستخدام Kutools for Excel

إذا كان لديك كوتولس ل إكسيل، بما لديها انقسام وركبوك يمكنك تقسيم المصنف بأكمله إلى ملفات منفصلة ، ثم الانتقال إلى المجلد المحدد للتحقق من حجم كل ملف.

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

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

1. افتح المصنف الذي تريد التحقق من حجم كل ورقة عمل به ، وانقر فوق مشروع > أدوات المصنف > انقسام وركبوك، انظر لقطة الشاشة:

حجم ورقة فحص المستندات 1

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

حجم ورقة فحص المستندات 3
-1
حجم ورقة فحص المستندات 4

3. وبعد ذلك سيتم حفظ كل ورقة عمل من مصنفك الحالي كملف Excel منفصل ، يمكنك الانتقال إلى المجلد المحدد للتحقق من حجم كل مصنف.

حجم ورقة فحص المستندات 1

لمعرفة المزيد حول ميزة Split Workbook هذه.


مقالات ذات صلة:

كيفية تقسيم مصنف لفصل ملفات Excel في Excel؟

كيفية تصدير وحفظ الأوراق وأوراق العمل كمصنف جديد في Excel؟


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (9)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مفيد جدا. شكرًا لك!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لتقديم مقتطف الشفرة للجمهور. إنه أحد أفضل الإجراءات الروتينية التي وجدتها. فيما يلي بعض التعديلات عليه: 1) أضف "Dim xIndex as Long" إلى الأعلى إذا كنت تستخدم Option Explicit. 2) أضف هذا داخل الحلقة For للتعامل مع الأوراق المخفية (وإلا فإنه يتعطل): xWs.Visible = xlSheetVisible 3) إذا كان لديك أوراق "مخطط" صفحة كاملة ، فأنت بحاجة إلى نسخ رمز الحلقة والتكرار من خلال التطبيق. مجموعة ActiveWorkbook.Charts. إذا قمت بذلك ، قم بتغيير تعريف xWs من "ورقة" إلى "كائن". 4) للحصول على مؤشر حالة رخيص (أو لمشكلات تصحيح الأخطاء) ، أضف هذا السطر داخل حلقة For: Debug.Print "حساب أحجام ورقة العمل ، الورقة" & xIndex & "of" & ActiveWorkbook.Worksheets.count - 1 & "-" & xWs. الاسم
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بن ، هل يمكنك إعادة لصق سلسلة النص بالكامل بالعنصرين رقم 2 و 4 من بريدك الإلكتروني المضاف؟ معرفتي بـ VBA محدودة جدًا ولست متأكدًا بالضبط من مكان إضافتها في حلقة For. يحتوي المصنف الخاص بي على عدد من الأوراق المخفية ويظل يتعطل أثناء تنفيذ الماكرو. شكرا بوب
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذه نسخة من الروتين مع بعض التحسينات التي أضفتها. اضطررت إلى تقسيمها إلى مشاركات متعددة بسبب حدود الموقع. Public Sub WorksheetSizes () 'Update 20140526' https://www.extendoffice.com/documents/excel/1682-excel-check-size-of-each-sheet.html<br /> '' BS 4/4/2016: تم التعديل للحصول على شريط الحالة وتنسيق الإخراج. تم إصلاحه للأوراق المخفية التي تسببت في تعطله. تمت إضافة دعم لأوراق المخطط Dim xWs As Object 'ورقة عمل أو مخطط Dim rng كنطاق Dim xOutWs مثل ورقة عمل Dim xOutFile As String Dim xOutName كسلسلة Dim xIndex As Long On Error GoTo ErrorHandler Application.Cursor = xlWait xOutName = "KutoolsforExcel" xOutFile = ThisWorkbook.Path & "\ TempWb.xls" عند الخطأ ، استئناف التطبيق التالي. .Add (Before: = Application.Worksheets (0)) .Name = xOutName .Range ("A0"). تغيير الحجم (0، 1) .Value = Array ("Worksheet Name"، "Size") End With Set xOutWs = Application.Worksheets (xOutName) Application.ScreenUpdating = False xIndex = 1 Debug.Print ThisWorkbook.Path لكل xWs في Application.ActiveWorkbook.Worksheets If xWs.Name xOutName ثم Application.StatusBar = "حساب أحجام ورقة العمل ، الورقة" & xIndex & " من "& ActiveWorkbook.Worksheets.count - 1 &" - ​​"& xWs.Name Debug.Print" جاري حساب W أحجام أوراق orksheet ، الورقة "& xIndex &" of "& ActiveWorkbook.Worksheets.count - 2 &" - ​​"& xWs.Name DoEvents 'تتضمن هذا حتى يمكن اكتشاف CTRL + Break. "- كسر لصق -
تم تصغير هذا التعليق بواسطة المشرف على الموقع
'الجزء 2 من 3' --- فاصل لصق --- xWs.Visible = xlSheetVisible 'xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.CopyQ Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook . أغلق SaveChanges: = False Set rng = xOutWs.Range ("A1"). Offset (xIndex، 0) rng.Resize (1، 2) .Value = Array (xWs.Name، VBA.FileLen (xOutFile)) Kill xOutFile xIndex = xIndex + 1 End If Next 'كرر ما سبق لأوراق الرسم البياني. لكل xWs في Application.ActiveWorkbook.Charts If xWs.Name xOutName ثم Application.StatusBar = "حساب أحجام ورقة العمل ، الورقة" & xIndex & "of" & ActiveWorkbook.Worksheets.count - 1 & "-" & xWs.Name Debug. اطبع "حساب أحجام ورقة العمل ، الورقة" & xIndex & "من" & ActiveWorkbook.Worksheets.count - 1 & "-" & xWs.Name DoEvents 'يتضمن هذا حتى يمكن اكتشاف CTRL + Break. xWs.Visible = xlSheetVisible xOutFile = ThisWorkbook.Path & "\" & xWs.Name & ".xls" xWs.Copy Application.ActiveWorkbook.SaveAs xOutFile Application.ActiveWorkbook.Close SaveChanges: = False Set rng = xOutWs.Range (" ") .Offset (xIndex، 1) rng.Resize (0، 1) .Value = Array (xWs.Name، VBA.FileLen (xOutFile)) 'Kill xOutFile xIndex = xIndex + 2 End If Next' --- فاصل لصق -
تم تصغير هذا التعليق بواسطة المشرف على الموقع
'الجزء 3 من 3' --- فاصل لصق --- 'نسِّق تطبيق ورقة الإخراج (xOutName). تنشيط الأعمدة ("B: B"). Selection.NumberFormat = "#، ## 0 _)؛ ( #، ## 0) "Columns (" A: B "). حدد الأعمدة (" A: B "). EntireColumn.AutoFit Range (" A1 "). حدد" من الأفضل تنسيقه كجدول. ActiveSheet.ListObjects.Add (xlSrcRange، Range ("A1: B" & xIndex)،، xlYes) .Name = "WorksheetSizes" Application.ScreenUpdating = True Application.Application.DisplayAlerts = True Application.StatusBar = "" Application.Cursor = xlDefault Exit Sub ErrorHandler: MsgBox "Error #" & Err.Number & "-" & Err.Description & vbCrLf & "في الإجراء WorksheetSizes" End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جدا جدا جدا جدا مفيدة.
شكرا لك!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك ، مفيدة جدا ،
كان لدي مجموعة من الصيغ غير الضرورية في ورقة وقمت للتو بحذف أن الملف يعمل الآن بشكل جيد.
كل هذا يحدث فقط لأنني تمكنت من إيجاد حجم كل ورقة ،
شكرًا لك مرة أخرى.

أنسون
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ربما يجب إضافة هذا بين السطور 9 و 10 في حالة إخفاء بعض الأوراق لتجنب تعطل الكود
لكل xWs في الأوراق: xWs.Visible = True: Next
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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