Đổi màu cho text cho mỗi lần nhập (1 người xem)

[vanduynguyen1983]

Thân chào các anh chị trên diễn đàn !
Hiện tại e cần làm đỗi màu text mỗi khi mình nhập số liệu hay text vào các ô cell khu vực màu vàng là khu vực mình muốn text đổi màu khi nhập số liệu vào .
Mình có gởi đính kèm file rất mong các bạn coi giúp !

 

[leonguyenz]

Thân chào các anh chị trên diễn đàn !
Hiện tại e cần làm đỗi màu text mỗi khi mình nhập số liệu hay text vào các ô cell khu vực màu vàng là khu vực mình muốn text đổi màu khi nhập số liệu vào .
Mình có gởi đính kèm file rất mong các bạn coi giúp !

Tham khảo code này xem, đổi màu ra sao nữa thì comment để tính tiếp:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [B4:I11]) Is Nothing Then
Target.Interior.ColorIndex = 4
End If
Application.ScreenUpdating = True
End Sub
[/gpecode]

 

[vanduynguyen1983]

Tham khảo code này xem, đổi màu ra sao nữa thì comment để tính tiếp:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [B4:I11]) Is Nothing Then
Target.Interior.ColorIndex = 4
End If
Application.ScreenUpdating = True
End Sub
[/gpecode]

Cái này nó chỉ phù hợp cho mình nhập lần đầu thôi khi mình nhập lại lần 2 thì màu đó vẫn giữ như củ. Ý của mình là khi nhập lần 1 đổi 1 màu và khi nhập lại lần 2 nó sẽ cho ra màu khác.
Bạn giúp mình 2 kiểu màu thôi . VD: trong 1 ô cell B4 nhập lần 1 cho ra màu xanh , nhập lại lần 2 cho màu hồng , nhập lại lần 3 cho ra màu xanh ,nhập lại lần 4 cho ra màu hồng cứ theo tuần hoàn như vậy

 

[leonguyenz]

Cái này nó chỉ phù hợp cho mình nhập lần đầu thôi khi mình nhập lại lần 2 thì màu đó vẫn giữ như củ. Ý của mình là khi nhập lần 1 đổi 1 màu và khi nhập lại lần 2 nó sẽ cho ra màu khác.
Bạn giúp mình 2 kiểu màu thôi . VD: trong 1 ô cell B4 nhập lần 1 cho ra màu xanh , nhập lại lần 2 cho màu hồng , nhập lại lần 3 cho ra màu xanh ,nhập lại lần 4 cho ra màu hồng cứ theo tuần hoàn như vậy

Đặt thêm điều kiện cho Target:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [B4:I11]) Is Nothing Then
If Target.Interior.ColorIndex = 4 Then
Target.Interior.ColorIndex = 7
Else
Target.Interior.ColorIndex = 4
End If
End If
Application.ScreenUpdating = True
End Sub
[/gpecode]

 

[vanduynguyen1983]

Đặt thêm điều kiện cho Target:
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [B4:I11]) Is Nothing Then
If Target.Interior.ColorIndex = 4 Then
Target.Interior.ColorIndex = 7
Else
Target.Interior.ColorIndex = 4
End If
End If
Application.ScreenUpdating = True
End Sub
[/gpecode]

Cảm ơn bạn nhiều .
Bạn có thể giúp mình thêm phần này nữa được không.Dữ liệu được thêm như sau.
Nếu F7 = G8 ,D15=P11,D16=Q11 thì khu vực A13 đến Q17 đổi màu
Nếu F7 = G8 ,D20=P11 thì khu vực A18 đến Q21 đổi màu
Nếu F7 = G8 ,D24=Q11 thì khu vực A22 đến Q25 đổi màu
Nếu F7#G8,D29 = P11 ,D30=Q11 thì A26 đến Q31 đổi màu
Nếu F7#G8,D35 = P11 thì A32 đến Q36 đổi màu
Nếu F7#G8,D40 = Q11 thì A37 đến Q41 đổi màu

 

[leonguyenz]

Cảm ơn bạn nhiều .
Bạn có thể giúp mình thêm phần này nữa được không.Dữ liệu được thêm như sau.
Nếu F7 = G8 ,D15=P11,D16=Q11 thì khu vực A13 đến Q17 đổi màu
Nếu F7 = G8 ,D20=P11 thì khu vực A18 đến Q21 đổi màu
Nếu F7 = G8 ,D24=Q11 thì khu vực A22 đến Q25 đổi màu
Nếu F7#G8,D29 = P11 ,D30=Q11 thì A26 đến Q31 đổi màu
Nếu F7#G8,D35 = P11 thì A32 đến Q36 đổi màu
Nếu F7#G8,D40 = Q11 thì A37 đến Q41 đổi màu

G8 là ô bị Merge với F8 nên không có tác dụng khi so sánh nha bạn, dữ liệu nhập vào ô Merge này được tính cho F8.
Với cách này bạn dùng Conditional Formatting (tô màu theo điều kiện), ví dụ tô màu A13:Q17:

=AND($F$7=$F$8,$D$15=$P$11,$D$16=$Q$11)

Tương tự cho những trường hợp còn lại.
Chú ý dấu #: Trong Excel sử dụng dấu <> thay cho dấu #.

 

[vanduynguyen1983]

G8 là ô bị Merge với F8 nên không có tác dụng khi so sánh nha bạn, dữ liệu nhập vào ô Merge này được tính cho F8.
Với cách này bạn dùng Conditional Formatting (tô màu theo điều kiện), ví dụ tô màu A13:Q17:

=AND($F$7=$F$8,$D$15=$P$11,$D$16=$Q$11)

Tương tự cho những trường hợp còn lại.
Chú ý dấu #: Trong Excel sử dụng dấu <> thay cho dấu #.

Xin lỗi mình nhầm G7 chứ không phải G8 , mình muốn tô màu luôn ô cell chứ không phải chữ vậy làm sao vậy bạn

Cảm ơn bạn

 

[leonguyenz]

Xin lỗi mình nhầm G7 chứ không phải G8 , mình muốn tô màu luôn ô cell chứ không phải chữ vậy làm sao vậy bạn
Cảm ơn bạn

Thì bạn dùng Conditional Formatting với công thức:

=AND($F$7=$G$7,$D$15=$P$11,$D$16=$Q$11)

Tham khảo tô màu theo điều kiện.