نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: جمع مجموع شیت های مختلف در شیت آخر

  1. #1


    آخرین بازدید
    2014/11/25
    تاریخ عضویت
    June 2012
    نوشته ها
    29
    امتیاز
    3
    سپاس
    3
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    confused جمع مجموع شیت های مختلف در شیت آخر

    سلام دوستان عزیز

    یک فایل داریم حاوی تعدادی شیت نامشخص - نام هر شیت برابر است با کد یک خودرو و هر شیت حاوی یک سری از اطلاعات کارکرد این خودرو می باشد

    مشکل اینجاست که :

    اگر بخواهییم فقط و فقط نتیجه یا همون جمع کارکرد این اتوبوسها رو در شیت آخر بیاریم به چه صورت باید عمل کنیم توابع یا ابزاری در خود اکس برای اینکار ها هست ؟

    خیلی لطف میکنید اگر نه باید یکی یکی کپی و پیست کنم
    کلی از شیت ها رو بخاطر حجم پاک کردم

    شیت شیت خرداد 93.xlsm


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

  2.  

  3. #2


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,213
    امتیاز
    2633
    سپاس
    1,399
    سپاس شده
    2,089 در 665 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    با سلام.
    چون وقت نبود ، حتما صحت عمل کدها رو چک کنید و اگر درست عمل کرد اعلام کنید ...

    کد PHP:
    On Error Resume Next
    ActiveSheet
    .Range("a3:f1000000").Clear
    Application
    .ScreenUpdating False

    Dim addrs 
    As String
    Dim Resu 
    As Integer

    Resu 
    ActiveSheet.Index

    DoEvents

    For 1 To Sheets.Count
        
    If <> Resu Then
            Sheets
    (i).Range(Sheets(i).Range("a3"), Sheets(i).Range("a2").End(xlDown).Offset(04).Address).Copy
            ActiveSheet
    .Range("a1000000").End(xlUp).Offset(10).Select 
           ActiveSheet
    .Paste
            ActiveSheet
    .Range("a1000000").End(xlUp).Offset(05) = " اطلاعات مربوط به شیت  " Sheets(i).Name
        End 
    If
    Next i

    ActiveSheet
    .Range("a1000000").End(xlUp).Offset(12).Value Application.WorksheetFunction.Sum(Range("c3" ":" ActiveSheet.Range("a1000000").End(xlUp).Offset(02).Address))

    ActiveSheet.Range("a1000000").End(xlUp).Offset(13).Value Application.WorksheetFunction.Sum(Range("d3" ":" ActiveSheet.Range("a1000000").End(xlUp).Offset(03).Address))

    Application.ScreenUpdating True
    Application
    .CutCopyMode False 
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط Javid Mokhtari : 2014/08/22 در ساعت 23:08
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/





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

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

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

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

  1. پاسخ ها: 3
    آخرين نوشته: 2024/02/13, 23:24
  2. Create a summary worksheet from all worksheets (جمع کردن اطلاعات تمامی شیت ها در یک شیت)
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2016/06/15, 18:35
  3. پاسخ ها: 6
    آخرين نوشته: 2016/05/24, 11:54

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

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

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

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

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