Зравствуйте!
Помогите, пожалуйста, доделать макрос
Он выдаёт диалоговое окно, в которое вводится значение. Затем находит его в выделенном диапазоне и выделяет цветом содержащую его строку.
Но. После этого диалоговое окно закрывается и при новом запуске макроса выделение строки исчезает.
Хотелось бы,
1. Чтобы после выделения цветом строки сново появлялось диалоговое окно (чтобы продолжить поиск следующих значений), А выделение строки оставалось.
2, Сделать такой же макрос, выделяющий не строку, а ячейку
Спасибо!
Помогите, пожалуйста, доделать макрос
Он выдаёт диалоговое окно, в которое вводится значение. Затем находит его в выделенном диапазоне и выделяет цветом содержащую его строку.
Но. После этого диалоговое окно закрывается и при новом запуске макроса выделение строки исчезает.
Хотелось бы,
1. Чтобы после выделения цветом строки сново появлялось диалоговое окно (чтобы продолжить поиск следующих значений), А выделение строки оставалось.
2, Сделать такой же макрос, выделяющий не строку, а ячейку
Спасибо!
| Код |
|---|
Sub Poisk2()
With Cells.Interior
.Pattern = xlNone
End With
znach = InputBox("Value", "", "")
s = Range("a" & Rows.Count).End(xlUp).Row
For st = 1 To s
If znach = Range("a" & st).Text Then
With Rows(st).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535 '
End With
Else
End If
Next
End Sub
|
