VBA 如何保留单元格内字体颜色和excel单元格填充颜色色

来源：蜘蛛抓取(WebSpider) 时间：2014-10-22 04:07 标签： vba 填充空白单元格
如何在VBA中实现将一个单元格内中含有多个颜色的文字,却只删除红色文字??
[问题点数：20分]
如何在VBA中实现将一个单元格内中含有多个颜色的文字,却只删除红色文字??
[问题点数：20分]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2007年11月 Windows专区大版内专家分月排行榜第三2007年6月 Windows专区大版内专家分月排行榜第三
2007年11月 Windows专区大版内专家分月排行榜第三2007年6月 Windows专区大版内专家分月排行榜第三
2008年7月 其他开发语言大版内专家分月排行榜第二2008年4月 其他开发语言大版内专家分月排行榜第二2008年2月 其他开发语言大版内专家分月排行榜第二2008年1月 其他开发语言大版内专家分月排行榜第二2006年8月 其他开发语言大版内专家分月排行榜第二2006年7月 其他开发语言大版内专家分月排行榜第二2006年6月 其他开发语言大版内专家分月排行榜第二
2008年9月 其他开发语言大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。请问各位高手。如何用VBA能将连续的单元格进行填充然色?_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：116,923贴子：
请问各位高手。如何用VBA能将连续的单元格进行填充然色?收藏
请问各位高手。如何用VBA，将连续的单元格进行填充不同的然色，如下表：先谢谢了
福利不只是穿多穿少，还要有迷人的微笑!
非得用VBA吗？如非用的话我不懂
如果用公式能达到填充目的，也可以
以前两列为例Sub test()Dim ar%, qy As Rangear = Cells(Rows.Count, 1).End(3).RowSet qy = Range("p1:q" & ar)For Each i In qyWith iIf .Value && "" And .Offset(1, 0) && "" Then.Interior.ColorIndex = 6.Offset(1, 0).Interior.ColorIndex = 6End IfEnd WithNextEnd Sub
斜着的怎么弄，想不出来。等高手吧
这是一个朋友清风竹- 给我发的，你能把斜连 如：1 2 3 4填充色给加进代码中吗？先谢谢了Sub 填充颜色()
Dim m%, i%, j%
m = Range("a65536").End(xlUp).Row
Range("G4:S" & m).Interior.ColorIndex = xlNone
For i = 6 To 19
For j = 5 To m
If Cells(j, i) && "" And Cells(j, i) = Cells(j - 1, i) Then
Range(Cells(j - 1, i), Cells(j, i)).Interior.ColorIndex = 35
If i & 15 Then Range(Cells(j - 1, i), Cells(j, i)).Interior.ColorIndex = 40
If i & 17 Then Range(Cells(j - 1, i), Cells(j, i)).Interior.ColorIndex = 34
If Cells(j, i) = 9 And Cells(j - 1, i - 1) = 8 And Cells(j - 2, i - 2) = 7 And Cells(j - 3, i - 3) = 6 Then
For k = 0 To 3
Cells(j - k, i - k).Interior.ColorIndex = 38
用Excel进行cai票预测，应该中()奖概率挺高的吧？
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或c列含有B列数字时,c列单元格填充色如图
a我淡定332
先选中要设定的区域,本例为C1:C10,请根据实际情况选择,然后条件格式--&新建规则--&使用公式确定要设置格式的单元格,输入以下公式,然后点“格式”按钮,设置颜色即可.&=COUNT(FIND(B1,C1))*(B1&&&&)*(C1&&&&)&我把文件传上来,请点击这回答右下角绿色的“点击下载”按钮,下载文件看看效果.&
还有这个如何处理，如图。谢谢先！
亲，EXCEL 本身没这功能，不能把同一单元格中的单独一个字符变色，只能是对整个单元格填充背景颜色或是改变字体颜色。也不支持只让一行中选定的几个单元格变色。 只能做到上面回答中的效果。
如果一定要做成那样的效果，可以尝试重新发VBA编程语言分类的贴，请懂VBA的大神帮忙写编程代码，看看能不能做到那样的效果了。
为您推荐：
其他类似问题
扫描下载二维码&&&&单元格自动填充颜色（用VBA或条件格式都可以）.rar
&单元格自动填充颜色（用VBA或条件格式都可以）.rar
VBA小例子，用来自动填充单元的颜色
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
VIP下载&&免积分60元/年（1200次）
您可能还需要
Q.为什么我点的下载下不了，但积分却被扣了
A. 由于下载人数众多，下载服务器做了并发的限制。若发现下载不了，请稍后再试，多次下载是不会重复扣分的。
Q.我的积分不多了，如何获取积分？
A. 获得积分，详细见。
完成任务获取积分。
论坛可用分兑换下载积分。
第一次绑定手机，将获得5个C币，C币可。
关注并绑定CSDNID，送10个下载分
下载资源意味着您已经同意遵守以下协议
资源的所有权益归上传用户所有
未经权益所有人同意，不得将资源中的内容挪作商业或盈利用途
CSDN下载频道仅提供交流平台，并不能对任何下载资源负责
下载资源中如有侵权或不适当内容，
本站不保证本站提供的资源的准确性，安全性和完整性，同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
开发技术下载排行
您当前C币：0&&&可兑换 0 下载积分
兑换下载分:&
消耗C币:0&
立即兑换&&
兑换成功你当前的下载分为 。前去下载资源
你下载资源过于频繁，请输入验证码
如何快速获得积分？
你已经下载过该资源，再次下载不需要扣除积分
单元格自动填充颜色（用VBA或条件格式都可以）.rar
所需积分：1
剩余积分：0
扫描微信二维码精彩活动、课程更新抢先知
VIP会员，免积分下载
会员到期时间：日
剩余下载次数：1000
单元格自动填充颜色（用VBA或条件格式都可以）.rar
剩余次数：&&&&有效期截止到：
你还不是VIP会员VIP会员享免积分 . 专属通道极速下载
VIP下载次数已满VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员
你的VIP会员已过期VIP会员享免积分 . 专属通道极速下载，请继续开通VIP会员

我要回帖

更多关于 vba 填充空白单元格 的文章

 

随机推荐