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

موضوع: ماکرویی جهت کپی گرفتن اطلاعات یک سلول در شیت های مختلف

  1. #1


    آخرین بازدید
    2022/03/22
    تاریخ عضویت
    December 2013
    نوشته ها
    120
    امتیاز
    29
    سپاس
    99
    سپاس شده
    28 در 23 پست
    سطح اکسل
    5.00 %

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

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

  2.  

  3. #2


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,475
    امتیاز
    12316
    سپاس
    8,923
    سپاس شده
    10,587 در 3,746 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط ali65e نمایش پست ها
    سلام مجدد خدمت دوستان و اساتید محترم
    فایل اکسلی دارم که دارای شیت های متغیر است (تعداد و نام شیت ها متغیر است).دوستان عزیز جسارتا ماکرویی می خواستم که بشود با آن ماکرو، اطلاعات سلول a1 را از همه ی شیت های موجود کپی کند و در ستون b پیست کند.
    سلام دوست عزيز
    اگر در كدهايي كه دادم خدمتتون دقت كنيد ميبينين جواب اين سوالتون رو هم قبلا دادم

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2022/03/22
    تاریخ عضویت
    December 2013
    نوشته ها
    120
    امتیاز
    29
    سپاس
    99
    سپاس شده
    28 در 23 پست
    سطح اکسل
    5.00 %

    کد:
    Sub sheetnaming()
    Sheets("Sheet2").Select
    c = Range("I11").Value
    For e = 2 To c + 1
        Name = Range("G" & e).Value
        Sheets("Sheet20").Select
        Sheets("Sheet20").Copy After:=Sheets(Worksheets.Count)
        ActiveSheet.Name = Name
        ActiveSheet.Range("a1") = Name
        Sheets("Sheet2").Select
        ActiveSheet.Hyperlinks.Add Anchor:=Range("G" & e), Address:="", SubAddress:=Name & "!A1", TextToDisplay:=Name
    
    
        Range("G2:G40").Select
        With Selection.Font
            .Name = "B Nazanin"
            .Strikethrough = False
            .Superscript = False
            .Subscript = False
            .OutlineFont = False
            .Shadow = False
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With
        Selection.Font.Underline = xlUnderlineStyleNone
        With Selection.Font
            .Color = -10477568
            .TintAndShade = 0
        End With
        With Selection.Font
            .Color = -10477568
            .TintAndShade = 0
        End With
    Next e
    End Sub
    ویرایش توسط ali65e : 2013/12/26 در ساعت 20:01

  6. سپاس ها (1)


  7. #4


    آخرین بازدید
    2022/03/22
    تاریخ عضویت
    December 2013
    نوشته ها
    120
    امتیاز
    29
    سپاس
    99
    سپاس شده
    28 در 23 پست
    سطح اکسل
    5.00 %

    حالا امیر جان میخوام از یکی از سلول ها (مثلا سلول a1) شیت هایی که این ماکرو ایجاد می کند کپی گرفته شه و سپس اطلاعات کپی گرفته شده در ستون b پیست بشند.
    لطفا vba ای که زحمت می کشید می نویسید در یک vba جدا ا از این ماکرویی که خدمتتون گذاشتم باشه.(چون زمان اجرای این ماکرو فرق دارد و باید جداگانه اجرا شود.)
    ویرایش توسط ali65e : 2013/12/26 در ساعت 20:58

  8. #5


    آخرین بازدید
    یک دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,475
    امتیاز
    12316
    سپاس
    8,923
    سپاس شده
    10,587 در 3,746 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط ali65e نمایش پست ها
    حالا امیر جان میخوام از یکی از سلول ها (مثلا سلول a1) شیت هایی که این ماکرو ایجاد می کند کپی گرفته شه و سپس اطلاعات کپی گرفته شده در ستون b پیست بشند.
    لطفا vba ای که زحمت می کشید می نویسید در یک vba جدا ا از این ماکرویی که خدمتتون گذاشتم باشه.(چون زمان اجرای این ماکرو فرق دارد و باید جداگانه اجرا شود.)

    خدمت شما دوست عزيز

    کد:
    Sub naming()
    Sheets("Sheet1").Select
    Dim names(100)  As String
    For e = 0 To Worksheets.Count - 2
        ActiveSheet.Next.Select
        names(e) = ActiveSheet.name
    Next e
    Sheets("Sheet1").Select
    For e = 0 To Worksheets.Count - 2
        Range("B" & e + 1).Value = names(e)
    Next e
    End Sub

  9. سپاس ها (2)



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

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

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

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

  1. راهنمایی ؟ کپی کردن خودکار از یک شیت به شیت دیگردر اکسل؟
    توسط zareeijavad در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 12
    آخرين نوشته: 2020/10/09, 19:28
  2. انتخاب یک سلول و کپی شدن سطر متناظر آن به شیت های دیگر
    توسط Javid Mokhtari در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2019/06/26, 20:45
  3. کپی پیست از یک شیت به شیت دیگر
    توسط aseman در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/07/01, 12:02
  4. کمک ( کپی کردن شیت از یه فایل به فایل دیگه )
    توسط babakk در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/06/20, 12:20
  5. ( سوال ) کپی کردن یک ردیف در تمام شیت ها
    توسط babakk در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/06/13, 22:49

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

اطلاعات از شیت های مختلف اکسل

ماکروی کپی سلول

کد کپی متغیردر اکسل

دریافت اطلاعات از شیت های مختلف اکسل

کپی کردن سلول از فایل دیگر توسط ماکرو

گپی گرفتن از اکسل

گرفتن اطلاعات از شیت در اکسل

ماکروی کپی اطلاعات در اکسل

گرفتن اطلاعات سلول اکسل از فایل

ایجاد حلقه در ماکرو اکسل

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

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

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

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