Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 69|回复: 3

[求助] 按颜色填单元格

[复制链接]
发表于 2017-12-6 22:46 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
如何用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
希望可以指导一下,感恩~

9E$NJAKCPK8B6E4Q}~(1LQO.png
发表于 2017-12-7 09:00 | 显示全部楼层
任选某一句,按f9注释掉(即不起作用),看看整个代码有没有实现最终效果?

就这么一句一句或几句几句的试。。。直到保留最少的代码。
回复 支持 反对

使用道具 举报

发表于 2017-12-7 09:04 | 显示全部楼层
我看你的代码也没有填上五角星的语句啊?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-12-7 21:25 | 显示全部楼层
爱疯 发表于 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属性,应该怎么改?

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2018-1-16 23:41 , Processed in 0.066004 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表