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


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

آموزش برنامه نویسی اکسل : جعبه های ورودی (Input Boxes)
نویسنده : امیر انصاری
هنگامی که نیاز به دریافت یک قطعه اطلاعات خاص از کاربر دارید، مانند یک متن و یا یک عدد، یک InputBox برای این کار ساخته شده است. یک InputBox شبیه یک پسر عموی دور یک MsgBox می باشد، که یک متن پیام دارد که به کاربر می گوید تا چه کاری را انجام بدهد، یک دکمۀ OK و Cancel دارد که مانند MsgBox قابل تغییر نمی باشند، و یک عنوان اختیاری نیز دارد.

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



یک InputBox نیاز به آرگومان prompt دارد و همینطور بر روی آن یک کادر متنی قرار دارد که کاربر می تواند اطلاعاتی را در آن تایپ نماید. مقداری که کاربر در این کادر متنی وارد می کند در قالب یک متغیر متنی (String) به کد بازگردانده می شود. اگر کاربر مقداری را در آنجا وارد نکند یک رشته null بازگردانده می شود که معمولاً VBA آن را مشابه وقتی در نظر میگیرد که کاربر Cancel را کلیک کرده است.

در مثال زیر، از یک InputBox استفاده می شود تا از کاربر عددی را بگیرد و بر مبنای عددی که کاربر وارد کرده است به همان تعداد ردیف در زیر سلول فعال افزوده می شود.

Sub InsertRows()
'Declare the string variable for the InputBox entry.
Dim CountInsertRows As String
'Define the String variable as the InputBox entry.
CountInsertRows = InputBox( _
"Enter the number of rows to be inserted:", _
"Insert how many rows below the active cell?")
'Verify that a number was entered.
'The Val function returns the numbers contained in a string as a numeric value.
If CountInsertRows = "" Or Val(CountInsertRows) < 1 Then Exit Sub
'Insert as many rows as the number that was entered.
'The Resize property returns a Range object based on the number of rows
'and columns in the new range. The number that was entered in the InputBox
'represents how many rows shall be inserted. The count of columns, which is
'the other optional argument for Resize, need not be specified because it is
'only rows being inserted.
Rows(ActiveCell.Row + 1).Resize(Val(CountInsertRows)).Insert
End Sub


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

آموزش بعدی : آموزش برنامه نویسی اکسل : تکرار عملیات با حلقه ها



دیدگاه ها(0)

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

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

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

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


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

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