Hướng dẫn tạo Form nhập liệu trong Excel bằng VBA: Cho phép nhập số từ 0 đến 9

Trong quá trình làm việc với Excel, đặc biệt là khi xử lý các thông tin nhạy cảm như số điện thoại hoặc các dữ liệu số khác, việc kiểm soát dữ liệu nhập vào là rất quan trọng. Chắc hẳn bạn từng gặp phải tình huống người dùng nhập sai thông tin, chẳng hạn như chỉ cho phép nhập số từ 0 đến 9. Trong bài viết này, chúng ta sẽ cùng nhau tìm hiểu cách tạo một Form nhập liệu đơn giản trong Excel sử dụng VBA, giúp người dùng chỉ có thể nhập các số hợp lệ.

Bước 1: Tạo một UserForm mới

Để bắt đầu, bạn cần tạo một UserForm trong Excel. Thực hiện theo các bước sau:

Mở Excel và nhấn ALT + F11 để mở cửa sổ Visual Basic for Applications (VBA).
Trong cửa sổ VBA, nhấp chuột phải vào project của bạn và chọn Insert > UserForm.
Một UserForm mới sẽ xuất hiện. Tại đây, bạn có thể tùy chỉnh giao diện theo ý muốn.

Bước 2: Thêm điều khiển TextBox

Tiếp theo, bạn cần thêm điều khiển TextBox để người dùng nhập số:

Kéo và thả điều khiển TextBox vào UserForm từ toolbox.
Đặt tên cho TextBox này là myTextbox để dễ dàng tham chiếu trong mã VBA.

Giao diện UserForm với TextBox

Bước 3: Xử lý sự kiện KeyPress

Để chỉ cho phép nhập số từ 0 đến 9, bạn cần xử lý sự kiện KeyPress của TextBox. Vào cửa sổ mã của UserForm và thêm đoạn mã sau:

Private Sub myTextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If (KeyAscii < 48) Or (KeyAscii > 57) Then
        KeyAscii = 0 ' Chặn các ký tự không phải số
    End If
End Sub

Đoạn mã này sẽ kiểm tra từng ký tự mà người dùng nhập vào TextBox. Nếu ký tự không phải là số (tức là không nằm trong khoảng ASCII từ 48 đến 57), nó sẽ không được chấp nhận.

Bước 4: Thêm nút “Lấy số”

Bạn có thể thêm một nút lệnh (CommandButton) để thực hiện hành động khi người dùng nhấn nút. Đặt tên cho nút này là btnGetNumber và thêm đoạn mã sau vào sự kiện Click của nút:

Private Sub btnGetNumber_Click()
    MsgBox "Số bạn đã nhập là: " & myTextbox.Text
End Sub

Khi nhấn nút, một hộp thông báo sẽ hiện lên hiển thị số mà người dùng đã nhập vào.

Bước 5: Gọi UserForm và kiểm tra kết quả

Cuối cùng, bạn cần gọi UserForm để thực hiện kiểm tra. Thêm đoạn mã sau vào một Module mới để hiển thị UserForm:

Sub ShowUserForm()
    UserForm1.Show
End Sub

Giờ đây, hãy chạy macro ShowUserForm và kiểm tra xem TextBox của bạn có hoạt động như mong muốn hay không. Bạn sẽ thấy rằng chỉ có thể nhập các số từ 0 đến 9 vào TextBox.

Với các bước trên, bạn đã tạo thành công một Form nhập liệu trong Excel bằng VBA, giúp kiểm soát dữ liệu nhập vào từ người dùng một cách hiệu quả.

Hãy tham khảo thêm các khoá học khác từ Học Excel Online để nâng cao kỹ năng sử dụng VBA và Excel của bạn!

blog