单元格符合条件时变色，修改后不符条件时仍变回原有颜色，代码怎么写

shmylovei · 发表于 2019-10-13 12:43

本帖最后由 shmylovei 于 2019-10-13 12:48 编辑

在B列省会中，点击按钮后，符合筛选条件值的单元格被加上绿颜色，当把单元格内容修改为不符合筛选条件的值后，这个修改后的单元格的颜色会变回原来的颜色，代码怎么实现？
举例说：B2-B8中，包含“男”、“女”和空格""的单元格有B3、B5、B7；比如当把B2改为北京后，B2就不符合筛选条件了，B2就会变回原来的粉红色，B5和B7此时仍为符合条件的单元格，其颜色仍被加上绿色；

符合筛选条件后，变绿色的代码，我已经写好了，试验可行！
这个修改后，当不符合条件后，就返回原有颜色的代码怎么写？
变绿色的代码，如下：

Private Sub CommandButton1_Click()
Dim w%
For w = 2 To 8
Dim rg As Range
For Each rg In Range("B2:B8")
If rg = "" Or InStr(rg, "男") > 0 Or InStr(rg, "女") > 0 Then rg.Interior.Color = RGB(0, 255, 255)
Next
Next
End Sub

复制代码

麻烦路过的老师，帮下忙，帮我写下这个代码吧

蓝桥玄霜 · 发表于 2019-10-13 16:24

在第5句下面加一句：
rg.interior.colorindex=xlnone

shmylovei · 发表于 2019-10-13 18:21

本帖最后由 shmylovei 于 2019-10-13 18:26 编辑

蓝桥玄霜发表于 2019-10-13 16:24
在第5句下面加一句：
rg.interior.colorindex=xlnone

经测试，所有的都变为了无色了，包括B2也变为了无色，回不到原来的粉红色，怎么才能修改后，仍然回到原来的粉红色呢

shmylovei · 发表于 2019-10-13 18:32

蓝桥玄霜发表于 2019-10-13 16:24
在第5句下面加一句：
rg.interior.colorindex=xlnone

经测试，B2-B8区域，原有的粉红色被改为了无色，
怎么样变回到原来的粉红色呢
麻烦老师在看看是变为粉红色

shmylovei · 发表于 2019-10-13 18:33

蓝桥玄霜发表于 2019-10-13 16:24
在第5句下面加一句：
rg.interior.colorindex=xlnone

谢谢老师的帮助，但是不行啊
经测试，B2-B8区域，原有的粉红色被改为了无色，
怎么样变回到原来的粉红色呢
麻烦老师在看看是变为粉红色

shmylovei · 发表于 2019-10-14 01:14

麻烦路过的老师，帮忙看下哈 Thanks♪(･ω･)ﾉ

蓝桥玄霜 · 发表于 2019-10-14 08:16

改为：
rg.Interior.Color = 14408946

shmylovei · 发表于 2019-10-14 10:33

蓝桥玄霜发表于 2019-10-14 08:16
改为：
rg.Interior.Color = 14408946

蓝桥玄霜老师威武，感谢老师，亲测可行！

shmylovei · 发表于 2019-10-14 10:37

蓝桥玄霜发表于 2019-10-14 08:16
改为：
rg.Interior.Color = 14408946

老师我在这个帖子里面，请教了关于for循环的问题，麻烦老师也帮忙看看，叩首拜谢!
http://club.excelhome.net/thread-1503119-1-1.html

		自动登录	找回密码
密码			免费注册

[求助] 单元格符合条件时变色，修改后不符条件时仍变回原有颜色，代码怎么写

评分

评分

最新热点 /1