صندوق الإدخال "i*nput Box"
InputBox(prompt[,title][,default][,xpos][,ypos])

الصورة توضح البارميترات وترتيبها
ومن الممكن الاستغناء عن بعضهم
ممكن ان تصبح هكذا مختصرة
result = InputBox("ادخل اي بيان", "عرض بيانات")
مجرد بيانات لتوضيح محتوى i*nputBox
او ممكن ان تكتب هكذا
result = InputBox("ادخل اي بيان", "عرض بيانات", "ممكن نضع قيمة افتراضية هنا")
اضفنا قيمة افتراضية الى الـi*nputBox كما في الصورة
اوتكتب هكذا
result = InputBox("ادخل اي بيان", "عرض بيانات", "ممكن نضع قيمة افتراضية هنا", 10000, 5000)
وهنا اضفنا احداثيات صندوق الادخال
بمعنى اين تريد ان يظهر هذا المربع على الشاشة
الرقم 10000 يشير الى X وهي المسافة بين بداية الشاشة وصندوق الادخال افقيا
الرقم 5000 يشير الى Y وهي المسافة بين بداية الشاشة وصندوق الادخال رأسيا
واليكم الكود كامل لاستخدام صندوق الادخال
وفيه الثلاث احتمالات
اولا اذا تم التراجع عن الادخال والغاء الادخال يتم وضع كلمة canceled في الخلية A1
ثانيا اذا تم الضغط اوك بدون كتابة اي شئ يتم وضع didn't enter anything! في الخلية A1
ثالثا اذا تم كتابة اي شئ والضغط على اوك يتم عرض المكتوب في الخلية A1
وتستطيع تغيير الكود وتطويعه كما تشاء
الكود
Sub Input_Box()
Dim result As String
result = InputBox("ادخل اي بيان", "عرض بيانات", "ممكن نضع قيمة افتراضية هنا", 10000, 5000)
If StrPtr(result) = 0 Then
Range("A1") = "canceled"
ElseIf result = vbNullString Then
Range("A1") = "didn't enter anything!"
Else
Range("A1") = result
End If
End Sub
اتمنى ان تكون فكرة وطريقة عمل صندوق الادخال وضحت لكم
تحياتي
ياسرالعربي