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

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

Exceliha.Ir بازدید : 1457 یکشنبه 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 تمام اطلاعات داخل شیت پاک خواهد شد.

 

 

 

 

درباره ما
به وب سایت اکسلیــها خوش آمدید. با راه اندازی انجمن اکسلیـها ، شما هم می توانید سوالات خودتون را ارسال کنید تا در کوتاهترین مدت مدیر وبسایت و یا دیگر کاربران به سوال شما جواب بدهند
اطلاعات کاربری
  • فراموشی رمز عبور؟
  • آمار سایت
  • کل مطالب : 107
  • کل نظرات : 28
  • افراد آنلاین : 2
  • تعداد اعضا : 466
  • آی پی امروز : 75
  • آی پی دیروز : 87
  • بازدید امروز : 338
  • باردید دیروز : 296
  • گوگل امروز : 22
  • گوگل دیروز : 21
  • بازدید هفته : 1,062
  • بازدید ماه : 1,647
  • بازدید سال : 27,787
  • بازدید کلی : 970,547