如何从细胞中去除阴影并保持中间颜色不变

时间:2018-09-17 13:14:49

标签: excel vba excel-vba

我检查了互联网,但找不到解决方案。如果文件中混合了阴影和彩色单元格,则需要除去阴影,但需要保留颜色。我已经有一个范围了,想像下面这样修复它:

    Range(Cells(RowStart, ColStart), Cells(RowLast, ColLast)).Select
    With Selection.Interior
        .PatternTintAndShade = 0
    End With

在两个选项中都使用.Pattern = xlNone或.TintAndShade = 0时,它不起作用,这会使单元格内部颜色变松。请指教

2 个答案:

答案 0 :(得分:1)

我找到了一个对我有用的答案,我留下了问题,以便其他人可以从中受益。这段代码对我有用:

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .PatternTintAndShade = 0
    End With

答案 1 :(得分:0)

对不起,我在实际使用的表而不是测试文件上仔细检查了解决方案之后。我看到默认的浅灰色标准单元格边界也不再存在。所以我还不开心。谁为我提供解决方案?