David hỏi:
Xin chào, tôi phải thiết kế một dự án và tôi đang vướng mắc một chút đó là thiết kế macro để cho phép người dùng nhập một số, nhưng vấn đề tôi đang gặp phải là thiết lập xác thực chỉ chấp nhận các số từ 1-10. Tôi đã cố gắng thiết lập xác thực trên các ô cụ thể nhưng vấn đề với hộp nhập là ngay cả khi ô đã được đặt thành chỉ chấp nhận một số, nó sẽ chấp nhận bất kỳ thứ gì. Bạn có thể vui lòng giúp đỡ vì tôi thực sự không thể tiếp tục với dự án của mình cho đến khi việc này hoàn thành.
Macro này sẽ tiếp tục hỏi người dùng một số từ 1 đến 10 hoặc sẽ dừng nếu họ hủy.
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
