بسم الله الرحمن الرحيم
لا استخدم الـInputBox كثيرا، لكنني احتجته اليوم وياليتني ما احتجته :angry:
لإخواني، انظروا إلى هذا الكود البريء:
Dim a As Integer
a = InputBox("Write a number", "Number", 10)المشكلة أنني إذا ضغطت على زر (Cancel)td صندوق الـInputBox فإن رسالة خطأ تخرج لي تقول : "Type mismatch"
كيف تحل هذه المشكلة بارك الله فيكم؟
أخوكم
بسم الله الرحمن الرحيم
دالة الـ InputBOX
ترجع بقيمة String
ولذا يجب ان تقوم بتعريف المتغير على انه String
او تستخدم دالة VAL
والسلام عليكم ورحمة الله وبركاته
newperson100 كتب:بسم الله الرحمن الرحيمدالة الـ InputBOX
ترجع بقيمة String
ولذا يجب ان تقوم بتعريف المتغير على انه String
او تستخدم دالة VAL
والسلام عليكم ورحمة الله وبركاته
نعم، لقد أُخبرت بأن :
a = Val(InputBox("Write a number", "Number", 10))تحل المشكلة، لكن ما أقصده أنني حينما أضغط على (Cancel) لا يجب أن يحدث شيء، فهو بمثابة (Exit Sub) أليس كذلك؟
في الـ(Message Box) كنت أستخدم (vbCancel) لإضافة كود في حالة ضغط المستخدم على زر (vbCancel) فهل يوجد في الـInputBOX خاصية مثل هذه؟
هذا هو الكود المطلوب فعند الضغط علي cancel لا يعطي خطأ
Dim a As String
a = InputBox("Write a number", "Number", 10)")
If a= "" Then Exit Subهذا الموضوع مغلق.