根据条件设置单元格内部分字符的颜色

sunshuangzhong

根据N列字段04（内容唯一）单元格内字体的颜色，设置B表中C列相应字符的颜色，并加粗倾斜显示！

要达到的效果：

gwjkkkkk

没看懂条件，内容唯一是什么意思。

sunshuangzhong

N列唯一 ,比如N列是班级名称，每行N列里的班级名称唯一。比如A表中的601是红色的，那么在B表中C列的601也红色，并加粗倾斜显示！

sunshuangzhong

比如在A表中601是红色的，需求就是在B表中C列里的601也是红色，并加粗倾斜显示！

半百

试试看。。。

sunshuangzhong

自己也写了一个，缺点是第一个601颜色不显示：
Sub Character1()
    Dim i As Long, s As Long, lngRowA As Long, lngRowB As Long
    lngRowA = Worksheets("A").Cells(Rows.Count, "N").End(xlUp).Row
    lngRowB = Worksheets("B").Cells(Rows.Count, "C").End(xlUp).Row
    For i = 3 To lngRowB
        With Worksheets("B").Cells(i, "c")
            br = .Value
            ar = Split(br, "、")
            For s = 0 To UBound(ar)
                For j = 2 To lngRowA
                    If ar(s) = CStr(Worksheets("A").Cells(j, "N").Value) Then
                       .Characters(InStr(br, ar(s)), Len(ar(s))).Font.Color = Worksheets("A").Cells(j, "N").Font.Color
                    End If
                Next
            Next
        End With
    Next
End Sub

sunshuangzhong

半百 发表于 2023-5-16 10:58
试试看。。。

为什么第一个601不显示颜色呢，真奇怪！

半百

sunshuangzhong 发表于 2023-5-16 12:35
为什么第一个601不显示颜色呢，真奇怪！

试了可以啊。

sunshuangzhong

就这圈起来的不可以，好像是只要没有、分隔的都不行

sunshuangzhong

'考虑到有的是没有顿号，就再加个循环了！
        For i = 3 To r
            For j = 2 To Worksheets("基本参数").Cells(Rows.Count, "N").End(xlUp).Row
                If .Cells(i, 3) = Worksheets("基本参数").Cells(j, "n") And Worksheets("基本参数").Cells(j, "n").Font.Color > 0 Then
                 .Cells(i, 3).Font.Color = Worksheets("基本参数").Cells(j, "n").Font.Color
                 .Cells(i, 3).Font.Italic = True
                 .Cells(i, 3).Font.Bold = True
                End If
            Next j
        Next i