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

[emconnhaxd]

Mình đã sử dụng được file diễn giải nhưng lại mắc ở phần sau dấu bằng chuyển sang bôi đỏ. mong ad trợ giúp

 

[vu_tuan_manh_linh]

Cái này dễ thôi mà bạn!

 

[emconnhaxd]

Cái này dễ thôi mà bạn!

Chỉ giúp mình được không
Không hiểu sao mình không up file lên được

 

[vu_tuan_manh_linh]

Chỉ giúp mình được không
Không hiểu sao mình không up file lên được

E là không thể vì chẳng biết code của bạn thế nào!

 

[emconnhaxd]

E là không thể vì chẳng biết code của bạn thế nào!

Code đó nè bạn
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DL As Range, Dem As Range, Tam, i, Dau, Cuoi


On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("C7:C10000")) Is Nothing Then
Set DL = Target


For Each Dem In DL
If Dem <> "" Then
If InStr(Dem, "=") Then Dem = Left(Dem, InStr(Dem, "=") - 1)
Tam = Dem


If InStr(Tam, ":") Then Tam = Right(Tam, Len(Tam) - InStr(Tam, ":"))
Tam = Replace(Tam, ",", ".")


Dem = Dem & "=" & Evaluate(Tam)
End If
Next Dem


For i = DL.Row + DL.Rows.Count - 1 To 1 Step -1
If Range("B" & i) <> "" Then
Dau = i
Range("E" & Dau).Value = 0
Exit For
End If
Next i


For i = DL.Row + DL.Rows.Count - 1 To UsedRange.Rows.Count
If Range("B" & i) <> "" And Range("C" & i) <> "" Then
Cuoi = i - 1
Exit For
Else
Cuoi = i
End If
Next i


Tam = 0
For i = Dau + 1 To Cuoi
If InStr(Range("C" & i), "=") Then
Tam = Tam + Right(Range("C" & i), Len(Range("C" & i)) - InStr(Range("C" & i), "="))
End If
Next i


Range("E" & Dau).Value = Tam
End If
Application.EnableEvents = True
End Sub

 

[vanle33]

Mình đã sử dụng được file diễn giải nhưng lại mắc ở phần sau dấu bằng chuyển sang bôi đỏ. mong ad trợ giúp

Chữ màu xanh đỏ tím vàng gì ... in ra cũng thành màu đen hết mà lại còn bị mờ nữa + không lẽ bạn in màu file dự toán?
Code #5 là của bạn HungQuoc49. Chắc chỉnh được định dạng kết quả xuất ra nhưng tôi không biết code, hehe

 

[emconnhaxd]

Chữ màu xanh đỏ tím vàng gì ... in ra cũng thành màu đen hết mà lại còn bị mờ nữa + không lẽ bạn in màu file dự toán?
Code #5 là của bạn HungQuoc49. Chắc chỉnh được định dạng kết quả xuất ra nhưng tôi không biết code, hehe

Chữ màu đỏ sẽ dễ hơn trong khi mình kiểm soát các khối lượng

 

[Hai Lúa Miền Tây]

Chữ màu đỏ sẽ dễ hơn trong khi mình kiểm soát các khối lượng

Bạn chạy thử code sau:

Sub Tomau()

    Dim cll As Range
    For Each cll In Range("C8:C22")
        If InStr(cll, "=") Then
           cll.Characters(InStr(cll, "=") + 1, Len(cll)).Font.Color = vbRed
        End If
    Next


End Sub

 

[vu_tuan_manh_linh]

Thử cách này xem thế nào!!

Range("E" & Dau).Value = Tam
'Them doan code sau thu coi
Range("E" & Dau).Characters(InStr(Range("E" & Dau).value, "=") + 1, Len(Range("E" & Dau).value)).Font.Color = vbRed

End If
Application.EnableEvents = True
End Sub

 

[emconnhaxd]

Bạn chạy thử code sau:

Sub Tomau()

    Dim cll As Range
    For Each cll In Range("C8:C22")
        If InStr(cll, "=") Then
           cll.Characters(InStr(cll, "=") + 1, Len(cll)).Font.Color = vbRed
        End If
    Next


End Sub

Không được bạn ơi, của Vu-Tuan-manh-Linh cũng không được

 

[Hai Lúa Miền Tây]

Không được bạn ơi, của Vu-Tuan-manh-Linh cũng không được

Không được chỗ nào vậy bạn? File bạn đâu, gửi xem thử nhé.

 

[emconnhaxd]

Không được chỗ nào vậy bạn? File bạn đâu, gửi xem thử nhé.

Đây nè bạn, mình thử không được

 

[giaiphap]

Đây nè bạn, mình thử không được

Bạn nói thế nào vậy? cũng chính file của bạn mình tải về và chạy code file của bạn luôn đúng hoàn toàn mà.

 

[RoberLiem]

Đây nè bạn, mình thử không được

Code trong file có dòng:
For Each cll In Range("C8:C22")
...
Code chỉ làm việc từ C8:C22, các dòng dưới "KHÔNG ĐƯỢC" là phải rồi.
Bạn sửa thành C8:C2000 thử xem sao.

 

[emconnhaxd]

Code trong file có dòng:
For Each cll In Range("C8:C22")
...
Code chỉ làm việc từ C8:C22, các dòng dưới "KHÔNG ĐƯỢC" là phải rồi.
Bạn sửa thành C8:C2000 thử xem sao.

Mình không thấy được, mình gửi ảnh nè. không phải do C8 đến 22, vì từ 8 đến 22 đâu được

 

[emconnhaxd]

Mình vào trong code rồi Run thì thấy bôi đỏ, vậy không phải tự động rồi, mình cần khi mình đánh dấu bằng là phía sau tự động phải bôi đỏ rồi

 

[giaiphap]

Mình vào trong code rồi Run thì thấy bôi đỏ, vậy không phải tự động rồi, mình cần khi mình đánh dấu bằng là phía sau tự động phải bôi đỏ rồi

Vậy bạn thay đoạn code trong file thành đoạn code dưới đây.

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

 

[Hai Lúa Miền Tây]

Mình vào trong code rồi Run thì thấy bôi đỏ, vậy không phải tự động rồi, mình cần khi mình đánh dấu bằng là phía sau tự động phải bôi đỏ rồi

Khó có thể làm như bạn, theo bạn miêu tả thì đó là sự kiện keydown, mà trong worksheet thì làm gì có sự kiện này, có chăng là dùng sự kiện change, có nghĩa là khi cập nhập xong giá trị trong cell, sang cell khác, lúc đó mới tiến hành chạy code.

 

[vanle33]

Khó có thể làm như bạn, theo bạn miêu tả thì đó là sự kiện keydown, mà trong worksheet thì làm gì có sự kiện này, có chăng là dùng sự kiện change, có nghĩa là khi cập nhập xong giá trị trong cell, sang cell khác, lúc đó mới tiến hành chạy code.

Chính xác thì lập Dự toán như hình dưới này bạn. Nhập cấu kiện + kích thước xong (sau chữ 0,22) nhấn Enter là ra kết quả là ' = 12,298'. Trước và sau dấu bằng có 1 dấu cách.

 

[Hai Lúa Miền Tây]

Chính xác thì lập Dự toán như hình dưới này bạn. Nhập cấu kiện + kích thước xong (sau chữ 0,22) nhấn Enter là ra kết quả là ' = 12,298'. Trước và sau dấu bằng có 1 dấu cách.

Thì bạn nên biến tấu theo code trên của tôi là được mà.

 

[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