Mong mọi người giúp đỡ việc đổi màu ô

[haitac91]

Chào mọi người, e có chút vướng mắc mà tìm hoài k thấy câu trả lời !! Mong các cao thủ giúp e cái (

Chả là em muốn giá trị trong ô A1 đổi màu thì giá trị trong ô A2 tự đổi màu theo!! Mà không tác động vào ô A2 nhé ...
Ví dụ: ô A1 e để số 1 màu vàng thì A2 cũng tự đổi thành số 1 màu vàng !! (Không đụng vào A2 nhé...) Nói gọn lại là A1 thế nào thì A2 y như thế

Cám ơn các bác trước

 

[bebo021999]

Thử dùng code xem

Sub doimau()
Range("A2").Font.ColorIndex = Range("A1").Font.ColorIndex
End Sub

 

[Luc Van]

Chào mọi người, e có chút vướng mắc mà tìm hoài k thấy câu trả lời !! Mong các cao thủ giúp e cái (

Chả là em muốn giá trị trong ô A1 đổi màu thì giá trị trong ô A2 tự đổi màu theo!! Mà không tác động vào ô A2 nhé ...
Ví dụ: ô A1 e để số 1 màu vàng thì A2 cũng tự đổi thành số 1 màu vàng !! (Không đụng vào A2 nhé...) Nói gọn lại là A1 thế nào thì A2 y như thế

Cám ơn các bác trước

Hai giá trị của 2 cells có bằng nhau không vậy?

 

[ndu96081631]

Chào mọi người, e có chút vướng mắc mà tìm hoài k thấy câu trả lời !! Mong các cao thủ giúp e cái (

Chả là em muốn giá trị trong ô A1 đổi màu thì giá trị trong ô A2 tự đổi màu theo!! Mà không tác động vào ô A2 nhé ...
Ví dụ: ô A1 e để số 1 màu vàng thì A2 cũng tự đổi thành số 1 màu vàng !! (Không đụng vào A2 nhé...) Nói gọn lại là A1 thế nào thì A2 y như thế

Cám ơn các bác trước

Hỏi lại cho rõ: Việc đổi màu tại A1 được làm bằng cách nào? Tự tay bạn tô màu hay là màu sắc tự động do Conditional Formating điều khiển?
-----------------------------

Thử dùng code xem

Sub doimau()
Range("A2").Font.ColorIndex = Range("A1").Font.ColorIndex
End Sub

Hổng biết giữa 2 cách:
- Cách 1: Alt + F8, chọn tên Macro rồi bấm Run
- Cách 2: Bấm chọn bảng màu, chọn màu
2 cách ấy thì cách nào sẽ nhanh hơn nhỉ?

 

[haitac91]

Ax, các bác hiểu sai ý e rồi .... chả là e có một cái bảng giá chứng khoán, trong đó thì e để tự get data về !! ở trên thì e làm một cái report, e mún ở chỗ "Giá Hiện Tại" nó sẽ lấy data của 1 ô phía dưới kèm theo đổi màu theo ô đó như là hôm nay đỏ hay xanh để tiện theo dõi !!
Em gửi theo file đó để mọi người dễ hiểu: http://www.mediafire.com/?ovs71xja7gq0343
Cám ơn mọi người đã quan tâm

 

[haitac91]

Không ai giúp mình cái à

 

[ndu96081631]

Không ai giúp mình cái à

Mở file ra xem cũng chẳng hiểu gì mấy. Thấy chẳng có liên quan gì đến chủ đề topic này là ĐỒI MÀU
Bạn giải thích rõ ràng thì sẽ được người ta giúp thôi

 

[bebo021999]

Mở file ra xem cũng chẳng hiểu gì mấy. Thấy chẳng có liên quan gì đến chủ đề topic này là ĐỒI MÀU
Bạn giải thích rõ ràng thì sẽ được người ta giúp thôi

Em đoán là muốn theo dõi một số mã CK nhất định, nếu tăng điểm thì màu xanh, giảm thì màu đỏ.
Em có viết code như sau:

Sub ganmau()
Dim R1, R2 As Range
For Each R1 In Range("C3:C6")
For Each R2 In Range("C9:C19")
If R2.Value = R1.Value Then 
R1.Offset(0, 1).Value = R2.Offset(0, 1).Value
R1.Offset(0, 1).Font.ColorIndex = R2.Offset(0, 1).Font.ColorIndex
End If
Next
Next
End Sub

Các sư phụ về code sửa giúp cho ngắn gọn.
File gốc bị con macro gì mà đánh dấu " lại hiển thị là @ và ngược lại. Em phải làm file giả định khác.