استفاده از ماکرو برای تنظیم محدوده چاپ

Question

گراهام یک سلول (C7) دارد که شامل یک محدوده است، مانند B8:B207. هر زمان که محدوده در C7 تغییر می کند، او به راهی برای تغییر محدوده چاپ برای مطابقت با آنچه در آن سلول است نیاز دارد. با این حال، گراهام از نحوه تنظیم محدوده چاپ در کد ماکرو مطمئن نیست.

تنظیم محدوده چاپ در یک ماکرو بسیار آسان است. می توانید این کار را به این صورت انجام دهید:

ActiveSheet.PageSetup.PrintArea = "$A$1:$D$23"

توجه داشته باشید که تنها کاری که باید انجام دهید این است که به ویژگی PrintArea محدوده ای را که می خواهید برای محدوده چاپ خود استفاده کنید، اختصاص دهید. بنابراین، اگر سلول C7 دارای یک محدوده (مانند B8:B207) باشد، می توانید این کار را به این صورت انجام دهید:

ActiveSheet.PageSetup.PrintArea = Range("C7").Value

در صورت تمایل می توانید یک کنترل کننده رویداد ایجاد کنید که هر بار که سلول C7 تغییر می کند، ناحیه چاپ را تغییر می دهد. برای انجام این کار، فقط این را به ماژول VBA برای کاربرگ اضافه کنید. (فقط روی برگه برگه کلیک راست کرده و View Code را انتخاب کنید، سپس ماکرو را در آنجا اضافه کنید.)

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address = "$C$7" Then
        ActiveSheet.PageSetup.PrintArea = Target.Value
    End If
End Sub

کنترل کننده رویداد Worksheet_Change هر بار که تغییری در کاربرگ ایجاد می شود به طور خودکار اجرا می شود. اگر سلول در حال تغییر C7 باشد، ویژگی PrintArea به روز می شود تا هر آنچه در سلول C7 است منعکس شود.

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

1. Ctrl+F3 را فشار دهید . اکسل کادر محاوره ای Name Manger را نمایش می دهد.
2. روی New کلیک کنید. اکسل کادر محاوره ای New Name را نمایش می دهد.
3. در قسمت Name عبارت زیر را به عنوان نام وارد کنید: Print_Area
4. با استفاده از لیست کشویی Scope، صفحه کاری را انتخاب کنید که حاوی سلول (C7) حاوی محدوده چاپ است.
5. در قسمت Refers To، فرمول زیر را وارد کنید: =INDIRECT(Sheet1!$C$7)
6. روی OK کلیک کنید.

اکنون، هر زمان که چاپ می کنید، محدوده چاپ از هر چیزی که در سلول C7 است گرفته می شود. توجه داشته باشید که باید فرمول را در مرحله 5 تغییر دهید تا از هر نام برگه ای که در مرحله 4 مشخص کرده اید استفاده کنید. (به جای برگه Sheet1 استفاده شده در مثال).