Anh quanghai1969 ơi hôm vừa rồi em có hỏi anh về đoạn code nhập điểm nhanh, qua mấy đêm mầy mò em đã chỉnh được đoạn code (có thể nói là đáp ứng được 99,99% yêu cầu của em) nhưng khổ nỗi khi tes đi tes lại nó lại nảy sinh một vấn đề sau: khi nhấn nút Delete thì Cell đó lại xuất hiện số
0.0 và không xóa được, chỉ khi bôi đen Cell đó rồi nhấn nút Delete hoặc nhấn một Text bất kỳ thì nó mới rỗng. Vậy làm sao hả anh? Giúp em với nhé.
Code em đã chỉnh đây, có gì anh chỉ giáo. Cám ơn anh và mọi người rất nhiều.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set isect = Application.Intersect(Target, Sheet1.Range("A1:A100"))
If Not isect Is Nothing And Target.Count = 1 Then
If InStr(Target, ",") > 1 Then Target = Replace(Target, ",", "")
If InStr(Target, ".") > 1 Then Target = Replace(Target, ".", "")
If IsNumeric(Target.Value) Then
If Len(Target) > 2 And Target <> 100 Then
Target.NumberFormat = "0.0"
Target = Application.Round((Left(Target, 3) / 100), 1)
ElseIf Len(Target) > 1 And Target <> 10 And Target <> 100 Then
Target.NumberFormat = "0.0"
Target.Value = Left(Target, 2) / 10
ElseIf Target = 100 Then
Target.NumberFormat = "0.0"
Target.Value = Target / 10
Else
Target.NumberFormat = "0.0"
Target.Value = Target * 1
End If
Else
Target = Empty
Target.Select
End If
End If
Application.EnableEvents = True
End Sub
Giúp em với các anh ơi!
10")) Then
