خوش آموز درخت تو گر بار دانش بگیرد، به زیر آوری چرخ نیلوفری را


آموزش برنامه نویسی اکسل : جعبه های پیام (Message Boxes)

آموزش برنامه نویسی اکسل : جعبه های پیام (Message Boxes)
نویسنده : امیر انصاری
تا این نقطه از کتاب، شما کدهای نمونه زیادی را دیدید که شامل جعبه پیامها (Message Boxes) بودند. در تمامی آن مثالها، جعبه پیامها (Message Boxes) یک جعبه باز شو بود که یک پیام متنی را نمایش می داد و یک دکمه OK در آن قرار داشت که با کلیک بر روی آن شما تایید می کردید که اطلاعات را دیده اید و جعبه پیامها (Message Boxes) بسته می شد. نمونه این نوع جعبه پیامها (Message Boxes) را در تصویر زیر می توانید ببینید.

آموزش سالیدورکز 20-2019



آموزش برنامه نویسی اکسل : جعبه پیام (Message Boxes)
جعبه پیامها (Message Boxes) ابزارهای انعطاف پذیری هستند که به شما امکان می دهند تا دکمه های روی آنها را شخصی سازی کنید، از کاربر سوالی کنید و پاسخ کاربر را در قالب یک سری دکمۀ محدود از او دریافت نمایید. به جای نمایش دکمۀ OK شما می توانید دکمه های Yes و No را به کاربر نشان بدهید و کدهایی را بنویسید که بر اساس اینکه کاربر Yes و یا No را کلیک کرده باشد، کارهای متفاوتی صورت پذیرد. یک نمونه از این جعبه پیامها (Message Boxes) را در تصویر زیر می بینید.

آموزش برنامه نویسی اکسل : جعبه پیام (Message Boxes)
فرض کنید که شما یک ماکرو دارید که می خواهد کاری را انجام بدهد و برای انجام این کار نیاز به تایید کاربر دارد. برخی ماکروها کاملاً بزرگ و تقریباً برگشت ناپذیر هستند، و یا کارهایی دستی هستند که فایل اکسل شما را به شکل قابل توجهی تغییر می دهند. در مثال ساده شدۀ زیر، برگۀ فعال کپی می شود و قبل از Sheet1 قرار می گیرد، اما این کار تنها در صورتی انجام می شود که کاربر دکمۀ Yes را کلیک کرده باشد. اگر کاربر No را کلیک کند، یک پیام دوستانه نمایان می شود و کاربر را آگاه می کند که به دلیل اینکه No را کلیک کرده است، ماکرو اجرا نخواهد شد.

آموزش برنامه نویسی اکسل : جعبه های پیام (Message Boxes)
Sub ConfirmExample()

Select Case MsgBox( _
"Do you really want to copy this worksheet?", _
vbYesNo + vbQuestion, _
"Please confirm...")

Case vbNo

MsgBox _
"No problem, this worksheet will not be copied.", _
vbInformation, _
"You clicked No."

Exit Sub

Case vbYes

MsgBox _
"Great - - click OK to run the macro.", _
vbInformation, _
"Thanks for confirming."

ActiveSheet.Copy Before:=Sheets("Sheet1")

End Select

End Sub

اگر به خط کد مربوط به جعبه پیام (MsgBox) نگاه کنید، خواهید دید که دارای آرگومانهایی است که با پرانتر محصور شده اند. یک MsgBox دو آرگومان اجباری دارد، آرگومان prompt که متن پیام شما می باشد و در بدنۀ MsgBox قرار می گیرد ، و ترکیب دکمۀ های MsgBox. سایر ترکیبهای دکمه های MsgBox شامل موارد OKCancel و YesNoCancel و AbortRetryIgnore می باشند. آرگومان title که عنوان جعبه پیام است، اختیاری می باشد، اما من به شخصه خودم همیشه مقداری را برای آن تعیین می کنم تا شخصی سازی بهتری در نمایش پیام صورت پذیرد.


آموزش قبلی : آموزش برنامه نویسی اکسل : Select Case

آموزش بعدی : آموزش برنامه نویسی اکسل : جعبه های ورودی (Input Boxes)



دیدگاه ها(2)

مهدی ۱۳۹۸/۰۷/۰۷

سلام خسته نباشید
خیلی ممنون بابت آموزش
کد مطلب3084 ایراد داره واجرا نمیشه. اشکالش کجاست؟

امیر انصاری ۱۳۹۸/۰۷/۰۷

دوست عزیز مهدی با سلام

کد مربوطه را تست کردیم و مشکلی نداشت و درست هم کار می کرد. یک تصویر از کد انداختم که هم در داخل مطلب قرار دادم و هم در اینجا قرار می دهم احتمالاً فاصله های اضافی مشکل ساز شده باشد.

آموزش برنامه نویسی اکسل : جعبه های پیام (Message Boxes)

دیدگاه خود را ثبت کنید:

انتخاب تصویر ویرایش حذف
توجه! حداکثر حجم مجاز برای تصویر 500 کیلوبایت می باشد.

لطفا پیش از ارسال دیدگاه ، به نکات زیر توجه فرمایید :

- از نوشتن دیدگاه های غیر مرتبط با پست جدا خودداری کنید. دیدگاه ها و سوالات متفرقۀ خود را می توانید در تالارهای گفتمان خوش آموز مطرح نمایید.
- لطفاً دیدگاه های خود را با حروف فارسی تایپ کنید، دیدگاه های فینگیلیش تایید نمی شوند.
- قبل از ارسال دیدگاه حتما متن پست و نظرات سایر دوستان را بخوانید . نظرات اسپم و تکراری تایید نخواهند شد.
- نظر شما ممکن است بدون پاسخ تایید شوند که در این صورت باید منتظر پاسخ از سوی دیگر کاربران باشید .
- لطفا انتقادات و پیشنهادات و همچنین درخواست های خود را از طریق ایمیل khoshamoz[at].hotmail.com ارسال نمایید
- چرا آموزش های سایت خوش آموز در قالب فایل pdf به صورت یکجا ارائه نمی شوند؟
- چرا برخی پرسش های کاربران پاسخ داده نمی شوند؟


دوره رایگان آموزش جامع برنامه نویسی اکسل (VBA) از مقدماتی تا پیشرفته

دوره رایگان آموزش جامع برنامه نویسی اکسل (VBA) از مقدماتی تا پیشرفته