خالی کردن تمامی داده های شیت با استفاده از vba

        فرض کنید شما اطلاعاتی را در داخل یک شیت به صورت پراکنده همانند شکل زیر دارید که میخواهید آن اطلاعات را پاک کنید. ( این کار با انتخاب کلید ترکیبی Ctrl+A  و زدن کلید delete از روی صفحه کلید به راحتی قابل انجام است اما از آنجایی که موضوع آموزش ما vba هست ، بنابراین می خواهیم این کار را با استفاده از دستور vba انجام دهیم)

ابتدا به تب developer رفته و از گزینه زیر یک دکمه بر روی صفحه اکسل خود درگ کنید.

سپس با زدن دکمه new بر روی پنجره ای که باز شده است ، وارد محیط vba اکسل شوید و کد زیر را در رویداد کلیک دکمه کپی کنید :

Dim soal As Integer

soal = MsgBox("آیا شما می خواهید اطلاعات داخل شیت را خالی کنید؟", vbYesNo + vbQuestion, "خالی کردن اطلاعات")

If soal = vbYes Then

    Cells.ClearContents

Else

    'اتفاقی رخ نخواهد داد

End If

بعد از خارج شدن از محیط vba بر روی دکمه ایجاد شده کلیک کنید و با باز شدن پنجره سوال و انتخاب دکمه yes تمام اطلاعات داخل شیت پاک خواهد شد.