Cảnh báo khi nhập sai kiểu dữ liệu (1 người xem)

[letuongqt]

Làm như thế nào để hiện bảng cảnh báo đồng thời không cho nhập dữ liệu tiếp nếu dữ liệu nhập vào không phải là kiểu số (Ví dụ : khi lỡ tay nhập nhầm kiểu text ,...) . Xin được chỉ dẫn , rất cảm ơn .

 

[hoa35ktxd]

Bạn hỏi không cụ thể.
Nhập ở đâu? trên form hay trên cell?
Nếu trên form thì dùng các sự kiện KeyDown, KeyUp để kiểm soát ký tự nhập vào
Ví dụ:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    'Chặn những ký tự không phải là số'
    if not isnumeric(chr(keycode)) then keycode=0
End Sub

Còn nhập trực tiếp trên cell thì có thể làm như sau.

Dim OldVL as string
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not IsNumeric(Target.Value) Then
        Msgbox "Bạn đã nhập sai số liệu"
        Target.Value = OldVL
    Else
        OldVL = Target.Value
    End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 
    OldVL = Target.Value
End Sub

 

[ndu96081631]

Làm như thế nào để hiện bảng cảnh báo đồng thời không cho nhập dữ liệu tiếp nếu dữ liệu nhập vào không phải là kiểu số (Ví dụ : khi lỡ tay nhập nhầm kiểu text ,...) . Xin được chỉ dẫn , rất cảm ơn .

Cái này công cụ Excel đã có sẳn: Validation (trong menu Data\Validation)
Bạn xem file và nhập thử

 

[letuongqt]

Cái này công cụ Excel đã có sẳn: Validation (trong menu Data\Validation)
Bạn xem file và nhập thử

Nhờ ndu96081631 hướng dẫn chi tiết dùm (vùng tô màu ).Xin cảm ơn

 

[ndu96081631]

Nhờ ndu96081631 hướng dẫn chi tiết dùm (vùng tô màu ).Xin cảm ơn

Đây là file hướng dẩn bằng hình, hy vọng bạn đọc xong có thể tự mình làm được

 

[Dek]

Tôi gửi cho bạn File exel đính kèm có hướng dẫn cách thực hiện chi tiết trong đó để bạn tham khảo, chúc thành công !