[已解决]在ET3:ET12中选择离EP1第一个数最近的4个数，并连同该数填色

wszbd

填色1.rar (2.87 KB, 下载次数: 5)

2014-1-15 21:19 上传

点击文件名下载附件 如果我写的不清楚，就发消息或加qq：1091342689.

最佳答案

月排行榜 / 总排行榜

爱疯

2014-1-16 17:18

Sub Click()
    Dim rng As Range
    Dim x As Integer    '起点
    Dim y As Integer    '终点
    Dim z As Integer    '目标的行号
   
    '1）找目标
    Set rng = Range("et3:et12")
    rng.Interior.ColorIndex = xlNone
    z = rng.Find(Left([ep1], 1)).Row
   
    '2）确定新起点和新终点
    x = z - 2: y = z + 2                        '连续
    If z < 5 Then x = 3: y = z + 2 - (z - 5)    '不连续，上半不够，找新终点
    If z > 10 Then x = z - 2 - (z - 10): y = 12 '不连续，下半不够，找新起点
   
    '3)填色
    Range(Cells(x, rng.Column), Cells(y, rng.Column)).Interior.ColorIndex = 4
End Sub


下班了，来不急测试，你多测下

跳转到最佳答案楼层

爱疯

Sub Click()
    Dim rng As Range    '查找范围
    Dim x As Range      '（临时）目标
    Dim y As Range      '目标备份
    Dim z As Range      '目标集合
    Dim i As Integer

    '1）找目标单元格
    Set rng = Range("et3:et12")
    Set x = rng.Find(Left([ep1], 1))
    Set z = x: Set y = x
    Debug.Print x.Address

    '2)目的单元格之前的
    For i = 1 To 2
        Set x = rng.Find("*", x, , , , xlPrevious)
        Debug.Print x.Address
        Set z = Union(z, x)
    Next i

    '3)目的单元格之后的
    Set x = y
    For i = 1 To 2
        Set x = rng.Find("*", x, , , , xlNext)
        Debug.Print x.Address
        Set z = Union(z, x)
    Next i
   
    '4）填充
    z.Interior.ColorIndex = 4
End Sub
填色2.rar (10.78 KB, 下载次数: 4)

2014-1-16 09:49 上传

点击文件名下载附件

wszbd

爱疯 发表于 2014-1-16 09:49
Sub Click()
    Dim rng As Range    '查找范围
    Dim x As Range      '（临时）目标

老师费心了，代码真是一目了然。

还请老师看看例子，能否改一下：

wszbd

爱疯 发表于 2014-1-16 09:49
Sub Click()
    Dim rng As Range    '查找范围
    Dim x As Range      '（临时）目标

谢谢！！！

爱疯

wszbd 发表于 2014-1-16 15:03
老师费心了，代码真是一目了然。

还请老师看看例子，能否改一下：

能上传一下3楼这个测试附件吗？

并对某一个不对情况说明，在该处，注明正确应是怎样？

wszbd

爱疯 发表于 2014-1-16 15:06
能上传一下3楼这个测试附件吗？

并对某一个不对情况说明，在该处，注明正确应是怎样？

老师是不是把ET3：ET12当成了一个圆圈。

爱疯

wszbd 发表于 2014-1-16 15:15
老师是不是把ET3：ET12当成了一个圆圈。

可以这么比喻吧。
因为range.find方法，在查找上次或下次的目标时，会有这样的效果。


比如对于某一个不对情况，只有有具体附件和说明，才好测试和回复。

wszbd

爱疯 发表于 2014-1-16 15:20
可以这么比喻吧。
因为range.find方法，在查找上次或下次的目标时，会有这样的效果。

老师好好看看上面我发的图，真没法改吗

爱疯

明白你希望的效果了，我去想想。

wszbd

爱疯 发表于 2014-1-16 15:56
明白你希望的效果了，我去想想。

还请老师多费心，因为我要从这个程序延伸出12个小程序。

谢谢！！！