تغییر مقادیر سلول در حین چاپ در اکسل

Question

مدهابی می خواهد چهار نسخه از یک کاربرگ را چاپ کند، اما مقدار تغییر سلول A7 برای هر کپی را داشته باشد. این چهار مقدار عبارتند از: "Original"، "Duplicate"، "File" و "Driver". مدهبی از اینکه همه داده‌های دیگر یکسان هستند تعجب می‌کند که چگونه می‌تواند متن سلول A7 را هنگام چاپ تغییر دهد.

یک رویکرد ممکن ایجاد چهار کاربرگ مختلف است که اساساً حاوی اطلاعات یکسان باشد. کاربرگ‌های 2 تا 4 می‌توانند همه سلول‌های کاربرگ 1 را مرجع کنند، به استثنای سلول A7 که می‌تواند در هر کاربرگ با مقدار متفاوتی تنظیم شود ("اصلی"، "تکراری" و غیره).

با این حال، یک رویکرد بهتر، ایجاد یک ماکرو سریع است که بتوانید از آن برای چاپ خود استفاده کنید. ماکرو می تواند مقدار سلول A7 را درست قبل از چاپ هر بار تغییر دهد. در اینجا یک مثال ساده است:

Sub PrintCopies()
    Dim i As Integer
    Dim VList As Variant

    VList = Array("Original", "Duplicate", "File", "Driver")
    For i = LBound(VList) To UBound(VList)
        Range("A7") = VList(i)
        ActiveSheet.PrintOut 
    Next
End Sub

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

ماکرو را می توان به راحتی به یک کلید میانبر یا به نوار ابزار دسترسی سریع (همانطور که در دیگر ExcelTips توضیح داده شد) اختصاص داد تا بتوانید هر چهار نسخه را به سرعت چاپ کنید.