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

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

  1. #1


    آخرین بازدید
    07 _ 12 _ 2014
    تاریخ عضویت
    August_2011
    نوشته ها
    27
    امتیاز
    0
    سپاس
    8
    سپاس شده
    0 در 0 پست

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

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

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

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

  2.  

  3. #2


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

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

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

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

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

  4. #3


    آخرین بازدید
    10 ساعت پیش
    تاریخ عضویت
    January_2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,201
    امتیاز
    2523
    سپاس
    1,401
    سپاس شده
    1,979 در 632 پست

    jansiz hayat به Yahoo ارسال پیام

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

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

  5. #4


    آخرین بازدید
    07 _ 12 _ 2014
    تاریخ عضویت
    August_2011
    نوشته ها
    27
    امتیاز
    0
    سپاس
    8
    سپاس شده
    0 در 0 پست

    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


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

    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


    آخرین بازدید
    07 _ 12 _ 2014
    تاریخ عضویت
    August_2011
    نوشته ها
    27
    امتیاز
    0
    سپاس
    8
    سپاس شده
    0 در 0 پست

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

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

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

  8. #7


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

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

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

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

  9. #8


    آخرین بازدید
    07 _ 12 _ 2014
    تاریخ عضویت
    August_2011
    نوشته ها
    27
    امتیاز
    0
    سپاس
    8
    سپاس شده
    0 در 0 پست

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

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

  10. #9


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

    یوزرفرم پیشرفته
    آخرین بازدید
    2 هفته پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    تهران
    نوشته ها
    311
    امتیاز
    1438
    سپاس
    129
    سپاس شده
    550 در 155 پست

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

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

    با سلام

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

    report

  11. #10


    آخرین بازدید
    07 _ 12 _ 2014
    تاریخ عضویت
    August_2011
    نوشته ها
    27
    امتیاز
    0
    سپاس
    8
    سپاس شده
    0 در 0 پست

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

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

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

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


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

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

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

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

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

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

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

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

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

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

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