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

wszbd

爱疯 发表于 2014-1-16 20:49
合在一起了。
见注释，手动修改m或n

最完美的程序，修改方便！！！

不过还是要问一句，这句代码错在哪儿：Set x = rng.Find(Mid([ep1], 2, 1)).Row  对我很重要！


谢谢！！！

爱疯

不知道你说的情况。得你把测试错误的附件上传1下

wszbd

爱疯 发表于 2014-1-16 21:45
不知道你说的情况。得你把测试错误的附件上传1下

这个程序我也会用到：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

要是“在ET3:ET12中选择离EP1第二个数最近的4个数，并连同该数填色 ”

怎么修改？


你做的每个程序我都有可能用到。

爱疯

wszbd 发表于 2014-1-16 22:04
这个程序我也会用到：Sub Click()
    Dim rng As Range    '查找范围
    Dim x As Range      '（临时 ...

Sub TEST()
    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(Mid([ep1], 2, 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）填充
    rng.Interior.ColorIndex = xlNone
    z.Interior.ColorIndex = 4
End Sub
ddd.rar (11.49 KB, 下载次数: 3)

2014-1-16 23:38 上传

点击文件名下载附件
只改了蓝色那1句

wszbd

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

明白了，多了.Row，谢谢！！！