|
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)
|
|