इनपुट बॉक्स में प्रवेश करना - एक्सेल टिप्स

डेविड पूछता है:

नमस्ते, मुझे एक परियोजना डिजाइन करनी है और मैं एक बिट पर अटक गया हूं जो उपयोगकर्ता को एक नंबर इनपुट करने की अनुमति देने के लिए एक मैक्रो डिजाइन कर रहा है, लेकिन मुझे जो समस्या आ रही है वह एक मान्यता स्थापित कर रही है जो केवल 1-10 के बीच की संख्या को स्वीकार करेगी। मैंने विशिष्ट कोशिकाओं पर एक सत्यापन स्थापित करने की कोशिश की, लेकिन इनपुटबॉक्स के साथ समस्या यह है कि भले ही सेल को केवल एक संख्या स्वीकार करने के लिए सेट किया गया हो, यह कुछ भी स्वीकार करेगा। क्या आप कृपया मदद कर सकते हैं क्योंकि मैं वास्तव में अपनी परियोजना के साथ इसे पूरा नहीं कर सकता।

यह मैक्रो उपयोगकर्ता को 1 और 10 के बीच की संख्या के लिए पूछना जारी रखेगा या यदि वह रद्द करता है तो रोक देगा।

Sub Test() Dim MyAns As Variant Ask: MyAns = Application.InputBox("Enter a number between 1 and 10", Type:=1) If MyAns = False Then Exit Sub If MyAns 10 Then GoTo Ask: MsgBox MyAns, vbInformation, "Good Number" End Sub