David küsib:
Tere, ma pean projekti välja töötama ja olen natuke kinni makros, mis kavandab makrot, et kasutaja saaks numbri sisestada, kuid probleem, millega silmitsi seisan, on valideerimise seadistamine, mis aktsepteerib ainult numbreid vahemikus 1–10. Püüdsin seada konkreetsetele lahtritele valideerimise, kuid sisendkasti probleem seisneb selles, et isegi kui lahter on määratud aktsepteerima ainult numbrit, aktsepteerib see midagi. Kas saaksite aidata, sest ma ei saa oma projekti jätkata, kuni see on tehtud.
See makro küsib kasutajalt jätkuvalt numbrit vahemikus 1 kuni 10 või peatub, kui ta tühistab.
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
