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

     اگر شما هم از آن دست افرادی هستید که حجم اطلاعاتی که با اکسل کار میکنید بسیار زیاد است این روش کاربردی برای جلوگیری از کند شدن کار با اکسل بسیار مفید است.

         در اینجا قصد داریم در مورد ابزار بسیار مفید و کاربردی what if analys توضیحات مختصری بدیم.

        فرض کنید شما اطلاعاتی را در داخل یک شیت به صورت پراکنده همانند شکل زیر دارید که میخواهید آن اطلاعات را پاک کنید. ( این کار با انتخاب کلید ترکیبی 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 تمام اطلاعات داخل شیت پاک خواهد شد.

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

در این پست قصد داریم یک برنامه بسیار جذاب و کاربردی را برای دانلود قرار بدیم که با آن بتوانید با استفاده از اکسل قرعه کشی انجام بدهید