پل یک کاربرگ دارد که بیش از هزار ردیف داده در آن وجود دارد. ارتفاع بیشتر ردیف ها 12 است، اما برخی از آنها بیش از 100 ارتفاع دارند. او فکر می کند آیا راهی وجود دارد که ارتفاع ردیف ها را طوری تنظیم کنیم که هیچ ردیفی بالای 40 نباشد؟ (به این معنی که افراد زیر 40 سال قد فعلی خود را حفظ می کنند، اما افراد بالای 40 سال به 40 تنظیم می شوند.)
رفع این مشکل در واقع بسیار آسان است—شما فقط به راهی نیاز دارید تا از میان ردیف ها عبور کنید، ارتفاع ردیف فعلی را تعیین کنید و سپس در صورت بزرگ بودن ارتفاع ردیف را تنظیم کنید. این کار را می توان با یک ماکرو بسیار ساده مانند موارد زیر انجام داد:
Sub MaxRowHeight()
Dim R As Long
For R = 1 To ActiveSheet.UsedRange.Rows.Count
If Rows(R).Height > 40 Then Rows(R).RowHeight = 40
Next
End Sub
ماکرو محدوده سطرهای استفاده شده در کاربرگ را تعیین می کند و سپس از آن ردیف ها عبور می کند. خاصیت عملیاتی ویژگی .Height است که بررسی می شود. اگر بیش از 40 باشد، روی 40 تنظیم می شود. این بدان معناست که هر چیزی با ارتفاع ردیف کمتر از 40 بدون تغییر باقی می ماند.
