Dāvids jautā:
Sveiki, man ir jāizstrādā projekts, un es esmu iestrēdzis mazliet, kas izstrādā makro, lai lietotājs varētu ievadīt numuru, bet problēma, ar kuru es saskaras, ir iestatīt validāciju, kas pieņem tikai skaitļus no 1 līdz 10. Mēģināju noteikt validāciju konkrētām šūnām, bet ievades lodziņa problēma ir tāda, ka pat tad, ja šūna ir iestatīta pieņemt tikai numuru, tā pieņemtu jebko. Vai varat, lūdzu, palīdzēt, jo es īsti nevaru turpināt savu projektu, kamēr tas nav izdarīts.
Šis makro turpinās lietotājam lūgt skaitli no 1 līdz 10 vai tiks pārtraukts, ja viņš / viņa atcels.
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
