Xây dựng UserForm nhập liệu chuyên nghiệp với VBA Excel

Tại sao cần UserForm? #

Nhập liệu trực tiếp vào sheet dễ gây lỗi:

• Nhập sai cột

• Quên nhập trường bắt buộc

• Dữ liệu không đồng nhất

UserForm giải quyết tất cả bằng giao diện nhập liệu trực quan.

Tạo UserForm #

1. VBA Editor → Insert → UserForm

2. Toolbox sẽ hiện ra với các controls

Các controls phổ biến #

| Control | Công dụng |

|---------|-----------|

| Label | Nhãn hiển thị |

| TextBox | Ô nhập text |

| ComboBox | Dropdown list |

| CheckBox | Hộp kiểm |

| CommandButton | Nút bấm |

| ListBox | Danh sách |

Code xử lý nút Lưu #

Private Sub btnLuu_Click()
    ' Validate
    If txtHoTen.Value = "" Then
        MsgBox "Vui lòng nhập họ tên!", vbExclamation
        txtHoTen.SetFocus
        Exit Sub
    End If

    ' Tìm dòng trống tiếp theo
    Dim nextRow As Long
    nextRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row + 1

    ' Ghi dữ liệu
    With Sheet1
        .Cells(nextRow, 1).Value = nextRow - 1  ' STT
        .Cells(nextRow, 2).Value = txtHoTen.Value
        .Cells(nextRow, 3).Value = cboPhongBan.Value
        .Cells(nextRow, 4).Value = txtEmail.Value
        .Cells(nextRow, 5).Value = Now()
    End With

    ' Reset form
    txtHoTen.Value = ""
    cboPhongBan.Value = ""
    txtEmail.Value = ""

    MsgBox "Đã lưu thành công!", vbInformation
End Sub

Tips nâng cao #

1. Validate email: Dùng RegExp để kiểm tra format email

2. Auto-complete ComboBox: Set .MatchEntry = fmMatchEntryComplete

3. Protect sheet: Khóa sheet, chỉ cho nhập qua form

Kết luận #

UserForm giúp việc nhập liệu chuyên nghiệp, giảm sai sót và tăng năng suất đáng kể!