求一个在规定区域出现相同数值时字体变红等

wj2368

lmx3517 发表于 2019-6-28 09:42
谢谢！加红部分是有的，还需要将加红部分加粗，字体变化为加红加粗

ran.Font.Bold = True
这是加粗的代码

lmx3517

wj2368 发表于 2019-6-28 09:44
ran.Font.Bold = True
这是加粗的代码

谢谢帮助！我看见了。

lmx3517

wj2368 发表于 2019-6-28 09:44
ran.Font.Bold = True
这是加粗的代码

我是个菜鸟，再请教一个问题，如果将区域改为2个区域（C3:J10）(C13:J20)，还是在某个区域内出现相同数值时字体变红并加粗。宏程序如何写呢，谢谢！！！

740688321

lmx3517 发表于 2019-6-29 09:19
我是个菜鸟，再请教一个问题，如果将区域改为2个区域（C3:J10）(C13:J20)，还是在某个区域内出现相同数值 ...

'''相同单元格变红
Sub SameCells(ByVal sel As Range)
    With sel
        .FormatConditions.AddUniqueValues
        With .FormatConditions(1)
            .DupeUnique = xlDuplicate
            With .Font
                .Bold = True
                .Color = -16776961
            End With
            .StopIfTrue = False
        End With
    End With
End Sub
Sub tt()
    Application.ScreenUpdating = False
    Range("C3:J10,C13:J20").Select
    Call SameCells(Selection)
    Application.ScreenUpdating = True
End Sub

lmx3517

740688321 发表于 2019-6-29 13:31
'''相同单元格变红
Sub SameCells(ByVal sel As Range)
    With sel

我是个菜鸟，能上传附件吗？谢谢！！！

lmx3517

740688321 发表于 2019-6-29 13:31
'''相同单元格变红
Sub SameCells(ByVal sel As Range)
    With sel

感谢你的帮助，为什么程序不能运行呢，我是菜鸟，请赐教，谢谢！！！

740688321

lmx3517 发表于 2019-6-30 06:11
感谢你的帮助，为什么程序不能运行呢，我是菜鸟，请赐教，谢谢！！！

哎                                                

lmx3517

740688321 发表于 2019-7-1 08:13
哎

感谢朋友的帮助，我看了附件了，可能是我没有描述清楚，我需要的是在同一区域内出现2个相同数值时字体变红色并加粗。在我发的附件中我将区域分为2个，这2个区域无直接联系。图片中红色加粗是我手动的。再有宏的程序应放在模块中我需要检查时才使用，谢谢！！！