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

Posted on by mtoplistChuyên mục:Top List

Chia sẻ code để tự chuyển đổi giá trị 1 ô khi nhập liệu. Ví dụ nhập 210902 sẽ tự chuyển thành 2021/09/02.

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

 

Copy code:

 

 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

mtoplist