VBA حجم كل شيت فى الاكسل

[عصام مسعد]

سؤال - عن معرفه حجم كل شيت فى ملف الاكسل عن طريق اكواد VBA 

KB + MB

مع الشكر

تم تعديل ديسمبر 20, 2015 بواسطه essammosaad
توضيح اكثر للسؤال

[مختار حسين محمود]

أهلا بك أستاذ عصام فى أوفيسنا .

جرب الكود التالى

Sub WorksheetSizes()

    Dim C As Range, Sh As Worksheet
    Dim Wb As String, Temp As String, sReport As String
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    sReport = "حجم الأوراق"
    Wb = "mokhtar.xlsx"
    Temp = ThisWorkbook.Path & Application.PathSeparator & Wb
    
    On Error Resume Next
        
    Set Sh = Worksheets(sReport)
    If Sh Is Nothing Then
        With ThisWorkbook.Worksheets.Add(Before:=Worksheets(1))
            .Name = sReport
            .Range("A1").Value = "اسم الشيت"
            .Range("B1").Value = "الحجم بالبايت تقريباً"
        End With
    End If
    On Error GoTo 0
    
    With ThisWorkbook.Worksheets(sReport)
        .Select
        .Range("A1").CurrentRegion.Offset(1, 0).ClearContents
        Set C = .Range("A2")
    End With
         
    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.Name <> sReport Then
            Sh.Copy
            
            ActiveWorkbook.SaveAs Temp
            ActiveWorkbook.Close SaveChanges:=False
            
            C.Offset(0, 0).Value = Sh.Name
            C.Offset(0, 1).Value = FileLen(Temp)
            Set C = C.Offset(1, 0)
            Kill Temp
        End If
    Next Sh
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

 

[عصام مسعد]

  جزاك الله خير  استاذ مختار محسن 

الكود شغال الف شكر

[ياسر خليل أبو البراء]

بارك الله فيك أخي الرائع مختار

يمكن استخدام الإضافة التالية لتؤدي الغرض

بعد إدراج الإضافة سيظهر زر أمر في التبويب Home باسم Get Sheet Size

 

Get Sheets Size.rar

[محمد حسن المحمد]

23 دقائق مضت, ياسر خليل أبو البراء said:

بارك الله فيك أخي الرائع مختار

يمكن استخدام الإضافة التالية لتؤدي الغرض

بعد إدراج الإضافة سيظهر زر أمر في التبويب Home باسم Get Sheet Size

 

Get Sheets Size.rar

السلام عليكم ورحمة الله وبركاته

الحمد لله على السلامة

عوداً حميداً بمشيئة الله

أخي الحبيب ياسر أبو البراء

تقبل تحياتي العطرة

[ياسر خليل أبو البراء]

وعليكم السلام ورحمة الله وبركاته أبي الحبيب أبو يوسف

جزيت خيراً على ترحيبك الطيب .. وما غبت عنكم أبداً رغم عدم تواجدي فأنتم في القلب

تقبل وافر حبي وتقديري

[محمد حسن المحمد]

السلام عليكم ورحمة الله وبركاته

أخي الحبيب ياسر أبو البراء

دعامة كبرى وهامة من أوفيسنا لا يسد فراغها أحد مع محبتي للجميع

اشتقنا لكم بيننا حباً وعلماً وخبرة ودراية

تقبل تحياتي العطرة

[ياسر خليل أبو البراء]

أبي الحبيب أبو يوسف

هذا فقط من فرط محبتكم لي ..أما الجميع فبسم الله ما شاء الله أرى المنتدى بعد غيابي لفترة قد شكل فريقاً رائعاً ومدهشاً والجميع في حالة فريدة لم أشهدها من قبل

بارك الله فيك وجزاك الله خيراً على كلماتك الطيبة والرقيقة في حقي

 

[عصام مسعد]

ما احلى هذا الكلام  الجميل ربنا يحفظكم ويحببكم فى بعض كمان وكمان .

[محمد حسن المحمد]

1 دقيقه مضت, عصام مسعد said:

ما احلى هذا الكلام  الجميل ربنا يحفظكم ويحببكم فى بعض كمان وكمان .

السلام عليكم ورحمة الله وبركاته

أخي الكريم عصام مسعد

 

نرحب بكم في جامعتنا أوفيسنا على الرحب والسعة

أسميته جامعة لأنه يجمع القلوب والعقول

ليحدث تلك الطفرة الإيجابية في مجتمعنا العربي الفقير

 

تقبل تحياتي العطرة

[عصام مسعد]

2 دقائق مضت, محمد حسن المحمد said:

السلام عليكم ورحمة الله وبركاته

أخي الكريم عصام مسعد

 

نرحب بكم في جامعتنا أوفيسنا على الرحب والسعة

أسميته جامعة لأنه يجمع القلوب والعقول

ليحدث تلك الطفرة الإيجابية في مجتمعنا العربي الفقير

 

تقبل تحياتي العطرة

انا اسميه بيت الصدقات الجاريه . ربنا يتقبل منكم جميعا