بسم الله الرحمن الرحيم

صندوق الإدخال "Input Box"

InputBox(prompt[,title][,default][,xpos][,ypos])<br />
<br />

الصورة توضح البارميترات وترتيبها
ومن الممكن الاستغناء عن بعضهم
ممكن ان تصبح هكذا مختصرة

​result = InputBox("ادخل اي بيان", "عرض بيانات")

مجرد بيانات لتوضيح محتوى InputBox
او ممكن ان تكتب هكذا

​result = InputBox("ادخل اي بيان", "عرض بيانات", "ممكن نضع قيمة افتراضية هنا")

اضفنا قيمة افتراضية الى الـInputBox كما في الصورة

اوتكتب هكذا

​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

اتمنى ان تكون فكرة وطريقة عمل صندوق الادخال وضحت لكم
تحياتي
ياسرالعربي