loading...
اکسلیـها - آموزش حرفه ای اکسل
Exceliha.Ir بازدید : 1932 یکشنبه 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
  • افراد آنلاین : 1
  • تعداد اعضا : 466
  • آی پی امروز : 27
  • آی پی دیروز : 109
  • بازدید امروز : 66
  • باردید دیروز : 348
  • گوگل امروز : 0
  • گوگل دیروز : 12
  • بازدید هفته : 1,997
  • بازدید ماه : 414
  • بازدید سال : 65,571
  • بازدید کلی : 1,008,331