كيف تتحقق من حجم كل ورقة عمل من المصنف؟
لنفترض أن لديك مصنفًا كبيرًا يحتوي على أوراق عمل متعددة ، والآن ، تريد معرفة حجم كل ورقة عمل لتحديد الورقة التي يجب تصغيرها. هل هناك طرق سريعة للتعامل مع هذه المهمة؟
تحقق من حجم كل ورقة عمل برمز VBA
تحقق من حجم كل ورقة عمل باستخدام Kutools for Excel
تحقق من حجم كل ورقة عمل برمز 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 مفتاح لتنفيذ هذا الرمز ، وورقة عمل جديدة باسم كوتولسفورإكسيل سيتم إدراجها في المصنف الحالي الذي يحتوي على كل اسم ورقة عمل وحجم الملف ، والوحدة هي بت. انظر لقطة الشاشة:
تحقق من حجم كل ورقة عمل باستخدام Kutools for Excel
إذا كان لديك كوتولس ل إكسيل، بما لديها انقسام وركبوك يمكنك تقسيم المصنف بأكمله إلى ملفات منفصلة ، ثم الانتقال إلى المجلد المحدد للتحقق من حجم كل ملف.
كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن.
بعد تثبيت Kutools for Excel ، قم بالخطوات التالية:
1. افتح المصنف الذي تريد التحقق من حجم كل ورقة عمل به ، وانقر فوق مشروع > أدوات المصنف > انقسام وركبوك، انظر لقطة الشاشة:
2. في انقسام وركبوك مربع الحوار ، تحقق من جميع أوراق العمل وانقر الانقسام زر ، ثم حدد مجلد لوضع ملفات المصنف الجديدة. انظر لقطات الشاشة:
3. وبعد ذلك سيتم حفظ كل ورقة عمل من مصنفك الحالي كملف Excel منفصل ، يمكنك الانتقال إلى المجلد المحدد للتحقق من حجم كل مصنف.
لمعرفة المزيد حول ميزة Split Workbook هذه.
مقالات ذات صلة:
كيفية تقسيم مصنف لفصل ملفات Excel في Excel؟
كيفية تصدير وحفظ الأوراق وأوراق العمل كمصنف جديد في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!