Как узнать номер ячейки, после поиска

@tmpnik1 · Регистрация: 28.02.2011

Author24 — интернет-сервис помощи студентам

Запустил макрос

Visual Basic

1
2
3

 Cells.Find(What:="2018", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt  :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=   False, SearchFormat:=False).Activate

но мне надо начать поиск со второй строки первой колонки, и если искомое значение найдено, то узнать номер строки, колонки и ячейки..
или надо делать цикл?

@Narimanych · 21.05.2018, 08:34

tmpnik1,
А в каком диапазоне ищите?

@tmpnik1 · 21.05.2018, 08:38 **[ТС]**

Начиная с B2 и до колонки V, а вот кол-во строк может меняться , поэтому наверное надо как-то определять последнюю строку

@Vlad999 · 21.05.2018, 09:17

Visual Basic

Dim R As Range, FR As Range
   Set R = Range("B2:V100") 'можно указать любой диапазон
   Set FR = R.Find("2018")
   If Not FR Is Nothing Then
       FR.Row ' номер найденной строки
       FR.Column ' номер найденного столбца
       FR.Address 'адрес найденной ячейки
   End If

Добавлено через 1 минуту

Visual Basic

1 2	LR = Cells(Rows.Count,2).End(xlUp).Row 'последняя строка по 2 столбцу Set R = Range("B2:V" & LR)

@tmpnik1 · 21.05.2018, 09:53 **[ТС]**

Почему то возникает ошибка invalid use of property в линии FR.Row
(может надо тип определить для LR? не знаю..)

начал разбираться, но чё-то не могу совладать с хелпом...
Хотел посмотреть что за аргумент xlUp в .End(xlUp), ставлю курсор на End, выбираю из списка, что .End это свойство...
End Property-> Required to end a Property Let, Property Get, or Property Set procedure.

но где найти help по этому свойству?

@Vlad999 · 21.05.2018, 11:04

Up переводится вверх, End(xlUp) переходим вверх до последней заполненной ячейки (это тоже самое что нажать на клавиатуре END и стрелку вверх)
если в коде первая строчка Option Explicit то нужно все переменные объявлять.

@tmpnik1 · 21.05.2018, 11:23 **[ТС]**

В коде нет строчки Option Explicit, но всякие переменные типа

Visual Basic

1
2
3

If Not FR Is Nothing Then
    per_cells = CStr(Cells(FR.Row, FR.Column))
    per_cells = Replace(per_cells, ".2018", "")

и т.д. работают... но если раскомментировать FR.Row ' номер найденной строки, то ошибка.. но всё равно спасибо, работает и ладно..

Насчёт End(xlUp), просто не срабатывает логика
.. отсчёт начинается с верхней строчки и последняя строчка внизу, а "вверх до последней заполненной ячейки..", когда надо вниз

... но тоже как принято, так принято
.. с хелпом ещё как-то разобраться и всё Ok..

@Vlad999 · 21.05.2018, 13:19

Сообщение от tmpnik1

просто не срабатывает логика

вы не до конца её разобрали.
Cells(Rows.Count,2).End(xlUp).Row
Rows.Count - количество строк листа, т.е. номер строки самой нижней ячейки .
Cells(Rows.Count,2) - самая нижняя ячейки второго столбца, вот с неё и идем вверх.

@Narimanych 2739 / 1714 / 778 Регистрация: 23.03.2015 Сообщений: 5,429
	21.05.2018, 08:34	2
	tmpnik1, А в каком диапазоне ищите? 0

@tmpnik1 33 / 28 / 9 Регистрация: 28.02.2011 Сообщений: 1,873
	21.05.2018, 08:38 [ТС]	3
	Начиная с B2 и до колонки V, а вот кол-во строк может меняться , поэтому наверное надо как-то определять последнюю строку 0

@tmpnik1 33 / 28 / 9 Регистрация: 28.02.2011 Сообщений: 1,873
	21.05.2018, 09:53 [ТС]	5
	Почему то возникает ошибка invalid use of property в линии FR.Row (может надо тип определить для LR? не знаю..) начал разбираться, но чё-то не могу совладать с хелпом... Хотел посмотреть что за аргумент xlUp в .End(xlUp), ставлю курсор на End, выбираю из списка, что .End это свойство... End Property-> Required to end a Property Let, Property Get, or Property Set procedure. но где найти help по этому свойству? 0

@Vlad999 3917 / 2315 / 784 Регистрация: 02.11.2012 Сообщений: 6,158
	21.05.2018, 11:04	6
	Up переводится вверх, End(xlUp) переходим вверх до последней заполненной ячейки (это тоже самое что нажать на клавиатуре END и стрелку вверх) если в коде первая строчка Option Explicit то нужно все переменные объявлять. 1

@Vlad999 3917 / 2315 / 784 Регистрация: 02.11.2012 Сообщений: 6,158
	21.05.2018, 13:19	8
	Сообщение от tmpnik1 просто не срабатывает логика вы не до конца её разобрали. Cells(Rows.Count,2).End(xlUp).Row Rows.Count - количество строк листа, т.е. номер строки самой нижней ячейки . Cells(Rows.Count,2) - самая нижняя ячейки второго столбца, вот с неё и идем вверх. 1

Как узнать номер ячейки, после поиска

Решение