Deividas klausia:
Sveiki, turiu parengti projektą ir aš įstrigau šiek tiek, kuris kuria makrokomandą, kad vartotojas galėtų įvesti skaičių, tačiau problema, su kuria susiduriu, yra patvirtinimo nustatymas, kuris priimtų tik skaičius nuo 1 iki 10. Bandžiau nustatyti konkrečių langelių patvirtinimą, tačiau įvesties dėžutės problema yra ta, kad net jei langelis nustatytas priimti tik skaičių, jis priims bet ką. Ar galėtumėte padėti, nes aš tikrai negaliu tęsti savo projekto, kol tai nebus padaryta.
Ši makrokomanda ir toliau prašys vartotojo nurodyti skaičių nuo 1 iki 10 arba sustos, jei jis / ji atšauks.
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
