تابع InputBox ابزاری برای تعامل با کاربر
تابع InputBox در وی بی (VBA)
یکی از اهداف استفاده از VBA در اکسل تعامل مدیریت شده با کاربران است. راه های مختلفی برای برای تعامل با کاربر در وی بی تعریف شده که یکی از این راه ها استفاده از تابع InputBox در وی بی هست. با اجرا شدن تابع InputBox یک پنجره نمایش داده میشه که امکان دریافت اطلاعات در قالب نوشتن در این پنجره فراهم میشه. در این پنجره دو دکمه OK و جهت تأیید اطلاعات نوشته شده و Cancel جهت انصراف از ورود اطلاعات وجود داره. زمانیکه دکمه OK فشرده شود خروجی تابع InputBox، متنی هست که کاربر نوشته و در صورتیکه Cancel انتخاب شود یک عبارت خالی به عنوان خروجی ارسال میشه.
ساختار تابع InputBox به شکل زیر است:
InputBox( Prompt, [Title], [Default], [XPos], [YPos], [HelpFile], [Context] )
اجزای آرگومان این تابع به این صورت هست:
| متنی که به عنوان توضیحات در پنجره نمایش داده میشه | Prompt |
| متن اختیاری که در بالای پنجره به عنوان موضوع نمایش داده میشه | [Title] |
| متن اختیاری که به عنوان مقدار پیشفرض وارد شده توسط کاربر قرار داده میشه | [Default] |
| عددی اختیاری جهت تعیین فاصله افقی از سمت چپ پنجره نمایش داده شده تا لبه صفحه نمایش | [XPos] |
| عددی اختیاری جهت تعیین فاصله عمودی از بالای پنجره نمایش داده شده تا لبه صفحه نمایش | [YPos] |
| متن اختیاری جهت مشخص کردن فایل راهنمای مربوط به این پنجره هست. توجه کنید که اگه این قسمت مقداردهی شده باشه، مقدار آرگومان [Context] هم باید مقداردهی شده باشه | [HelpFile] |
| یک عدد اختیاری جهت تعیین عنوان مورد نظر در فایل راهنمای مشخص شده در بخش [HelpFile] هست | [Context] |
چند مثال از تابع InputBox در VBA
مثال اول: دریاف اطلاعات در ساده ترین حالت
1 2 3 4 5 6 | Sub GetName() ' درخواست نام از کاربر Dim UserName As String UserName = InputBox("لطفا نام خود را وارد کنید") ' نام دریافت شده از کاربر در متغیر تعریف شده ذخیره میشه End Sub |
بعد از اجرای دستور بالا پنجره ای که در شکل 1 مشاهده میکنید جهت دریافت نام کاربری نمایش داده میشه.
شکل 1- دریافت نام کاربری با استفاده از تابع InputBox در اکسل
زمانیکه پنجره نمایش داده میشه، اجرای کدهای وی بی برای دریافت عبارت درخواستی از کاربر متوقف میشه. بعد از ورود اطلاعات و فشردن هر یک از دکمه ها نتیجه به کدها برگردونده میشه
در پنجره InputBox اگر دکمه OK فشرده بشه، متن وارد شده در پنجره برگردونده میشه و اگر دکمه Cancel فشرده بشه، خروجی تابع InputBox یک متن با محتوای خالی هست.
در کد بالا یک متغیر با نام UserName تعریف شده که هدف از تعریف آن ذخیره خروجی تابع InputBox هست که در کدهای بعدی ازش استفاده بشه.
مثال دوم: دریافت اطلاعات از کاربر با تنظیمات بیشتر تابع InputBox
1 2 3 4 5 6 | Sub GetName() ‘ درخواست نام کاربری Dim UserName As String UserName = InputBox("لطفا نام خود را وارد کنید", " دریافت نام کاربری ", Environ("Username")) ' نام دریافت شده از کاربر در متغیر تعریف شده ذخیره میشه End Sub |
کدی که در مثال یک زدیم رو تکمیل کردم که پنجره مفهوم تری به کاربر نمایش داده بشه و با استفاده از دستوری Environ نام کاربری ویندوز رو هم به صورت مقدار پیشفرض برای این پنجره قرار دادم که کاربر راحت تر باشه. نتیجه اجرای این کد در شکل 2 نمایش داده شده.
شکل 2- دریافت اطلاعات از کاربر با جزئیات بیشتری از تابع InputBox
تو این آموزش سعی کردم که کار با تابع InputBox در وی بی رو آموزش بدم. شما هم میتونید مقادیر مختلفی برای آرگومان های این تابع قرار بدید و تا جائیکه لازم هست این پنجره رو برای استفاده از کاربران فایلتون راحت تر کنید.
تابع InputBox یک ابزار اولیه برای دریافت اطلاعات از کاربر هست و در آینده سایر ابزارهای تعامل با کاربر رو آموزش میدیم.
ممکن است همچنین دوست داشته باشید
ایجاد حلقه های تکرار در VBA اکسل با ساختار For
رویدادها در اکسل
2 نظر
سلام
استاد ارجمندیک سوال داشتم
چگونه میتوان یک فرم در اکسل ایجاد کرد که رابطه کاربری ان ساده و زیبا باشد
سلام
با استفاده از یوزرفرم ها میتونید فرم های ورود داده مختلتفی در اکسل ایجاد کنید.
اگر به این موضوع علاقه مند هستید کتاب یوزرفرم های مقدماتی و یوزرفرم های پیشرفته را ببینید.