Question

用vba改变单元格部分字符颜色的问题

比如C2：C6有一些数字，E2：H6某些单元格也有一些数字，要求：E2：H2中凡是含有C2中的数字都加粗加红显示，同理，E3：H3中凡是含有C3中的数字都加粗加红显示，也即同一行内都与其对应的C列字符改变格式。请大侠们指教。

Answer 1

Sub s()
    n = Cells(Rows.Count, 3).End(3).Row
    For i = 2 To n
        For j = 5 To 8
            For k = 1 To Len(Cells(i, j))
                If InStr(Mid(Cells(i, j), k, 1), Cells(i, 3)) > 0 Then
                    With Cells(i, j).Characters(k, 1).Font
                        .Bold = True
                        .Color = vbRed
                    End With
                End If
            Next
        Next
    Next
End Sub

追问

我把上面代码放入模块，加一个按钮，点按钮没有反应呀。

追答

Sub 按钮1_Click()
    n = Cells(Rows.Count, 3).End(3).Row
    For i = 2 To n
        For j = 5 To 8
            For k = 1 To Len(Cells(i, j))
                If InStr(Cells(i, 3), Mid(Cells(i, j), k, 1)) > 0 Then
                    With Cells(i, j).Characters(k, 1).Font
                        .Bold = True
                        .Color = vbRed
                    End With
                End If
            Next
        Next
    Next
End Sub