Nhập dữ liệu trên form

[ditimdl]

Em tạo ra 1 form để nhập dữ liệu vào bảng tính nhưng không biết xử lý những vấn đề sau:
1. Làm sao để quy định dữ liệu nhập vào là kiểu số?
2. Nhập theo 1 danh sách cho trước?(Giống như dùng validation data kiểu list để kiểm soát nhập dữ liệu)

 

[nghiemkhactienkbnn]

Mượn code của bác Ca_Dafi:

Private Sub TextBox1_Change()
TextBox1 = Format(Replace(TextBox1.Value, " ", ""), "# ##0")
End Sub

Nhưng theo ý của tại hạ thì các hạ nên sử dụng Event AfterUpdate thay cho Change

Kính!

Bác ơi! Chỉ thực hiện được 6 số thôi, còn 7 số có kết quả là! 1233 455

 

[Lệnh Hồ Đại Hiệp]

Bác ơi! Chỉ thực hiện được 6 số thôi, còn 7 số có kết quả là! 1233 455

Bác hãy làm theo Code của bài trên:

Option Explicit
Dim i As Boolean
Private Sub TB1_Change()
    On Error Resume Next
    If i = True Then Exit Sub
    Dim Str As String
    i = True
    Str = Replace(WorksheetFunction.Trim(TB1), " ", "")
    TB1 = Format(Str, "# ### ### ### ### ### ### ###")
    i = False
End Sub

File VD

Chúc vui.

 

[ptm0412]

Nếu là dấu "," thì chỉ cần:

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1.Value, "#,##0")
End Sub

còn dấu " ", chỉ đẹp mắt theo kiểu nào đó, nhưng chả hữu dụng tí nào. Vì để tính toán lại hoặc gán cho cell nào đó, phải replace() trả lại số.