按颜色填单元格

67469698

如何用vba写代码，单元格填充为黑色，则填上★，如图中A1，C6，E17则填上★
用宏录了一段代码，但是搞不懂哪个是核心代码。
Sub Macro1()
'
' Macro1 Macro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub
希望可以指导一下，感恩~

爱疯

任选某一句，按f9注释掉（即不起作用），看看整个代码有没有实现最终效果？

就这么一句一句或几句几句的试。。。直到保留最少的代码。

大灰狼1976

我看你的代码也没有填上五角星的语句啊？

67469698

爱疯 发表于 2017-12-7 09:00
任选某一句，按f9注释掉（即不起作用），看看整个代码有没有实现最终效果？

就这么一句一句或几句几句的 ...

Sub aaaaaa()
Dim rng As Range
For Each rng In Sheets(2).Cells
If Range.ThemeColor = xlThemeColorLight1 Then
    rng.Value = "★"
End
Next
End Sub

这个range没有themecolor属性，应该怎么改？