Excel tìm và thay thế định dạng có điều kiện

Tôi cần trợ giúp tạo công thức để sử dụng cho tình huống mà tôi gặp phải với bảng tính excel mà sếp đưa cho tôi hôm nay. Đây là tình hình. Cột A có danh sách tên nhân viên (hơn 400 người trong số họ) hiện được định dạng bằng các màu ô cụ thể tùy thuộc vào bộ phận của họ. Các cột từ B đến AC (tổng cộng 28 cột) có tên các khóa đào tạo được cung cấp với nhân viên đã tham gia khóa đào tạo đó được liệt kê bên dưới nhưng không có màu ô. Tôi muốn có thể lấy tên từ cột a và thay thế tất cả các trường hợp trùng tên bằng màu ô mới. Tôi đã bắt đầu sử dụng phương pháp tìm và thay thế nhưng với hơn 400 tên sẽ mất nhiều thời gian. Tôi hy vọng có một công thức cho phép tôi thay đổi tất cả chúng cùng một lúc

Cám ơn vì tất cả sự giúp đỡ bất kỳ lúc nào

Thêm. Đây là một lời giải thích tốt hơn tôi hy vọng về những gì tôi muốn làm. Ví dụ. Cột A có Joe Smith (ô màu lam), Jane Doe (ô màu lục) và Harry Potter (ô màu cam). Tôi muốn thay thế tất cả các phiên bản của những tên này bằng màu ô trong mỗi cột trong số 28 cột nhưng muốn thực hiện tất cả cùng một lúc thay vì từng cái một

Hôm qua, tôi đã bình luận trên twitter rằng tôi đang cố gắng tìm hiểu xem liệu việc kiểm tra các công thức định dạng có điều kiện trong 40 sổ làm việc theo cách thủ công để đảm bảo chúng chính xác hay không sẽ nhanh hơn so với việc viết một công cụ để làm việc đó. Bạn của tôi, Jon Peltier, đã tweet lại rằng “Không biết nhanh hơn thế nào, nhưng viết mã sẽ thú vị hơn. ”   Tôi đã nghĩ về điều đó, nhưng sau đó khi tôi phát hiện ra rằng một sổ làm việc trả về tổng số 250 quy tắc… câu trả lời là viết mã cho nó

Vâng, vâng, Jon đã đúng… nếu định nghĩa của bạn về niềm vui giống như việc thực hiện nha khoa tại nhà cho ống chân răng của bạn

Mã mà tôi đã sử dụng để sửa đổi các định dạng có điều kiện của mình cực kỳ không đáng tin cậy và đang trả về các hiệu ứng khác nhau tùy thuộc vào máy của người dùng chạy mã đó, phiên bản Excel và có thể một số thứ khác. (Nó cũng làm những việc khác sau khi tôi ăn trưa. )

Cuối cùng tôi đã từ bỏ việc viết lại các quy tắc định dạng có điều kiện và cuối cùng chỉ chạy một macro để cho tôi biết tôi cần chỉnh sửa công thức nào

[vb]Sub FindCFIssues()

    Dim ws dưới dạng bảng tính
    Dim ftc dưới dạng FormatCondition
    Dim sFormula dưới dạng chuỗi
    Dim sFind dưới dạng chuỗi    Dim sFind dưới dạng chuỗi    Dim sReplace As String
    Dim lCount As Long

    Khi Lỗi Tiếp tục Tiếp tục
    sFind = "ops-Internal"
    sReplace = "ops_Internal"

    Đối với mỗi ws trong ActiveWorkbook. Bảng tính
        Đối với mỗi ftc tính bằng ws. Phạm vi đã sử dụng. FormatConditions
            Với ftc
                sFormula = Replace(. Công thức 1, Tìm, Thay thế, 1, so sánh. =vbTextCompare)
                Nếu. Công thức 1 <> Công thức sau đó
                    Gỡ lỗi. In ws. Tên & ". " &. Áp dụng đối với. Địa chỉ
                    lCount = lCount + 1
             End If
            End With
        ftc tiếp theo
    Next ws

    Nếu lCount > 0 Thì
        MsgBox "Đã hoàn tất, đã tìm thấy một số vấn đề", vbCritical
    Khác
        MsgBox "No issues!", vbInformation
    End If
End Sub

[/vb]

Cuối cùng, mã này tìm kiếm “ops-internal” và đánh dấu sự chú ý của tôi, bởi vì nó phải là “ops_Internal”

Một số điều kỳ lạ ở đây nữa… phần “ftc tiếp theo” của mã chạy cho đến khi nó hoàn thành tất cả các quy tắc, sau đó xảy ra lỗi. Tôi đã phải thêm On Error Resume Next ở trên để nó tiếp tục, vì nó bị nghẹt chỉ với “Next” bên trong vòng lặp khác

Vì vậy, ít nhất bây giờ tôi đã có thứ gì đó nhanh chóng cho tôi biết nếu tôi gặp sự cố và in ra các quy tắc vi phạm trong cửa sổ VBA Immediate. Tôi muốn thay thế xong, nhưng thực sự không có thời gian để xử lý tất cả các đặc điểm riêng… err. Ý tôi là niềm vui… điều đó sẽ liên quan đến việc làm cho đúng