loading...

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

آموزش مقدماتی ویژوال بیسیک در اکسل,کدهای حرفه ای vba در اکسل,آموزش کدنویسی در محیط vba اکسل,حرفه ای ترین کدهای vba در اکسل,آموزش vba,vba,اکسل و vba,مقدمات آموزش vba در اکسل,آموزش تخصصی رایگان کدهای vb

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

 

 

 

 

آشنایی با زبان ویژوال بیسیک محیط اکسل

Exceliha.Ir بازدید : 1953 دوشنبه 30 فروردين 1395 نظرات (0)

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

درباره ما
به وب سایت اکسلیــها خوش آمدید. با راه اندازی انجمن اکسلیـها ، شما هم می توانید سوالات خودتون را ارسال کنید تا در کوتاهترین مدت مدیر وبسایت و یا دیگر کاربران به سوال شما جواب بدهند
اطلاعات کاربری
  • فراموشی رمز عبور؟
  • آمار سایت
  • کل مطالب : 107
  • کل نظرات : 28
  • افراد آنلاین : 1
  • تعداد اعضا : 466
  • آی پی امروز : 8
  • آی پی دیروز : 100
  • بازدید امروز : 32
  • باردید دیروز : 180
  • گوگل امروز : 0
  • گوگل دیروز : 19
  • بازدید هفته : 777
  • بازدید ماه : 4,925
  • بازدید سال : 4,925
  • بازدید کلی : 947,685