Excel 用函数或宏实现自动填充颜色，声明不用菜单里面的条件格式

lzdbiam

正在研究如何用函数或宏实现自动填充颜色。
比如，我想给不同城市所在的行加上不同的颜色。如沈阳用红色，广州的用绿色，南昌的用黄色。
2006-5-24        沈阳         1,700        
2006-5-24        广州         1,500        
2006-5-24        南昌         1,000        
2006-5-24        南宁         900        
2006-5-24        北京         700        
2006-5-24        上海         400        
2006-5-25        南宁         75        
2006-5-25        沈阳         1,162        
2006-5-25        北京         45        
2006-5-25        沈阳         240        
2006-5-26        沈阳         800        
2006-5-26        南昌         360        
2006-5-26        南宁         504        
2006-5-26        杭州         96        
2006-5-26        沈阳         206        
2006-5-26        杭州         200        
2006-5-27        沈阳         37        
2006-5-28        杭州         368        
2006-5-28        沈阳         2,400        

zez

以我现在的水平，认为不用条件格式、不用VBA，仅用函数是不可能做到的。但愿楼主研究出来分享给大家，祝楼主成功！

lzdbiam

可以用VBA试试，只是不想用条件格式，条件格式也在简单了。

ctp_119

如果是实用角度讲，条件格式是最佳的方法，如果你是想学习vba，拉来练习之用，那就另当别论了。。。

swl4561255

1. Private Sub CommandButton1_Click()
   
2. For i = 1 To [A65536].End(3).Row
   
3. a = Cells(i, 2)
   
4. Select Case a
   
5. Case "沈阳"
   
6. Range(Cells(i, 1), Cells(i, 3)).Interior.ColorIndex = 3
   
7. Case "广州"
   
8. Range(Cells(i, 1), Cells(i, 3)).Interior.ColorIndex = 6
   
9. Case "南昌"
   
10. Range(Cells(i, 1), Cells(i, 3)).Interior.ColorIndex = 43
    
11. End Select
    
12. Next
    
13. End Sub

复制代码

lzdbiam

{:soso_e179:}谢谢！已经验证，很成功！！！！

lzdbiam

case "" 这里能不能用通配符呢，比如　我希望把有“南”的都加上红色，有“北”的都加上绿色？

sunjie168369

lzdbiam 发表于 2012-4-17 17:45
case "" 这里能不能用通配符呢，比如　我希望把有“南”的都加上红色，有“北”的都加上绿色？

学习了
路过。

won.don

在电子表格中我经常使用身份证号来关联数据，现遇到一个很意外的问题：
       两个身份证号是一样的但是却关联不上。用if判断却显示不同。

我将两者的格式设为一样也不行。
    请求相助！

wuleoueda

won.don 发表于 2012-6-14 22:21
在电子表格中我经常使用身份证号来关联数据，现遇到一个很意外的问题：
       两个身份证号是一样的但是却 ...

明明第二、三位就是不同的好不好