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

wk0316

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. On Error Resume Next
   
3.     Dim rng As Range
   
4.     If Target.Row > 7 Or Target.Count > 1 Then Exit Sub
   
5.     Select Case Target.Column
   
6.         Case 7
   
7.             Set rng = Range("b2:b6").Find(Target, , , xlWhole)
   
8.             rng.Offset(0, 1).Interior.ColorIndex = 3
   
9.         Case 8
   
10.             Set rng = Range("b2:b6").Find(Target, , , xlWhole)
    
11.             rng.Offset(0, 2).Interior.ColorIndex = 3
    
12.         Case 9
    
13.             Set rng = Range("b2:b6").Find(Target, , , xlWhole)
    
14.             rng.Offset(0, 3).Interior.ColorIndex = 3
    
15.     End Select
    
16. End Sub

复制代码

复制代码到所在的工作表模块中。

wk0316

123.rar (13.18 KB, 下载次数: 9)

2012-7-26 09:29 上传

点击文件名下载附件

直接下载，就行了，免得你麻烦。

水上漂123

明白什么要求了，试试是否能实现

iaw528

做了一个看看，顶顶顶顶顶

jhbeyond

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

从从容容

你们都理解错了。只有我的才对。
但楼主为什么不吭声。

w38867765

Sub eil()
Dim x, y, z, w, q As Integer
For q = 7 To 9 Step 1
For y = 1 To 3 Step 1
  For w = 1 To 2 Step 1
     x = [a1:e1].Find(Cells(1, q), lookat:=xlWhole).Column   '找到日期对应的列数
     z = [b:b].Find(Cells(1, q).Offset(w, 0), lookat:=xlWhole).Row '通过偏移找到水果对应的行数
     Cells(z, x).Interior.ColorIndex = 4

  Next w
Next y
Next q

End Sub

供楼主参考

晃晃悠悠517

从从容容 发表于 2012-7-26 21:47
你们都理解错了。只有我的才对。
但楼主为什么不吭声。

您好，周末工作忙，没来得及回复您请原谅，您的可以实现，但是没看懂

晃晃悠悠517

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

您的简单易懂，多谢您

晃晃悠悠517

从从容容 发表于 2012-7-26 21:47
你们都理解错了。只有我的才对。
但楼主为什么不吭声。

真心感谢您的帮助