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à.