ایجاد ماکرو جهت اعمال تغییرات تکرای بر روی قالب جدول

[mahvar01]

سلام دوستان
توی یک شیت بیش از 2000 جدول دارم که می خوام با ایجاد یک ماکرو استایل تمام جداول را بصورت یکسال تغییر دهم.
آیا با استفاده از ماکرو می توان این کار رو انجام داد؟



بطور نمونه:

می خوام با قرار گرفتن توی سلول B5 و اجرای ماکرو تغییرات مورد نظر بر روی جدول 1 و جدول 2 اعمال شود.
و همچنین دفعه بعد با قرار گرفتن در سلول B21 و اجرای ماکرو جدول 3 و 4 تغییر یابد و همین طور دفعه بعد از سلول B37

تغییراتی که می خوام روی استایل جداول اعمال شود جهت تنظیم خطوط دورادور جداول می باشد که هدف نهایی رو در شیت 2 می تونید ببیند.

فایل پیوستی: test02

آیا راه حلی برای اینکه با استفاده از ماکرو وجود داره یا خیر؟

با تشکر

[khakzad]

سلام
بله راه وجود داره
اصولا برای انجام کارهای تکراری از ضبط ماکرو استفاده می کنیم
بهترین راه اینه که یک نمونه جدول با استایل مورد نظر اماده کنید
بعد با ضبط ماکرو، فرمت رو انتقال بدید
بعد می تونید کد ها رو ببینید و ویرایش کنید

[khakzad]

من به این شکل یک ماکروی ضبط شده رو ویرایش کردم

Sub Macro1()

    Selection.Copy
    Sheet2.Activate
    j = 2
  30  For i = 0 To 12
        Cells(5 + (16 * i), j).Select
        Selection.PasteSpecial Paste:=xlPasteFormats
    Next i
    If j = 8 Then Exit Sub
    j = 8
    GoTo 30
End Sub

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

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

سوالی بود در خدمتم
موفق باشید

[mahvar01]

ممنون از راهنمایی خوب تون.