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

موضوع: ادغام چند شیت

  1. #1

    آخرین بازدید
    2016/06/01
    تاریخ عضویت
    May 2016
    نوشته ها
    2
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    Question ادغام چند شیت

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

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام


    ماکرو ذیل را تست بفرمایید.
    تمامی اظلاعات شیتهای دیگر در شیت data کپی میگردد.

    کد PHP:
    Sub test()

    Application.ScreenUpdating False

    For Each Sheet In Worksheets

    If Sheet.Name <> "data" Then

    Sheet
    .Select

    ActiveSheet
    .UsedRange.Copy

    Sheets
    ("Data").Select

    Z1 
    Sheets("Data").Cells(Sheets("Data").Rows.Count"A").End(xlUp).Row 1

    Range
    ("A" Z1).Select

    ActiveSheet
    .Paste


    End 
    If

    Next

    Application
    .ScreenUpdating True

    Range
    ("A1").Select

    MsgBox 
    " Copy Finished."

    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط iranweld : 2016/05/30 در ساعت 11:50

  4. سپاس ها (2)


  5. #3

    آخرین بازدید
    2016/06/01
    تاریخ عضویت
    May 2016
    نوشته ها
    2
    امتیاز
    10
    سپاس
    1
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    سپاس از راهنمایتان
    ممنون میشم نحوه اجرای ماکرو را توضیح دهید.

  6. #4

    آخرین بازدید
    2017/01/03
    تاریخ عضویت
    May 2016
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    با سلام اتفاقا بنده نيز با چنين مشكلي مواجهم و نياز دارم اطلاعات چند شيت را در يك شيت جمع كنم ولي نحوه اجراي ماكرو را نمي دانم در صورت امكان كاربر حرفه اي عزيز پاسخ دهند با تشكر

  7. #5


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    در فایل خود یک شیت جدید اضافه کنید و نام آنرا به data تغییر دهید

    از منوی Developer و گزینه view code یک Module اضافه کنید و در داخل این ماژول کدهای ذیل را اضافه کنید

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  2.png
مشاهده: 11
حجم:  224.0 کیلو بایت


    در صورتیکه آیتم developer را در منوی خود ندارید مراحل تصویر پیوست را انجام دهید

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  3.png
مشاهده: 9
حجم:  303.5 کیلو بایت


    کد PHP:
    Sub test()

    Application.ScreenUpdating False

    For Each Sheet In Worksheets

    If Sheet.Name <> "data" Then

    Sheet
    .Select

    ActiveSheet
    .UsedRange.Copy

    Sheets
    ("Data").Select

    z1 
    ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row 1

    Range
    ("A" z1).Select

    ActiveSheet
    .Paste


    End 
    If

    Next

    Application
    .ScreenUpdating True

    Range
    ("A1").Select

    MsgBox 
    " Copy Finished."

    End Sub 


    در شیت data با توجه به تصویر پیوست یک باتن اضافه کنید و ماکرو test را به آن اختصاص دهید


    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  1.png
مشاهده: 9
حجم:  211.7 کیلو بایت



    حال با کلیک بر روی باتن فوق ماکرو اجرا شده و محتویات شیت های دیگر را در این شیت کپی مینماید
    ویرایش توسط iranweld : 2016/06/08 در ساعت 12:28

  8. سپاس ها (2)



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

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

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

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

  1. پاسخ ها: 6
    آخرين نوشته: 2016/05/24, 11:54
  2. کپی از یک شیت به شیت دیگر بدون رویت شیت دوم
    توسط khorasan66 در انجمن خطاها در ويژوال بيسيك - Errors in VBA
    پاسخ ها: 3
    آخرين نوشته: 2015/03/04, 22:16

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

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

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

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

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

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