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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • karbar

    • 2011/08/20
    • 37
    • 26.00
    #1

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

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

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

    فرمولي مي خواهم كه از تكرار اين تغيير دادن زياد جلو گيري شود
    با تشكر
    برچسب ها: هیچ‌کدام
    • s.cheraghi

      • 2011/02/27
      • 311
      #2
      RE: آوردن از چندين شيت در يك شيت

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

      http://s3.picofile.com/file/7363949351/training.xlsm.html
      در یادگیری سیر نشوید :idea:

      برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
      برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
      [URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL]

        کامنت

        • Javid Mokhtari
          مدير تالار ويژوال بيسيك

          • 2012/01/16
          • 1212
          • 73.00
          #3
          RE: آوردن از چندين شيت در يك شيت

          با سلام.
          فایل نمونه لطفاً.%
          [FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
          بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان

          شرکت در دوره:
          [/FONT][/SIZE]
          [SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
          [/B][/FONT][/SIZE]
          [/CENTER]
          [/INDENT]
          [/FONT]

            کامنت

            • karbar

              • 2011/08/20
              • 37
              • 26.00
              #4
              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

                کامنت

                • s.cheraghi

                  • 2011/02/27
                  • 311
                  #5
                  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

                  در صورت سوال در خدمت هستم
                  در یادگیری سیر نشوید :idea:

                  برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
                  برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
                  [URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL]

                    کامنت

                    • karbar

                      • 2011/08/20
                      • 37
                      • 26.00
                      #6
                      RE: آوردن از چندين شيت در يك شيت

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

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

                        کامنت

                        • s.cheraghi

                          • 2011/02/27
                          • 311
                          #7
                          RE: آوردن از چندين شيت در يك شيت

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

                          برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
                          برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
                          [URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL]

                            کامنت

                            • karbar

                              • 2011/08/20
                              • 37
                              • 26.00
                              #8
                              RE: آوردن از چندين شيت در يك شيت

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

                                کامنت

                                • s.cheraghi

                                  • 2011/02/27
                                  • 311
                                  #9
                                  RE: آوردن از چندين شيت در يك شيت

                                  با سلام

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

                                  report
                                  در یادگیری سیر نشوید :idea:

                                  برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
                                  برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
                                  [URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL]

                                    کامنت

                                    • karbar

                                      • 2011/08/20
                                      • 37
                                      • 26.00
                                      #10
                                      RE: آوردن از چندين شيت در يك شيت

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

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

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

                                        کامنت

                                        • s.cheraghi

                                          • 2011/02/27
                                          • 311
                                          #11
                                          RE: آوردن از چندين شيت در يك شيت

                                          لینک اصلاحی

                                          Report
                                          در یادگیری سیر نشوید :idea:

                                          برای ارتباط بیشتر به [URL="https://excelpedia.net/"]سایت[/URL] [URL="https://excelpedia.net"][B][COLOR=#008000]ExcelPedia [/COLOR][/B][/URL]سربزنید.
                                          برگزاری [URL="https://excelpedia.net/excel-ninja/"]دوره های آموزش[/URL] [URL="https://excelpedia.net/what-is-excel/"][B]اکسل [/B][/URL]در تهران
                                          [URL="https://excelpedia.net/category/excel-functions/"][B]آموزش توابع اکسل[/B][/URL]

                                            کامنت

                                            قبلی template بعدی
                                            چند لحظه..