اگر می خواهید یک عمل را یک بار تکرار کنید، می توانید کلید F4 یا Ctrl+Y را فشار دهید. با این حال، اگر بخواهید آن را بیش از یک بار تکرار کنید، چه؟ درست است، میتوانید این کلیدها را چندین بار فشار دهید، اما اگر بخواهید چیزی را پنجاه یا شصت بار تکرار کنید، ممکن است خستهکننده شود.
پاسخ این است که از یک ماکرو کوچک زیبا استفاده کنید که این کار را برای شما تکرار می کند:
Sub DoRepeat() Dim CountValue As Integer CountValue = Val(InputBox("How many times?")) If CountValue > 0 Then Repeat (CountValue) End Sub
ترفند این است که DoRepeat را به یک میانبر صفحه کلید، مانند Alt+R اختصاص دهید. سپس، می توانید یک عمل را انجام دهید، Alt+R را فشار دهید، تعداد دفعات تکرار را وارد کنید و در راه باشید. باید توجه داشته باشید که اگر اقدامی که قبل از فراخوانی ماکرو انجام دادید به دلایلی قابل تکرار نباشد، هنگام اجرای ماکرو با خطا مواجه خواهید شد.
