ساخت چند کپی از کاربرگ

Question

جنیفر معمولاً وقتی اولین کاربرگ یک ورک بوک را تنظیم می کند، مجبور می شود کپی هایی از کاربرگ ها ایجاد کند و معمولاً تعداد کپی های خوبی دارد. برای مثال، برای او غیرعادی نیست که نیاز به ایجاد 20 نسخه از یک کاربرگ خاص داشته باشد. او از خود می پرسد که آیا راهی وجود دارد که بتوان به راحتی چندین کپی تهیه کرد. کلیک راست و استفاده از قابلیت جابجایی/کپی پس از مدتی خسته کننده می شود.

راهی برای استفاده از گزینه انتقال/کپی کمی کارآمدتر وجود دارد. به عنوان مثال، فرض کنید که می خواهید 20 کاربرگ از صفحه اصلی خود ایجاد کنید. می توانید این مراحل را دنبال کنید:

1. مطمئن شوید که کاربرگ شما انتخاب شده است.
2. روی برگه کاربرگ راست کلیک کنید. اکسل یک منوی زمینه را نمایش می دهد.
3. از منوی Context گزینه Move یا Copy را انتخاب کنید. اکسل کادر محاوره ای انتقال یا کپی را نمایش می دهد.
4. گزینه (حرکت به پایان) را انتخاب کنید.
5. مطمئن شوید که تیک Create a Copy انتخاب شده باشد.
6. روی OK کلیک کنید. اکنون دو کپی از کاربرگ خود دارید (اصل و کپی که درست کرده اید).
7. هر دو کاربرگ را با کلیک بر روی اولین برگه کاربرگ و نگه داشتن کلید Shift با کلیک بر روی آخرین برگه کاربرگ انتخاب کنید.
8. روی برگه های کاربرگ انتخاب شده کلیک راست کنید. اکسل یک منوی زمینه را نمایش می دهد.
9. از منوی Context گزینه Move یا Copy را انتخاب کنید. اکسل کادر محاوره ای انتقال یا کپی را نمایش می دهد.
10. گزینه (حرکت به پایان) را انتخاب کنید.
11. مطمئن شوید که تیک Create a Copy انتخاب شده باشد.
12. روی OK کلیک کنید. اکنون چهار نسخه از کاربرگ خود دارید.
13. با کلیک بر روی اولین برگه کاربرگ و نگه داشتن کلید Shift همانطور که روی آخرین برگه کاربرگ کلیک می کنید، همه کاربرگ ها را انتخاب کنید.
14. روی برگه های کاربرگ انتخاب شده کلیک راست کنید. اکسل یک منوی زمینه را نمایش می دهد.
15. از منوی Context گزینه Move یا Copy را انتخاب کنید. اکسل کادر محاوره ای انتقال یا کپی را نمایش می دهد.
16. گزینه (حرکت به پایان) را انتخاب کنید.
17. مطمئن شوید که تیک Create a Copy انتخاب شده باشد.
18. روی OK کلیک کنید. اکنون هشت نسخه از کاربرگ خود دارید.
19. با کلیک بر روی اولین برگه کاربرگ و نگه داشتن کلید Shift همانطور که روی آخرین برگه کاربرگ کلیک می کنید، همه کاربرگ ها را انتخاب کنید.
20. روی برگه های کاربرگ انتخاب شده کلیک راست کنید. اکسل یک منوی زمینه را نمایش می دهد.
21. از منوی Context گزینه Move یا Copy را انتخاب کنید. اکسل کادر محاوره ای انتقال یا کپی را نمایش می دهد.
22. گزینه (حرکت به پایان) را انتخاب کنید.
23. مطمئن شوید که تیک Create a Copy انتخاب شده باشد.
24. روی OK کلیک کنید. اکنون 16 نسخه از کاربرگ خود دارید.
25. با کلیک بر روی اولین برگه کاربرگ و نگه داشتن کلید Shift با کلیک بر روی برگه چهارم، چهار کاربرگ خود را انتخاب کنید.
26. روی برگه های کاربرگ انتخاب شده کلیک راست کنید. اکسل یک منوی زمینه را نمایش می دهد.
27. از منوی Context گزینه Move یا Copy را انتخاب کنید. اکسل کادر محاوره ای انتقال یا کپی را نمایش می دهد.
28. گزینه (حرکت به پایان) را انتخاب کنید.
29. مطمئن شوید که تیک Create a Copy انتخاب شده باشد.
30. روی OK کلیک کنید. اکنون 20 نسخه از کاربرگ خود دارید.

ممکن است مراحل زیادی به نظر برسد، اما واقعاً اینطور نیست - تمام کاری که انجام داده اید این است که به جای 20 بار، پنج بار از ویژگی جابجایی/کپی استفاده کنید تا به تعداد مورد نظر کاربرگ برسید. با این حال، یک اخطار در مورد این رویکرد وجود دارد - اگر کاربرگی که در حال کپی کردن آن هستید، دارای جدول های تعریف شده باشد، نمی توانید مرحله 8 را پشت سر بگذارید. وقتی مرحله 9 را امتحان می کنید، پیامی دریافت می کنید که می گوید نمی توانید کپی کنید یا گروهی از کاربرگ ها را زمانی که هر یک از آنها حاوی جدول هستند، جابجا کنید. (شما می توانید یک کاربرگ شامل یک جدول را کپی یا جابجا کنید، نه گروهی از آنها.)

میانبر دیگری وجود دارد که می توانید از آن استفاده کنید، و شامل استفاده از کادر محاوره ای Move یا Copy نمی شود. تنها کاری که باید انجام دهید این است که کاربرگی را که می خواهید کپی کنید انتخاب کنید و نام کاربرگ (در برگه کاربرگ) را به سمت راست بکشید. یک نماد کوچک "سند" در کنار نشانگر ماوس ظاهر می شود. در این مرحله کلید Ctrl را فشار دهید و یک علامت مثبت در داخل آیکون ظاهر می شود. وقتی دکمه ماوس را رها می کنید، صفحه کار کپی می شود. همچنین می توانید گروه هایی از کاربرگ ها را به این روش کپی کنید، مگر اینکه دوباره جداول تعریف شده ای در کاربرگ های گروه وجود داشته باشد.

گزینه دیگری برای کپی کردن کاربرگ خود این است که موارد زیر را انجام دهید:

1. به دلخواه کاربرگ "مستر" خود را ایجاد کنید.
2. به اندازه کافی کاربرگ خالی اضافه کنید تا برای هر کپی که می خواهید ایجاد کنید، یک برگه داشته باشید. (یک راه خوب برای افزودن کاربرگ های خالی این است که Shift+F11 را فشار دهید .)
3. کاربرگ اصلی را انتخاب کنید.
4. Ctrl+A را فشار دهید . اکسل همه چیز را در کاربرگ اصلی انتخاب می کند.
5. Ctrl+C را فشار دهید . اکنون همه چیز در کلیپ بورد کپی شده است.
6. برای اولین کاربرگ خالی که ایجاد کردید، روی برگه کاربرگ کلیک کنید.
7. هنگامی که روی برگه کاربرگ آخرین کاربرگ خالی ایجاد کرده اید، کلید Shift را نگه دارید .
8. Ctrl+V را فشار دهید . محتویات کلیپ بورد در هر یک از کاربرگ هایی که انتخاب کرده اید جایگذاری می شود.

این کار همه چیز را از کاربرگ اصلی کپی می کند، اما برخی موارد مانند عرض ستون، ارتفاع ردیف یا تنظیمات طرح بندی چاپ را کپی نمی کند. برای کپی کردن برخی از این موارد می توانید مراحل دیگری را انجام دهید، اما کپی کردن همه آنها دشوار است.

با این حال، برای سرعت و راحتی مطلق، استفاده از یک ماکرو برای ایجاد کپی ها (از نظر من) ساده ترین است. در اینجا یک ماکرو بسیار ساده وجود دارد که از کاربرگ انتخابی تا جایی کپی می کند که در مجموع 20 کاربرگ در ورک بوک وجود دارد:

Sub SimpleCopy1()
    Do While Sheets.Count < 20
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
    Loop
End Sub

اگر ورک بوک شما قبلاً دارای کاربرگ های اضافی است (علاوه بر موردی که می خواهید کپی کنید)، با استفاده از این نسخه سود خواهید برد:

Sub SimpleCopy2()
    Dim J As Integer

    For J = 1 To 20
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
    Next J
End Sub

می توانید با پرسیدن تعداد کپی از کاربر، ماکرو خود را کمی کلی تر کنید:

Sub SimpleCopy2()
    Dim J As Integer
    Dim iWanted As Integer

    On Error GoTo Done
    iWanted = Cint(InputBox("Number of copies?"))

    If iWanted >0 And iWanted < 201 Then
        For J = 1 To iWanted
            ActiveSheet.Copy After:=Sheets(Sheets.Count)
        Next J
    End If
Done:
    On Error GoTo 0
End Sub

این ماکرو همچنین تعداد کپی های کاربرگ های ایجاد شده را بین 1 تا 200 محدود می کند. (خارج از آن محدوده، کاری انجام نمی دهد.) در صورتی که ورک بوک شما از قبل تعداد کاربرگ های زیادی داشته باشد و افزودن صفحات اضافی از این مقدار بیشتر باشد، رسیدگی به خطا اضافه می شود. تعداد کاربرگ هایی که مجاز است در یک ورک بوک وجود داشته باشد.

صرف نظر از اینکه کدام رویکرد ماکرو را انتخاب می کنید، ایده خوبی است که آن را به نوار ابزار دسترسی سریع خود اضافه کنید یا یک کلید میانبر به آن اختصاص دهید. به این ترتیب می توانید کاربرگ های خود را خیلی سریع کپی کنید.