Страница 1 из 1
VBA поиск на листе
Добавлено: 30 ноя 2009, 18:04
soulthiefer
подскажите плз функцию посика наличия значения в столбце ниже активной ячейки
пример .... :
я нахожусь на ячейке А20 , нужно просмотреть диапазон ячеек по столбцу А начиная с 21 по 65000 на наличие значения ячейки А20 , если есть то тру если нет то фальш !
желательно в одну функцию так как нужно вставить в условие if ( .....) then
Re: VBA поиск на листе
Добавлено: 30 ноя 2009, 18:38
VictorM
Может так?
Код: Выделить всё
Private Sub test()
zn = [A20].Value
For Each cell In ActiveSheet.[A21:A65000]
If cell.Value = zn Then cell.Interior.ColorIndex = 3
Next
End Sub
В примере ячейки со значением равным значению ячейки А20 будут залиты красным цветом.
Re: VBA поиск на листе
Добавлено: 01 дек 2009, 09:01
soulthiefer
а как вы узнали что мне нужно выделять красным цветом?))))))))
спасибо !
но интересует как искать в диапазоне не именно от ячейки А20 а в диапазоне ниже активной ячейки до А65000?
Re: VBA поиск на листе
Добавлено: 01 дек 2009, 09:20
EducatedFool
Код: Выделить всё
[color=darkblue]Sub[/color] test()
[color=darkblue]Dim[/color] ra [color=darkblue]As[/color] Range, cell [color=darkblue]As[/color] Range
Application.ScreenUpdating = False: [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
[color=darkblue]Set[/color] ra = Intersect(ActiveSheet.UsedRange, _
Range(ActiveCell.Row + 1 & ":" & Rows.Count), [a:a])
[color=darkblue]For[/color] [color=darkblue]Each[/color] cell [color=darkblue]In[/color] ra.Cells
[color=darkblue]If[/color] cell = ActiveCell [color=darkblue]Then[/color] cell.Interior.ColorIndex = 3
[color=darkblue]Next[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
Re: VBA поиск на листе
Добавлено: 01 дек 2009, 10:40
soulthiefer
огромнейшее спасибо за помощь!!!!!