loading...

اکسلیـها - آموزش حرفه ای اکسل

        فرض کنید شما اطلاعاتی را در داخل یک شیت به صورت پراکنده همانند شکل زیر دارید که میخواهید آن اطلاعات را پاک کنید. ( این کار با انتخاب کلید ترکیبی Ctrl+A  و زدن کلید del

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

Exceliha.Ir بازدید : 1282 یکشنبه 24 مرداد 1395 نظرات (0)

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

 

 

 

 

مطالب مرتبط
ارسال نظر برای این مطلب

نام
ایمیل (منتشر نمی‌شود)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B :S
کد امنیتی
رفرش
کد امنیتی
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
درباره ما
به وب سایت اکسلیــها خوش آمدید. با راه اندازی انجمن اکسلیـها ، شما هم می توانید سوالات خودتون را ارسال کنید تا در کوتاهترین مدت مدیر وبسایت و یا دیگر کاربران به سوال شما جواب بدهند
اطلاعات کاربری
  • فراموشی رمز عبور؟
  • آمار سایت
  • کل مطالب : 107
  • کل نظرات : 28
  • افراد آنلاین : 2
  • تعداد اعضا : 466
  • آی پی امروز : 9
  • آی پی دیروز : 100
  • بازدید امروز : 49
  • باردید دیروز : 180
  • گوگل امروز : 0
  • گوگل دیروز : 19
  • بازدید هفته : 794
  • بازدید ماه : 4,942
  • بازدید سال : 4,942
  • بازدید کلی : 947,702