Chia sẻ code để tự chuyển đổi giá trị 1 ô khi nhập liệu

 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 định dạng số sang Text trong Excel,
Tạo form tìm kiếm và nhập dữ liệu trong Excel,
Công thức Excel tự nhảy khi nhập dữ liệu vào dòng tiếp theo,
Chức năng cho phép nhập nhanh dữ liệu,
Hàm chuyển công thức thành TEXT trong Excel,
Hàm lấy nội dung ô trong Excel,
Tạo Form nhập liệu bằng VBA,
Hàm VLOOKUP