Xin addin tô màu những ô công thức khác nhau trong cùng một cột

[theducw87]

Xin chào các bác.
Hiện em cần 1 addin tô màu cho các ô có công thức trong một cột với điều kiện: mỗi một loại công thức sẽ hiện 1 màu để dễ dàng kiểm tra.
Bác nào có addin hoặc mã vba cho em xin với nhé.
Cảm ơn các bác.

 

[Binbo2020]

Xin chào các bác.
Hiện em cần 1 addin tô màu cho các ô có công thức trong một cột với điều kiện: mỗi một loại công thức sẽ hiện 1 màu để dễ dàng kiểm tra.
Bác nào có addin hoặc mã vba cho em xin với nhé.
Cảm ơn các bác.
View attachment 257840

Bạn định nghĩa thế nào là khác nhau, như vídụ bạn đưa thì excel sẽ hiểu là chẳng có ô nào giống nhau cả chạy từ A3-A19 có giống nhau đâu

 

[huuthang_bd]

Dựa vào công thức dạng R1C1 (FormulaR1C1), xác định công thức xuất hiện nhiều lần nhất (tạm gọi là công thức chính). Tô màu các ô có công thức khác với công thức chính. Nếu muốn tô màu khác nhau cho các công thức khác nhau thì dùng thêm 1 Dictionary.

 

[theducw87]

Dựa vào công thức dạng R1C1 (FormulaR1C1), xác định công thức xuất hiện nhiều lần nhất (tạm gọi là công thức chính). Tô màu các ô có công thức khác với công thức chính. Nếu muốn tô màu khác nhau cho các công thức khác nhau thì dùng thêm 1 Dictionary.

cho em xin bài viết hướng dẫn với. Em chưa dùng các công cụ này bao giờ

 

[Ba Tê]

cho em xin bài viết hướng dẫn với. Em chưa dùng các công cụ này bao giờ

Quét chọn vùng B3 đến B19 rồi bấm nút.

 

[huhumalu]

Quét chọn vùng B3 đến B19 rồi bấm nút.

Chuẩn chỉ và lẹ rồi, chưa nghĩ ra cái nào hay hơn.
Xin phép bê code của anh @Ba Tê ra ngoài nhé.

Option Explicit
Public Sub Gpe()
Dim Cll As Range, Txt As String, Mau As Long
    Mau = 3
With CreateObject("Scripting.Dictionary")
    For Each Cll In Selection
        Txt = Cll.FormulaR1C1
        If Not .Exists(Txt) Then
            Mau = Mau + 1
            .Item(Txt) = Mau
            Cll.Interior.ColorIndex = Mau
        Else
            Cll.Interior.ColorIndex = .Item(Txt)
        End If
    Next Cll
End With
End Sub

 

[Ba Tê]

Chuẩn chỉ và lẹ rồi, chưa nghĩ ra cái nào hay hơn.
Xin phép bê code của anh @Ba Tê ra ngoài nhé.

Option Explicit
Public Sub Gpe()
Dim Cll As Range, Txt As String, Mau As Long
    Mau = 3
With CreateObject("Scripting.Dictionary")
    For Each Cll In Selection
        Txt = Cll.FormulaR1C1
        If Not .Exists(Txt) Then
            Mau = Mau + 1
            .Item(Txt) = Mau
            Cll.Interior.ColorIndex = Mau
        Else
            Cll.Interior.ColorIndex = .Item(Txt)
        End If
    Next Cll
End With
End Sub

Màu quá con số 56 là "tèo".

 

[huhumalu]

Màu quá con số 56 là "tèo".

Search thấy nó cho dùng.

Range("A1").Interior.Color = RGB(255, 0, 0)

Có RGB thì chiến tất Mã Màu RBG
Làm file nghịch cho vui

 

[FatBear]

giả sử ra 2 màu nó khá giống nhau thì phân biệt mỏi lắm ))