Xin giúp bôi đỏ số sau dấu bằng trong diễn giải khối lượng (1 người xem)

[Lê Phát Huy]

Dể như ăn cơm vậy mà:

Chép code vào là được

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 3 And Target.Value <> "" And InStr(Target.Value, "=") Then
        Target.Characters(InStr(Target.Value, "=") + 1, Len(Target.Value)).Font.Color = vbRed
    End If
    
End Sub

 

[vu_tuan_manh_linh]

File này hy vọng đúng ý chủ thớt!!

 

[Lê Phát Huy]

File này hy vọng đúng ý chủ thớt!!

Nhìn code dài thòng, đâu nhất thiết phải thế. Test thử thấy nó cắt bỏ người ta hết 1 kí tự???

 

[emconnhaxd]

Dể như ăn cơm vậy mà:

Chép code vào là được

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 3 And Target.Value <> "" And InStr(Target.Value, "=") Then
        Target.Characters(InStr(Target.Value, "=") + 1, Len(Target.Value)).Font.Color = vbRed
    End If
    
End Sub

Mình đã làm được nhờ code của bạn, thank nhé

 

[emconnhaxd]

Dể như ăn cơm vậy mà:

Chép code vào là được

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 3 And Target.Value <> "" And InStr(Target.Value, "=") Then
        Target.Characters(InStr(Target.Value, "=") + 1, Len(Target.Value)).Font.Color = vbRed
    End If
    
End Sub

Còn một lỗi code của bạn, nếu dấu = không phải phép tính thì nó lạ tự xóa ký tự phía sau:

 

[huuthang_bd]

Dể như ăn cơm vậy mà:

Chép code vào là được

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 3 And Target.Value <> "" And InStr(Target.Value, "=") Then
        Target.Characters(InStr(Target.Value, "=") + 1, Len(Target.Value)).Font.Color = vbRed
    End If
    
End Sub

Đúng là code ngắn nhưng chưa đủ.
Thử chọn 2 ô trở lên rồi xóa hoặc copy - paste sẽ lỗi ngay.

 

[Lê Phát Huy]

Còn một lỗi code của bạn, nếu dấu = không phải phép tính thì nó lạ tự xóa ký tự phía sau:

Chỉ là tô màu thôi, đâu có xóa gì đâu bạn?

@huuthang_bd: Cám ơn bạn, mình them (If Target.Rows.Count > 1 Then ... ) vào để xử lí nó.

 

[huuthang_bd]

Chỉ là tô màu thôi, đâu có xóa gì đâu bạn?

@huuthang_bd: Cám ơn bạn, mình them (If Target.Rows.Count > 1 Then ... ) vào để xử lí nó.

Xử lý như vậy thì không ổn. Nếu người ta chọn A1:B1 rồi xóa cũng bị lỗi. Hơn nữa nếu người ta copy dữ liệu ở đâu đó dán vào cột C thì cũng phải tô màu cho người ta chứ.

 

[vu_tuan_manh_linh]

Nhìn code dài thòng, đâu nhất thiết phải thế. Test thử thấy nó cắt bỏ người ta hết 1 kí tự???

Đoạn code này là tại #5 của chủ thớt. Tôi chỉ thêm câu lệnh để đánh dấu màu đỏ sau dấu = sau khi thêm dòng tính toán và enter. Cắt ký tự trắng trước và sau dấu = không ảnh hưởng đến kết quả. Nếu chủ thớt muốn thì vẫn làm được thôi.

 

[Lê Phát Huy]

Xử lý như vậy thì không ổn. Nếu người ta chọn A1:B1 rồi xóa cũng bị lỗi. Hơn nữa nếu người ta copy dữ liệu ở đâu đó dán vào cột C thì cũng phải tô màu cho người ta chứ.

Vậy nhờ bạn xử lí ca này giúp nhé.

 

[huuthang_bd]

Vậy nhờ bạn xử lí ca này giúp nhé.

Tôi thì tôi làm vầy

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Cll As Range, Pos As Long
On Error Resume Next
Set Rng = Intersect(Columns(3), Target)
If Not Rng Is Nothing Then
    For Each Cll In Rng
        Pos = InStr(Cll.Value, "=")
        If Pos > 0 Then Cll.Characters(Pos + 1, Len(Cll.Value) - Pos).Font.Color = vbRed
    Next
End If
End Sub