معرفة حجم كل ورقة داخل المصنف

كود vba لمعرفة حجم كل ورقة داخل المصنف

يمكنك من خلال كود فيجوال بيسك للتطبيقات معرة حجم ( مساحه ) كل ورقة من أوراق العمل داخل المصنف

الخطوات

1. اضغط على ALT + F11
2. على يسار نافذة المحرر
3. اضغط كليك يمين
4. اختر Insert Module
5. اكتب الشفرة البرمجية التالية
6. ثم قم بربطها بزر أو شكل داخل اى ورقة عمل

'https://elshriefacademy.blogspot.com

Sub WorksheetSizes()
Dim  xWs As  Worksheet
Dim  Rng As  Range
Dim  xOutWs As  Worksheet
Dim  xOutFile As String 
Dim  xOutName As String 
xOutName = "SIZE_EXCEL"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next 
Application.DisplayAlerts = span style=" color: #1919f1;font-weight: bold;">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("Name-sheet", "Size-sheet")
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

سيقوم الكود بإنشاء ورقة جديدة تسمي (SIZE_EXCEL) بها عمودين
الأول باسم كل ورقة عمل (Name-sheet)
الثاني حجم ( مساحة ) كل ورقة عمل (Size-sheet)

لتحميل النموذج أو الأكواد

Download ⇊