کلینتون یک ورک بوک حاوی بیش از 200 کاربرگ دارد که در طول ماه توسط افراد مختلف شرکت او پر می شود. در پایان ماه او باید این برگه ها را چاپ کند. همه کاربرگ ها حاوی داده نیستند و کلینتون فقط می خواهد کاربرگ هایی را که حاوی داده ها هستند چاپ کند تا کاغذ را هدر ندهد. او فکر می کند که آیا شاید ماکرویی وجود دارد که بتواند از آن برای چاپ تنها برگه هایی استفاده کند که دارای مقدار در سلول G41 هستند.
پاسخ این است که چنین ماکرو را می توان به راحتی نوشت. فقط باید بفهمد که چند کاربرگ وجود دارد، سلول G41 را در هر یک از آنها بررسی کنید، و سپس فقط اگر چیزی در آن سلول وجود دارد، چاپ کنید. ماکرو زیر فقط این عملیات را انجام می دهد.
Sub PrintMost()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If Not IsEmpty(wks.Range("G41")) Then
wks.PrintOut
End If
Next
End Sub
ماکرو را می توان به راحتی برای انجام عملیات های دیگر تغییر داد، مانند پرسیدن اینکه آیا هر کاربرگ باید چاپ شود یا اینکه چند نسخه باید چاپ شود.
