كيف يمكن التحقق من حجم كل ورقة عمل في المصنف؟
لنفترض أن لديك مصنفًا كبيرًا يحتوي على أوراق عمل متعددة، وترغب الآن في معرفة حجم كل ورقة عمل لتحديد الورقة التي تحتاج إلى تقليل حجمها. هل توجد طرق سريعة لأداء هذه المهمة؟
التحقق من حجم كل ورقة عمل باستخدام كود VBA
التحقق من حجم كل ورقة عمل باستخدام Kutools لـ Excel
التحقق من حجم كل ورقة عمل باستخدام كود VBA
باستخدام كود VBA التالي، يمكنك بسهولة وسرعة معرفة حجم كل ورقة عمل في مصنفك. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحي «ALT» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».
2. انقر فوق «Insert» > «Module»، ثم الصق الكود التالي في نافذة الوحدة النمطية (Module Window).
كود VBA: التحقق من حجم كل ورقة عمل في مصنف
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" لتنفيذ هذا الكود، وسيتم إدراج ورقة عمل جديدة باسم «KutoolsforExcel» في المصنف الحالي، تحتوي على أسماء جميع أوراق العمل وأحجام ملفاتها بوحدة البت (Bit). راجع لقطة الشاشة:
التحقق من حجم كل ورقة عمل باستخدام Kutools لـ Excel
إذا كنت تمتلك «Kutools لـ Excel»، فيمكنك استخدام أداة «فصل المصنف» لتقسيم المصنف بأكمله إلى ملفات منفصلة، ثم الانتقال إلى المجلد المحدد للتحقق من حجم كل ملف.
تتضمن «Kutools لـ Excel» أكثر من 300 أداة مفيدة لبرنامج Excel. جرّبها مجانًا دون أي قيود لمدة 30 يومًا.احصل عليها الآن.
بعد تثبيت Kutools لـ Excel، اتبع الخطوات التالية:
1. افتح المصنف الذي تريد التحقق من حجم كل ورقة عمل فيه، ثم انقر فوق «KUTOOLS PLUS» > «Workbook» > «فصل المصنف».
2. في مربع حialog «فصل المصنف»، اختر جميع أوراق العمل، ثم انقر على زر «Split»، وحدد مجلدًا لحفظ ملفات أوراق العمل الجديدة. راجع لقطات الشاشة:
 |
 |
 |
3. بعد ذلك، سيتم حفظ كل ورقة عمل من مصنفك الحالي كملف Excel منفصل، ويمكنك الانتقال إلى المجلد المحدد للتحقق من حجم كل ملف.
لمعرفة المزيد حول ميزة فصل المصنف هذه.
مقالات ذات صلة:
كيف يمكن تقسيم مصنف إلى ملفات Excel منفصلة في Excel؟
كيف يمكن تصدير وحفظ الأوراق وأوراق العمل كملفات ورقة عمل جديدة في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل