صفحه 1 از 2 12 آخرینآخرین
نمایش نتایج: از شماره 1 تا 10 , از مجموع 11

موضوع: آوردن از چندين شيت در يك شيت

  1. #1


    آخرین بازدید
    2023/09/17
    تاریخ عضویت
    August 2011
    نوشته ها
    37
    امتیاز
    3
    سپاس
    14
    سپاس شده
    3 در 2 پست
    سطح اکسل
    26.00 %

    آوردن از چندين شيت در يك شيت

    يك فايل اكسل دارم كه در چندين شيت (مثلا بالاي 100 شيت) در هر شيت مشخصات يك نفر مثلا نام و نام خانوادگي و ... وجود دارد
    فرمولي مي خواهم كه در يك شيت همه اينها كنار هم بيايد

    ضمنا اگر مثلا با استفاده از مثلا ='sheet1'!F6 بخواهم از شيت ها كپي كنم
    بايد بيش از صد مرتبه در اين عبارت هم شماره شيت را تغيير دهم و هم شماره سلول را

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

  2.  

  3. #2


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: آوردن از چندين شيت در يك شيت

    سلام
    ی فایل براتون فرستادم
    با VB نوشتم
    اگه منظورتون همینه فایلتون برام بفرستین تا کدش براتون کامل کنم

    http://s3.picofile.com/file/7363949351/training.xlsm.html

  4. #3


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

    Javid Mokhtari به Yahoo ارسال پیام

    RE: آوردن از چندين شيت در يك شيت

    با سلام.
    فایل نمونه لطفاً.%

  5. #4


    آخرین بازدید
    2023/09/17
    تاریخ عضویت
    August 2011
    نوشته ها
    37
    امتیاز
    3
    سپاس
    14
    سپاس شده
    3 در 2 پست
    سطح اکسل
    26.00 %

    RE: آوردن از چندين شيت در يك شيت

    دوستان ضمن تشکر از لطف شما
    جواب من در پاسخ s.cheraghi موجود بود که برای فایل مورد نظر تغییرش دادم و حالا سوالم اینست که در ماکرو زیر چطور میتونیم 10 خط مشابه رو با یک شرط بنویسیم که از تکرار این خطوط هم جلوگیری بشه؟
    Sub assas()
    For i = 2 To Application.Sheets.Count

    Sheets("sheet1").Range("a1").Offset(i - 1, 0) = i

    Sheets("sheet1").Range("b1").Offset(i - 1, 0) = Sheets(i).Range("a1").Value
    Sheets("sheet1").Range("b1").Offset(i - 1, 1) = Sheets(i).Range("b1").Value
    Sheets("sheet1").Range("b1").Offset(i - 1, 2) = Sheets(i).Range("c1").Value
    Sheets("sheet1").Range("b1").Offset(i - 1, 3) = Sheets(i).Range("d1").Value
    Sheets("sheet1").Range("b1").Offset(i - 1, 4) = Sheets(i).Range("e1").Value
    Sheets("sheet1").Range("b1").Offset(i - 1, 5) = Sheets(i).Range("f1").Value
    Sheets("sheet1").Range("b1").Offset(i - 1, 6) = Sheets(i).Range("g1").Value
    Sheets("sheet1").Range("b1").Offset(i - 1, 7) = Sheets(i).Range("h1").Value
    Sheets("sheet1").Range("b1").Offset(i - 1, 8) = Sheets(i).Range("i1").Value
    Sheets("sheet1").Range("b1").Offset(i - 1, 9) = Sheets(i).Range("j1").Value

    Next i
    End Sub

  6. #5


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: آوردن از چندين شيت در يك شيت

    با سلام
    لازم به ذکر است هدف از کاهش تعداد سطرهای نوشته شده متعدد می باشد:
    1- کاهش زمان اجرای برنامه
    2- افزایش خوانایی و درک بهتر کدهای نوشته شده

    کاهش تعداد سطرهای نوشته شده در هر کد الزاما پیچیدگی زمان حل برنامه را به اندازه چشمگیر کاهش نمی دهد
    عواملی که باعث افزایش پیچیدگی زمانی در برنامه ها می شود، حلقه هایی مثل For،While... می باشد.
    که در صورت کاهش این حلقه ها کمک شایانی در کاهش زمان مصرف شده خواهد شد

    اما تلاتش جهت تبدیل چندین سطر به سطرهای کمتر جهت یادگیری بسیار مفید می باشد.

    هدف کد شما این بوده که سطرهای اول در Sheet های دیگر را در Sheet1 و در جلوی شماره نوشته شده در Sheet1 بنویسید
    جهت کاهش کد شما از لحاظ اندازه می توان از کد زیر استفاده کرد:


    Sub saman()

    Sheet1.Cells.ClearContents
    For i = 2 To Application.Sheets.Count

    Sheet1.Range("a1").Offset(i - 1, 0) = i
    Sheets(i).UsedRange.Copy Destination:=Sheet1.Range("b1").Offset(i - 1, 0)

    Next i

    End Sub

    در صورت سوال در خدمت هستم

  7. #6


    آخرین بازدید
    2023/09/17
    تاریخ عضویت
    August 2011
    نوشته ها
    37
    امتیاز
    3
    سپاس
    14
    سپاس شده
    3 در 2 پست
    سطح اکسل
    26.00 %

    RE: آوردن از چندين شيت در يك شيت

    ضمن تشكر از شما
    نمونه فايل مورد نظر:
    http://hamandishinews.com/links/artforms-2012-04-28-macro.xls
    مي خواهيم محتواي ستون F5 تا F17 همه شيت ها در يك جدول بيايد

    - يك مشكل اين است كه نام شيت ها فارسي است
    - مسئله ديگر اين است كه مثلا در شيت دوم چون اطلاعاتش كامل وارد نشده، اطلاعاتش يك فيلد كمتر از شيت اول است، اما مي خواهيم محتواي هر فيلد در ستون متناظر خودش بيايد يعني محتواي همه ARTF_MULTI_JUSERNAME ها در ستون 16 بيايد

  8. #7


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: آوردن از چندين شيت در يك شيت

    با سلام
    متأسفانه لینک مورد نظر خراب می باشد
    اصلاح بفرمائید
    ممنون

  9. #8


    آخرین بازدید
    2023/09/17
    تاریخ عضویت
    August 2011
    نوشته ها
    37
    امتیاز
    3
    سپاس
    14
    سپاس شده
    3 در 2 پست
    سطح اکسل
    26.00 %

    RE: آوردن از چندين شيت در يك شيت

    نقل قول نوشته اصلی توسط s.cheraghi
    متأسفانه لینک مورد نظر ---اب می باشد
    همان لينك اصلاح شد
    با تشكر

  10. #9


    محصولات کاربر

    یوزرفرم پیشرفته
    آخرین بازدید
    2018/06/18
    تاریخ عضویت
    February 2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1448
    سپاس
    129
    سپاس شده
    560 در 159 پست
    تعیین سطح نشده است

    s.cheraghi به Yahoo ارسال پیام

    RE: آوردن از چندين شيت در يك شيت

    با سلام

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

    report

  11. #10


    آخرین بازدید
    2023/09/17
    تاریخ عضویت
    August 2011
    نوشته ها
    37
    امتیاز
    3
    سپاس
    14
    سپاس شده
    3 در 2 پست
    سطح اکسل
    26.00 %

    RE: آوردن از چندين شيت در يك شيت

    نقل قول نوشته اصلی توسط s.cheraghi
    با سلام

    یک فایل براتون درست کردم

    report
    فايل با حجم صفر بايت دانلود ميشود


صفحه 1 از 2 12 آخرینآخرین

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

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

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

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

  1. استفاده از سلولهاي يك شيت در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 11
    آخرين نوشته: 2019/04/09, 22:37
  2. پيدا كردن تكراري هاي يك ستون و هايلايت كردن انها و كپي در شيت جداگانه و همچنين كپي گز
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2015/05/07, 13:18
  3. كپي داده هاي چند سل از چند شيت در يك شيت خاص
    توسط rezahagh در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2013/05/19, 00:27
  4. چگونگي پرينت افقي و عمودي پشت سرهم در يك شيت
    توسط hamidreza313 در انجمن گرافیک، نمودار و تنظیمات - Graphics, Charts and Settings
    پاسخ ها: 2
    آخرين نوشته: 2012/12/14, 23:59
  5. جستجو در يك شيت ونمايش در شيت ديگر
    توسط homai در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 2011/02/13, 14:42

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

آوردن از چندين شيت در يك شيت

کپی کردن محتوای تمام شیت های اکسل در یک شیت

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

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

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