[已解决]求助，我实在是没有办法了，实现vba定位单元格并填充颜色

晃晃悠悠517

求助，我实在是没有办法了，实现vba定位单元格并填充颜色

最佳答案

月排行榜 / 总排行榜

qingfeng_qf

2012-7-26 07:46

1. Sub s()
   
2. Dim i%, j%, k%
   
3. For i = 7 To 9
   
4.     For j = 2 To 3
   
5.         For k = 2 To 8
   
6.             If Cells(k, 2) = Cells(j, i) Then
   
7.                 Cells(k, i - 4).Interior.ColorIndex = 3
   
8.             End If
   
9.         Next k
   
10.     Next j
    
11. Next i
    
12. 
    
13. End Sub
    

复制代码

是这样吗？

跳转到最佳答案楼层

qingfeng_qf

1. Sub s()
   
2. Dim i%, j%, k%
   
3. For i = 7 To 9
   
4.     For j = 2 To 3
   
5.         For k = 2 To 8
   
6.             If Cells(k, 2) = Cells(j, i) Then
   
7.                 Cells(k, i - 4).Interior.ColorIndex = 3
   
8.             End If
   
9.         Next k
   
10.     Next j
    
11. Next i
    
12. 
    
13. End Sub
    

复制代码

是这样吗？

hoogle

题意不明确？？？？？？？？？？？？？？？？

从从容容

答案在下面附件中
用VBA做的。
123.zip (11.57 KB, 下载次数: 15)

2012-7-26 08:52 上传

点击文件名下载附件

水上漂123

不明白要求是什么，无法回答你的问题

晃晃悠悠517

E:\111\1.bmp

晃晃悠悠517

水上漂123 发表于 2012-7-26 08:54
不明白要求是什么，无法回答你的问题

给您上传了个附件，您看可以吗

晃晃悠悠517

大家庭真温暖

晃晃悠悠517

qingfeng_qf 发表于 2012-7-26 07:46
是这样吗？

试一下，呵呵，真诚的感谢中

晃晃悠悠517

从从容容 发表于 2012-7-26 08:53
答案在下面附件中
用VBA做的。

试一下真诚的感谢中