Chia sẻ code tự động chuyển đổi giá trị 1 ô khi nhập liệu. Ví dụ nhập 210902 sẽ tự động chuyển thành 2021/09/02.
Private Sub Worksheet_Change(ByVal Target As Range)
‘Bộ có thể thay đổi lưỡi dao mỗi khi nhập liệu
Dim Vungthaydoi Như Tầm
Đặt wangthaydoi = Phạm vi(“C:C”)
‘Nếu bạn thay đổi giá trị, bạn sẽ mất nó
Nếu Target.Count > 1 thì Thoát Sub
‘Nếu giá trị ở trạng thái, thì quá đắt
Nếu Target.Value = “” Thì Thoát Sub
‘Kiểm tra xem bạn có thay thế hay không
Nếu Giao Nhau(Target, wangthaydoi) Chẳng Là Gì Thì
‘Không thi thì không đậu
‘Nếu việc thực hiện được thực hiện sau khi khác
Khác
‘Nếu giá trị đầu vào không khớp, thì nó sẽ không hoạt động
Khi Lỗi GoTo erh
‘Tat event, khong thi ta se quay lai event nay
Application.EnableEvents = Sai
‘Mã thay vì giá trị o
Target.Value = DateSerial(“20” & Left(Target.Value, 2), Mid(Target.Value, 3, 2), Right(Target.Value, 2))
‘Sự kiện lai dơi
Application.EnableEvents = True
kết thúc nếu
Thoát phụ
‘Tôi rất xin lỗi’
ơ:
MsgBox (“Giá trị đã nhập không hợp lệ! Vui lòng kiểm tra lại”)
Target.Value = “”
Application.EnableEvents = True
kết thúc phụ
Sao chép mã:
Private Sub Worksheet_Change(ByVal Target As Range)
'Set vung can thay doi moi khi nhap lieu
Dim vungthaydoi As Range
Set vungthaydoi = Range("C:C")
'Neu thay doi gia tri nhieu o thi thoat
If Target.Count > 1 Then Exit Sub
'Neu gia tri o bang rong thi thoat
If Target.Value = "" Then Exit Sub
'Check o thay doi co trung voi vung thay doi khong
If Intersect(Target, vungthaydoi) Is Nothing Then
'Neu khong thi khong thuc hien gi ca
'Neu co thi thuc hien khoi lenh sau else
Else
'Bay loi neu gia tri nhap vao khong hop le
On Error GoTo erh
'Tat event, neu khong thi se lap lai vo han lan event nay
Application.EnableEvents = False
'Code thay doi gia tri o
Target.Value = DateSerial("20" & Left(Target.Value, 2), Mid(Target.Value, 3, 2), Right(Target.Value, 2))
'Bat lai event
Application.EnableEvents = True
End If
Exit Sub
'Phan bay loi o day
erh:
MsgBox ("Gia tri nhap vao khong hop le! Vui long kiem tra lai")
Target.Value = ""
Application.EnableEvents = True
End Sub
Chuyển đổi định dạng số thành Văn bản trong Excel,
Tạo form tìm kiếm và nhập dữ liệu trong Excel,
Công thức Excel tự động nhảy khi nhập dữ liệu ở dòng tiếp theo,
Chức năng cho phép nhập liệu nhanh chóng,
Hàm chuyển công thức sang dạng TEXT trong Excel,
Hàm lấy nội dung ô trong Excel,
Tạo form nhập liệu bằng VBA,
VLOOKUP . chức năng
