David bertanya:
Hai, saya harus merancang projek dan saya agak sibuk merancang makro untuk membolehkan pengguna memasukkan nombor, tetapi masalah yang saya hadapi adalah menetapkan pengesahan yang hanya akan menerima nombor antara 1-10. Saya cuba menetapkan pengesahan pada sel tertentu tetapi masalah dengan kotak input adalah bahawa walaupun sel telah ditetapkan untuk hanya menerima nombor, ia akan menerima apa sahaja. Boleh tolong bantu kerana saya tidak dapat meneruskan projek saya sehingga ini selesai.
Makro ini akan terus meminta pengguna untuk nombor antara 1 dan 10 atau akan berhenti jika dia membatalkannya.
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
