Thay đổi màu chữ khi thay đổi dữ liệu. (12 người xem)

[vanvinhctt]

Chào các thầy, anh chị (em) trên GPE. Đầu tiên cho mình gửi lời chúc " Giáng sinh an lành, Năm mới sức khỏe và thành công".
Mình có vấn đề mong được giúp đỡ.
Mình muốn màu chữ sẽ tự động thay đổi khi sửa dữ liệu cụ thể. Nếu nhỏ hơn giá trị ban đầu thì chuyển sang màu đỏ nếu như lơn hơn thì chuyển sang màu xanh. Mong mọi người xem giúp. Cảm ơn!

 

[khoavu87]

Chào các thầy, anh chị (em) trên GPE. Đầu tiên cho mình gửi lời chúc " Giáng sinh an lành, Năm mới sức khỏe và thành công".
Mình có vấn đề mong được giúp đỡ.
Mình muốn màu chữ sẽ tự động thay đổi khi sửa dữ liệu cụ thể. Nếu nhỏ hơn giá trị ban đầu thì chuyển sang màu đỏ nếu như lơn hơn thì chuyển sang màu xanh. Mong mọi người xem giúp. Cảm ơn!

Vấn đề này đơn giản với những ai đã đọc về chủ đề CF. Cụ thể bạn đọc chủ đề này dưới ngay chữ ký của mình nhé.Conditonal Formating-1,Conditonal Formating-2

 

[vanvinhctt]

Cảm ơn bạn Khoa đã giúp đỡ mình nhưng hình như mình vẫn chưa tìm thấy vấn đề của mình. Trong các định dạng mình thấy nó nằm trong khoảng điều kiện cố định. Còn vấn đề của mình thì nó thay đổi không cố đinh trong khoản nào. Bạn có thể nói rõ hơn được không.

 

[leonguyenz]

Bạn nói dữ liệu ban đầu có phải là trên 1 ô? Nếu trên 1 ô khi bạn gõ 1 số lớn hơn để nó chuyển màu thì Conditional Formating làm không được mà phải dùng đến Code. Nếu giá trị ban đầu của bạn nằm ở ô khác, ví dụ: giá trị ban đầu là cột A, giá trị mới là cột B thì tại ô Formula bạn gõ =$B1<$A1 rồi Format màu đỏ cho nó, thêm 1 Rule cho nó nữa =$B1>A1 rồi Format màu xanh cho nó.

 

[hungpecc1]

Chào các thầy, anh chị (em) trên GPE. Đầu tiên cho mình gửi lời chúc " Giáng sinh an lành, Năm mới sức khỏe và thành công".
Mình có vấn đề mong được giúp đỡ.
Mình muốn màu chữ sẽ tự động thay đổi khi sửa dữ liệu cụ thể. Nếu nhỏ hơn giá trị ban đầu thì chuyển sang màu đỏ nếu như lơn hơn thì chuyển sang màu xanh. Mong mọi người xem giúp. Cảm ơn!

Đồng chí đưa file cụ thể lên với ví dụ minh họa để dễ hình dung ý đồ của bạn hơn

 

[vanvinhctt]

Cảm ơn bạn leonguyenz đã giúp mình. Đúng vậy dữ liệu của mình thì nhiều ô và dữ liệu chỉ thay đổi màu khi sửa trong ô đó ví dụ: Ô A1=10 nếu mình đổi thành 15 thì số 15 chuyển sang màu xanh còn 8 thì chuyển sang màu đỏ. Các ô còn lại tương tự. Bạn biết viết code thì giúp mình. Thanks

 

[Quang_Hải]

Cảm ơn bạn leonguyenz đã giúp mình. Đúng vậy dữ liệu của mình thì nhiều ô và dữ liệu chỉ thay đổi màu khi sửa trong ô đó ví dụ: Ô A1=10 nếu mình đổi thành 15 thì số 15 chuyển sang màu xanh còn 8 thì chuyển sang màu đỏ. Các ô còn lại tương tự. Bạn biết viết code thì giúp mình. Thanks

Gần cuối năm sao có quá nhiều bài cần giúp nhưng nhất định không gởi file lên.

 

[hungpecc1]

Cảm ơn bạn leonguyenz đã giúp mình. Đúng vậy dữ liệu của mình thì nhiều ô và dữ liệu chỉ thay đổi màu khi sửa trong ô đó ví dụ: Ô A1=10 nếu mình đổi thành 15 thì số 15 chuyển sang màu xanh còn 8 thì chuyển sang màu đỏ. Các ô còn lại tương tự. Bạn biết viết code thì giúp mình. Thanks

Đã mơ mơ hồ hồ thì mình cũng xin bạo gan viết đoạn code hư hư thực thực
bạn thử xem dùng được không

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Range("A1 :ZA1"), Target) Is Nothing Then
        For Each mycell In Range("A1:ZA1")
            If mycell.Value = 15 Then
                mycell.Font.ColorIndex = 3
            Else
                mycell.Font.ColorIndex = 4
            End If
        Next
    End If
    Application.EnableEvents = True
End Sub

 

[vanvinhctt]

Tự động tô màu khi thay đổi dữ liệu

Mình cảm ơn các bạn đã tham gia giúp mình. Hôm trước mình có nhờ mọi người giúp nhưng nghĩ không cần file nên mình không gửi. hôm nay minh gửi file lên nhờ mọi người xem giúp. ( Tât cả các ô đều như vậy khi mình thây đổi cũng tự động thay đổi màu, các mỗi ô là một số liệu khác nhau

 

[nhapmon]

đâu bạn thử chép cái này dzo sheet1 trong của sổ VBA

Private Sub Worksheet_Change(ByVal Target As Range)
Static OldVal As Variant
newval = Target.Value

If NewVal < OldVal Then
Target.Select
Selection.Font.ColorIndex = 3
ElseIf NewVal > OldVal Then
Target.Select
Selection.Font.ColorIndex = 5
Else
Target.Select
Selection.Font.ColorIndex = 0
End If

OldVal = Target.Value

End Sub

 

[vanvinhctt]

Sao mình làm theo hướng dẫn của bạn mà vẫn không được bạn nhapmon. Mình đã hạ Macro security xuống mức thấp rồi nhưng vẫn không được. Nhờ bạn xem lại giúp mình. Cảm ơn

 

[nhapmon]

Sao mình làm theo hướng dẫn của bạn mà vẫn không được bạn nhapmon. Mình đã hạ Macro security xuống mức thấp rồi nhưng vẫn không được. Nhờ bạn xem lại giúp mình. Cảm ơn

file của bạn bị cái gì đó, mình học chưa tới nên ko hiểu, nó ko cho save file với macro. tạo lại file khác cho bạn nè

 

[Quang_Hải]

file của bạn bị cái gì đó, mình học chưa tới nên ko hiểu, nó ko cho save file với macro. tạo lại file khác cho bạn nè

Mình nghĩ tác giả muốn thế này cơ

Dim Oldval As Double
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Value < Oldval Then
        Target.Font.ColorIndex = 3
    ElseIf Target.Value > Oldval Then
        Target.Font.ColorIndex = 5
    End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If IsNumeric(Target) Then Oldval = Target.Value
End If
End Sub

 

[vanvinhctt]

Cảm ơn bạn rất nhiều. Đây là điều mình cần. cho nó hoạt động trên tất cả các file được không bạn

 

[Quang_Hải]

Cảm ơn bạn rất nhiều. Đây là điều mình cần. cho nó hoạt động trên tất cả các file được không bạn

Bạn đặt câu hỏi chưa rõ ràng. Có 2 câu trả lời với 2 cách hiểu khác nhau. Vậy bạn đang nói code nào là đúng cái bạn cần thế?

 

[vanvinhctt]

Ý mình nói về code trong file tomau.xls
Nhưng có một số vấn đề mình cũng chưa rõ được
1. Nếu giá trị hai số liền nhau = nhau thì không tự động tô màu được
2. Định dạng tô màu số 0 bằng dấu " - " thì khác với 0.00
3. Khi copy paste thì code sẽ báo lỗi.
4. Mình chỉ cần thây đổi giá trị bằng số thôi còn chữ thì không cần.
Nhờ bạn xem giúp. Hii làm phiền quá

 

[nhapmon]

Ý mình nói về code trong file tomau.xls
Nhưng có một số vấn đề mình cũng chưa rõ được
1. Nếu giá trị hai số liền nhau = nhau thì không tự động tô màu được
2. Định dạng tô màu số 0 bằng dấu " - " thì khác với 0.00
3. Khi copy paste thì code sẽ báo lỗi.
4. Mình chỉ cần thây đổi giá trị bằng số thôi còn chữ thì không cần.
Nhờ bạn xem giúp. Hii làm phiền quá

code của bạn QuangHai đúng hơn, mình sử dụng code cúa bạn ấy làm cho bạn, mình chỉ giới hạn trong cột C