پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: چگونه بدست اوردن حجم هر شیت در یک WORKBOOK ؟

  1. #1


    آخرین بازدید
    28 _ 12 _ 2015
    تاریخ عضویت
    July_2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    853
    سپاس
    666
    سپاس شده
    1,345 در 369 پست

    فرستادن پیام با Skype به Nima

    چگونه بدست اوردن حجم هر شیت در یک WORKBOOK ؟

    با سلام

    کسی از دوستان میتونه کمک کنه چه طوری میشه حجم هر شیت رو در فایل اکسل بدست اورد
    مثلا من یه فایل دارم 10 تا شیت داره می خوام حجم هر شیت رو به تنهائی داشته باشم...


    با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    01 _ 11 _ 2016
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    91
    سپاس
    0
    سپاس شده
    102 در 44 پست

    RE: چگونه بدست اوردن حجم هر شیت در یک WORKBOOK ؟

    سلام دوست عزیز یک سری راه پیشنهادی در این فروم هست که ممکته به دردت بخوره! اما به طور کلی راه خاصی به صورت روتین وجود نداره!
    http://www.excelforum.com/excel-programming-vba-macros/711768-macro-to-determine-size-of-each-tab-in-workbook.html

    و همچنین یک قمست این مطلب دیده می شود که من فقط ترجمه می کنم.
    Each worksheet is embedded within the Excel workbook partly as executable directives, partly as constants, variables, and other objects. Excel also pads the worksheet buffer area based on its best guess of your future needs. Given all this, there is no built in function nor a macro that could be created outside of Excel to accurately tell you how much space the worksheet occupies on the disk.
    "هر worksheet به صورت ترکیبی از متغیر ها، ثابت ها، شی ها و موارد اجرایی در یک workbook ترکیب شده است. اکسل همچنین یک مقدار حافظه بافر رو برای نیاز احتمالی آینده ی worksheet ذخیره میکنه! با توجه به این موارد هیچ ماژول خاصی یا ماکرو برای محاسبه اندازه دقیق یک work شیت موحود نمی باشد. "

    با این حال روش هایی نیز وجود دارد.

    یک روش این است که یک WORKBOOK دیگر به وسیله vba تولید کرده و شیت مورد نظر رو در آن کپی کنید و WORKBOOK را ذخیره کنید. سپس با استفاده از vba قادر خواهید بود که اندازه فایل EXCEL تولید شده رو محاسبه کنید. لزوما این یک روش دقیق نیست.

    روش های دیگری نیز وحود دارد که همه به همین اندازه روش اول و یا بیشتر پیچیدگی دارد.

  5. #3


    آخرین بازدید
    28 _ 12 _ 2015
    تاریخ عضویت
    July_2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    853
    سپاس
    666
    سپاس شده
    1,345 در 369 پست

    فرستادن پیام با Skype به Nima

    RE: چگونه بدست اوردن حجم هر شیت در یک WORKBOOK ؟

    با تشکر از شما دوست عزیز

    من یه ماژول پیدا کردم که حجم هر شیت موجود در یک ورک بوک رو تو یه شیت دیگه نشون میده اما اینکه چقدر دقیق هست رو نمی دونم:

    Sub WorksheetSizes()
    Dim wks As Worksheet
    Dim c As Range
    Dim sFullFile As String
    Dim sReport As String
    Dim sWBName As String

    sReport = "Size Report"
    sWBName = "Erase Me.xls"
    sFullFile = ThisWorkbook.Path & _
    Application.PathSeparator & sWBName

    ' Add new worksheet to record sizes
    On Error Resume Next
    Set wks = Worksheets(sReport)
    If wks Is Nothing Then
    With ThisWorkbook.Worksheets.Add(Before:=Worksheets(1))
    .Name = sReport
    .Range("A1").Value = "Worksheet Name"
    .Range("B1").Value = "Approximate Size"
    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

    Application.ScreenUpdating = False
    ' Loop through worksheets
    For Each wks In ActiveWorkbook.Worksheets
    If wks.Name <> sReport Then
    wks.Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs sFullFile
    ActiveWorkbook.Close SaveChanges:=False
    Application.DisplayAlerts = True
    c.Offset(0, 0).Value = wks.Name
    c.Offset(0, 1).Value = FileLen(sFullFile)
    Set c = c.Offset(1, 0)
    Kill sFullFile
    End If
    Next wks
    Application.ScreenUpdating = True
    End Sub


  6. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. آیا کدی برای Share Workbook وجود دارد
    توسط hajihadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 13 _ 03 _ 2013, 17:39
  2. protect workbook
    توسط payam در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 31 _ 12 _ 2012, 18:32
  3. تبدیل web page به workbook
    توسط ABEDIIART در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 14 _ 12 _ 2012, 22:09
  4. انتقال متن یک شیت به فایل تکست
    توسط shamsololama در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 18
    آخرين نوشته: 14 _ 08 _ 2012, 09:31
  5. بدست آوردن نهایت امنیت در اکسل ؟؟!!
    توسط dez.fuli در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 05 _ 05 _ 2012, 11:32

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد