Vba excel номер строки по значению ячейки - Word и Excel - помощь в работе с программами

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

17.07.2017 13:03:28

Как правильно выглядит код для такой конструкции?

Код
Worksheets(1).Range("Table1").[ХХХ].Find("свекла").Row

то есть Row определяется не для Worksheets(1) а для Range(«Table1»)

Прикрепленные файлы

2017.07.17-Получение Row из Range через FIND.xlsm (20.48 КБ)

Изменено: tod2020 — 17.07.2017 13:14:02

Garni

Пользователь

Сообщений: 333
Регистрация: 06.03.2013

17.07.2017 13:14:13

Код
MsgBox Worksheets(1).Range("D5:G9").Find("свекла").Row

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	Garni, Не то. Нужно по имени диапазона

Garni

Пользователь

Сообщений: 333
Регистрация: 06.03.2013

17.07.2017 13:46:03

Тогда попробуйте так

Код
MsgBox Range("table1").Find(What:="свекла").Row

Если надо найти порядковый номер строки таблицы из Столбца3, тогда

Код
MsgBox Range("table1").Find(What:="свекла").Offset(, -1)

Изменено: Garni — 17.07.2017 13:57:50

Илья Демид

Пользователь

Сообщений: 320
Регистрация: 25.11.2013

17.07.2017 13:46:16

У меня работает, если вы имеете ввиду чтобы указывалась строка из таблицы то отнимите количество строк с шапкой (в примере это 4)
т.е. вместо кода

Код
MsgBox (Worksheets(1).Range("table1").Find("Свекла").Row)

Будет код

Код
MsgBox (Worksheets(1).Range("table1").Find("Свекла").Row-4)

ZVI

Пользователь

Сообщений: 4328
Регистрация: 23.12.2012

17.07.2017 13:52:40

Вариант:

Код

Sub Test()
  
  Const FieldName = "Имя"   ' Имя поля таблицы для поиска
  Const What = "свекла"     ' Что искать
  
  Dim x As Range
  
  With Лист1.ListObjects(1).ListColumns(FieldName).DataBodyRange
    Set x = .Find(What, LookIn:=xlValues, LookAt:=xlWhole)
    If Not x Is Nothing Then MsgBox x.Row - .Row + 1
  End With
 
End Sub

Изменено: ZVI — 17.07.2017 13:55:33

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

Всё что выше это всё многострочное сложное.
Нужно чтобы было просто в одну лакончиную строчку, без вычетаний лишних
Для этого нужно понимать классификацию, структуру объектов в строчке-конструкцию которую я изначально предложил

Изменено: tod2020 — 17.07.2017 13:57:45

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

17.07.2017 14:01:28

Цитата
Garni написал: MsgBox Range(«table1″).Find(What:=»свекла»).Offset(, -1)

это тоже не пойдет поскольку собьется нумерация со временем, только Row нужно заполучить

Garni

Пользователь

Сообщений: 333
Регистрация: 06.03.2013

У Вас таблица из 4 строчек и вопрос о номере строки, в которой находится свекла. Вам предложили как минимум 4 варианта. Какую еще классификацию нам надо понять? Куда пойти записаться чтоб изучить структуру объекта из 4 строчек?

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

#10

17.07.2017 14:03:58

Цитата
Garni написал: У Вас таблица из 4 строчек

это не рабочий файл. в рабочих файлах десятки-сотни таблиц с сотнями-тысячами строк

Изменено: tod2020 — 17.07.2017 14:04:35

	Вы просто объяснить можете что Вы хотите на выходе получить? или результат сказать какой должен получится

Garni Пользователь Сообщений: 333 Регистрация: 06.03.2013	Если у вас столько строчек, и не одна свекла обыкновенная там храниться, а еще свекла сахарная, свекла пареная, свекла испорченная и т.д. Тогда Find завершит поиск на первой найденной. Так какую строчку найти надо?

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

Как правильно выглядит код для такой конструкции?

Worksheets(1).Range(«Table1»).[ХХХХХХХХХХХХ].Find(«свекла»).Row

то есть Row определяется не для Worksheets(1) а для Range(«Table1»)

PS Был бы listObject вместо XXX стояло бы DataBodyRange

Изменено: tod2020 — 17.07.2017 14:15:36

ZVI

Пользователь

Сообщений: 4328
Регистрация: 23.12.2012

#14

17.07.2017 14:18:38

Цитата
tod2020 написал: Нужно чтобы было просто в одну лакончиную строчку, без вычетаний лишних

С точки зрения правил программирования Ваше «нужно» некорректное.
Код пишется один раз так, чтобы он был понятен, работал в штатных и аварийных ситуациях.
И совершено не важно сколько в нем строчек. Это же не формула ячеек.
Хотя рекомендуется не более одной экранной странички для функции и процедуры для удобства визуального охвата и неперегрузки интеллекта и памяти программиста.
Если очень уж хочется в одну строчку, но с вычитанием, то можно, например. так:

Код
MsgBox Лист1.ListObjects("table1").ListColumns("Имя").DataBodyRange.Find("свекла").Row - Лист1.[table1].Row + 1

Изменено: ZVI — 17.07.2017 14:43:32

Garni Пользователь Сообщений: 333 Регистрация: 06.03.2013	Вам ответ дал Илья Демид, в сообщении #6. Значение Row будет для являться для листа, если Вы хотите вычислить номер строки для таблицы по средствам VBA, то в лаконичную одну строку это не уберется

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

#16

17.07.2017 14:22:13

Есть и такой вариант

Код
Range("Table1").Find("свекла").Row - Range("Table1").Row – 1

Но по задаче поставленной в теме говориться о такой конструкции:
Worksheets(1).Range(«Table1»).[ХХХХХХХХХХХХ].Find(«свекла»).Row

Как правильно выглядит код для такой конструкции?
то есть Row определяется не для Worksheets(1) а для Range(«Table1»)
PS Был бы listObject вместо XXX стояло бы DataBodyRange

Подмена Range на ListObject не нужна

Изменено: tod2020 — 17.07.2017 14:29:59

	Слово задача убило наповал… Уважаемый tod2020 для задач есть платный раздел

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

#18

17.07.2017 14:33:49

Цитата
Илья Демид написал: Слово задача убило наповал

Я не требую. У Вас такая реакция(набор мыслеформ и картинка и интонация) на слово «задача» наверно с работы, но не всё так однобоко

Каждый кто отвечает на этих формах в этих темах решает задачи поставленные в теме. Я не требую большего чем тут принято. Как вещи называются так и называю
И каждый кто отвечает для когото другого — какуюто свою задачу выполняет для себя таким образом. и я не спрашиваю зачем ктото мне отвечает.

И наверно потому заставляю себя говорить спасибо потому что человек отвечающий решает свои задачи для себя, он уже получает себе чтото там

Как детскому саду всё разжевываю

Изменено: tod2020 — 17.07.2017 14:44:29

ZVI

Пользователь

Сообщений: 4328
Регистрация: 23.12.2012

В примере была таблица, поэтому в ответе и ListObject.
А что у Вас подразумевается под [XXX] ? Так как пояснений никаких не было, я посчитал, что Вы хотели указать конкретное поле в таблице для поиска, значение же может оказаться и в других полях. Уточните про XXX.

Изменено: ZVI — 17.07.2017 14:41:46

Илья Демид

Пользователь

Сообщений: 320
Регистрация: 25.11.2013

#20

17.07.2017 14:40:39

Вы ошибаетесь, но да ладно. Если я правильно понял то необходим вариант который бы сам вычислял в какой строке находится шапка и отнимал ее сам, Как насчет такого, но не 1 строкой:

Код
Dim a As Integer a = Worksheets(1).Range("table1").Find("свекла").End(xlUp).Row b = Worksheets(1).Range("table1").Find("свекла").Row MsgBox b - a

Изменено: Илья Демид — 17.07.2017 14:41:38

AndreTM

Пользователь

Сообщений: 454
Регистрация: 02.05.2013

тод2020, я уже упоминал вроде, что вы — не читатель?

том сообщении

вам был дан тот ответ, что вы требуете здесь (в одну строчку тот код переписывается просто на раз-два).
Неспособность заменить имя переменной её значением — на вашей совести…

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

#22

17.07.2017 14:45:54

Цитата
AndreTM написал: тод2020 , я уже упоминал вроде, что вы — не читатель?

Что это значит?

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

Чтож за такое то происходит?
перевожу что твориться
-мне надо красное яблоко
-ну на целый ящик груш зеленых! тоже круглые же
-да не надо мне!, мне надо и ОДНО и КРАСНОЕ и ЯБЛОКО!
-ну на возьми ну хочешь три желтых груши?
-да не надо мне ни желтую ни зеленую грушу ни целы ящик их, мне надо одно красное яблоко
-да не бывает красных яблок я не видел и вот двое тоже не видели никогда в жизни твое красное яблоко

дают груши лишь потомуто не знают что существует красное яблоко или потомучто просто напросто нету его в наличии

Изменено: tod2020 — 17.07.2017 14:53:08

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

#25

17.07.2017 14:54:55

Цитата
vikttur написал: Дубль темы:

Что Вы хотели этим сказать?
Я же написал последней фразой что лучше создать новую тему
Зачем лишние движения происходят то?

Изменено: tod2020 — 17.07.2017 14:55:47

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Пусть определят участники тем — дубль или нет. Я вижу, что разница в названии — «диапазон» и «умная таблица». Вы считаете, что диапазон умной таблицы — не диапазон?

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

#27

17.07.2017 14:56:53

Цитата
AndreTM написал: В том сообщении вам был дан тот ответ, что вы требуете здесь

Меня ваще не слышат — не понимают что я уже 3 раза продублировал самого начала запроса темы
Я понял люди знают как мне лучше. точно
Надоело объясняться. Буду ждать когда появится человек который понимает и меня и VBA

Изменено: tod2020 — 17.07.2017 15:00:24

AndreTM Пользователь Сообщений: 454 Регистрация: 02.05.2013	Короче, народ — нас явно троллят Предлагаю закончить все разборы и уточнения, ибо то, что ТС — китаец из индии, было понятно ещё в старой теме примерно с третьего его поста

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

#29

17.07.2017 15:02:46

Цитата
Буду ждать когда появится человек который понимает и меня и VBA

В VBA здесь разбираются многие. А вот Вас не понимают.

Цитата
tod2020 написал: Меня ваще не слышат

Не стоит ли задуматься? Если Вас не слышат многие — проблема в Вас, В том, как Вы доносите информацию. Или неправы все, кроме одного?

tod2020

Пользователь

Сообщений: 261
Регистрация: 10.05.2017

#30

17.07.2017 15:06:39

Цитата
vikttur написал: Если Вас не слышат многие — проблема в Вас

Я думаю очень разный уровень понимания. Например это может проявляться в контактах с регионами. Ваще тяжко бывает. В москве легко улавливают меня с полу слова

Изменено: tod2020 — 17.07.2017 15:07:06

Источник

Метод Find объекта Range для поиска ячейки по ее данным в VBA Excel. Синтаксис и компоненты. Знаки подстановки для поисковой фразы. Простые примеры.

Метод Find объекта Range предназначен для поиска ячейки и сведений о ней в заданном диапазоне по ее значению, формуле и примечанию. Чаще всего этот метод используется для поиска в таблице ячейки по слову, части слова или фразе, входящей в ее значение.

Синтаксис метода Range.Find

Expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

Expression – это переменная или выражение, возвращающее объект Range, в котором будет осуществляться поиск.

В скобках перечислены параметры метода, среди них только What является обязательным.

Метод Range.Find возвращает объект Range, представляющий из себя первую ячейку, в которой найдена поисковая фраза (параметр What). Если совпадение не найдено, возвращается значение Nothing.

Если необходимо найти следующие ячейки, содержащие поисковую фразу, используется метод Range.FindNext.

Параметры метода Range.Find

Наименование	Описание
Обязательный параметр
What	Данные для поиска, которые могут быть представлены строкой или другим типом данных Excel. Тип данных параметра — Variant.
Необязательные параметры
After	Ячейка, после которой следует начать поиск.
LookIn	Уточняет область поиска. Список констант xlFindLookIn: xlValues (-4163) – значения; xlComments (-4144) – примечания;* xlNotes (-4144) – примечания;* xlFormulas (-4123) – формулы.
LookAt	Поиск частичного или полного совпадения. Список констант xlLookAt: xlWhole (1) – полное совпадение; xlPart (2) – частичное совпадение.
SearchOrder	Определяет способ поиска. Список констант xlSearchOrder: xlByRows (1) – поиск по строкам; xlByColumns (2) – поиск по столбцам.
SearchDirection	Определяет направление поиска. Список констант xlSearchDirection: xlNext (1) – поиск вперед; xlPrevious (2) – поиск назад.
MatchCase	Определяет учет регистра: False (0) – поиск без учета регистра (по умолчанию); True (1) – поиск с учетом регистра.
MatchByte	Условия поиска при использовании двухбайтовых кодировок: False (0) – двухбайтовый символ может соответствовать однобайтовому символу; True (1) – двухбайтовый символ должен соответствовать только двухбайтовому символу.
SearchFormat	Формат поиска – используется вместе со свойством Application.FindFormat.

* Примечания имеют две константы с одним значением. Проверяется очень просто: MsgBox xlComments и MsgBox xlNotes.

В справке Microsoft тип данных всех параметров, кроме SearchDirection, указан как Variant.

Знаки подстановки для поисковой фразы

Условные знаки в шаблоне поисковой фразы:

? – знак вопроса обозначает любой отдельный символ;
* – звездочка обозначает любое количество любых символов, в том числе ноль символов;
~ – тильда ставится перед ?, * и ~, чтобы они обозначали сами себя (например, чтобы тильда в шаблоне обозначала сама себя, записать ее нужно дважды: ~~).

Простые примеры

При использовании метода Range.Find в VBA Excel необходимо учитывать следующие нюансы:

Так как этот метод возвращает объект Range (в виде одной ячейки), присвоить его можно только объектной переменной, объявленной как Variant, Object или Range, при помощи оператора Set.
Если поисковая фраза в заданном диапазоне найдена не будет, метод Range.Find возвратит значение Nothing. Обращение к свойствам несуществующей ячейки будет генерировать ошибки. Поэтому, перед использованием результатов поиска, необходимо проверить объектную переменную на содержание в ней значения Nothing.

В примерах используются переменные:

myPhrase – переменная для записи поисковой фразы;
myCell – переменная, которой присваивается первая найденная ячейка, содержащая поисковую фразу, или значение Nothing, если поисковая фраза не найдена.

Пример 1

Sub primer1()

Dim myPhrase As Variant, myCell As Range

myPhrase = «стакан»

Set myCell = Range(«A1:L30»).Find(myPhrase)

If Not myCell Is Nothing Then

MsgBox «Значение найденной ячейки: « & myCell

MsgBox «Строка найденной ячейки: « & myCell.Row

MsgBox «Столбец найденной ячейки: « & myCell.Column

MsgBox «Адрес найденной ячейки: « & myCell.Address

Else

MsgBox «Искомая фраза не найдена»

End If

End Sub

В этом примере мы присваиваем переменной myPhrase значение для поиска – "стакан". Затем проводим поиск этой фразы в диапазоне "A1:L30" с присвоением результата поиска переменной myCell. Далее проверяем переменную myCell, не содержит ли она значение Nothing, и выводим соответствующие сообщения.

Ознакомьтесь с работой кода VBA в случаях, когда в диапазоне "A1:L30" есть ячейка со строкой, содержащей подстроку "стакан", и когда такой ячейки нет.

Пример 2

Теперь посмотрим, как метод Range.Find отреагирует на поиск числа. В качестве диапазона поиска будем использовать первую строку активного листа Excel.

Sub primer2()

Dim myPhrase As Variant, myCell As Range

myPhrase = 526.15

Set myCell = Rows(1).Find(myPhrase)

If Not myCell Is Nothing Then

MsgBox «Значение найденной ячейки: « & myCell

Else: MsgBox «Искомая фраза не найдена»

End If

End Sub

Несмотря на то, что мы присвоили переменной числовое значение, метод Range.Find найдет ячейку со значением и 526,15, и 129526,15, и 526,15254. То есть, как и в предыдущем примере, поиск идет по подстроке.

Чтобы найти ячейку с точным соответствием значения поисковой фразе, используйте константу xlWhole параметра LookAt:

Set myCell = Rows(1).Find(myPhrase, , , xlWhole)

Аналогично используются и другие необязательные параметры. Количество «лишних» запятых перед необязательным параметром должно соответствовать количеству пропущенных компонентов, предусмотренных синтаксисом метода Range.Find, кроме случаев указания необязательного параметра по имени, например: LookIn:=xlValues. Тогда используется одна запятая, независимо от того, сколько компонентов пропущено.

Пример 3

Допустим, у нас есть многострочная база данных в Excel. В первой колонке находятся даты. Нам необходимо создать отчет за какой-то период. Найти номер начальной строки для обработки можно с помощью следующего кода:

Sub primer3()

Dim myPhrase As Variant, myCell As Range

myPhrase = «01.02.2019»

myPhrase = CDate(myPhrase)

Set myCell = Range(«A:A»).Find(myPhrase)

If Not myCell Is Nothing Then

MsgBox «Номер начальной строки: « & myCell.Row

Else: MsgBox «Даты « & myPhrase & » в таблице нет»

End If

End Sub

Несмотря на то, что в ячейке дата отображается в виде текста, ее значение хранится в ячейке в виде числа. Поэтому текстовый формат необходимо перед поиском преобразовать в формат даты.

Источник

I know this question has been addressed in several places here, but none so far are solving my problem, and I can’t think of anything else to search for.

Specifically, within an Excel macro I need to find the row number of the cell on a specific sheet that has a value that matches a variable. Then I need to use that row number to perform an action on another cell in that row. The value I’m looking for will be in Column C, then the action will be performed in Column A.

I have tried these solutions but no luck yet:

How to find the row number of a specific value in Excel using vbscript

Assigning the value of a worksheet cell to a constant

I’ve tried pasting my variable value into B1 as a placeholder, but I can’t find a way to find the matching value elsewhere on the sheet (there will be only one other). I’ve tried:

Public Const SKUVALUE As String = "$B$1"

but of course that returns the quoted string, not the value of the B1 cell.

If it would help for me to explain the bigger picture of my project I will be happy to do that, but it’s somewhat complicated. In short I am trying to bring content from one sheet to another sheet based on a numeric value (SKU) that is assigned to a specific row on each sheet. The row numbers will not match because of filters being applied on the first sheet. If I can mirror those filters on the second sheet then I would know the row number, but that sounds like a nightmare to implement. I can’t begin to think how to do it.

I’m really at my wit’s end with this. Any suggestions will be much appreciated.
Thank you.

Источник

msm.ru

Нравится ресурс?
Помоги проекту!

Популярные разделы FAQ: Общие вопросы Особенности VBA-кода Оптимизация VBA-кода Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость — сестра таланта.
3. Не забывайте использовать теги [сode=vba] …текст программы… [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.

Найти номер строки с нужной информацией
, Excel

Подписаться на тему
Сообщить другу
Скачать/распечатать тему

Сообщ.
#1

,
07.10.14, 08:39

Законченный оптимист

Рейтинг (т): 117

На:
WorksheetFunction.Match
Application.Match
ругается: #1004 — невозможно получить свойство Match класса WorksheetFunction.

Нужно найти именно НОМЕР строки. Либо всю строку запихнуть в переменную класса Range, чтобы я мог в ней другие столбцы менять.

Akina

Сообщ.
#2

,
07.10.14, 09:15

RangeToSearch.Select

Selection.Find(What:=ValueToSearch).Activate

MsgBox ActiveCell.Row

Jin X

Сообщ.
#3

,
07.10.14, 09:23

Законченный оптимист

Рейтинг (т): 117

Select не канает.
Надо просто получить эту строку, не меняя положения курсора. Если я сделаю Range(«НужныйДиапазон»).Find, то он мне найдёт непосредственно эту ячейку, верно? А как мне найти соседнюю справа, например?

Сообщение отредактировано: Jin X — 07.10.14, 09:23

Akina

Сообщ.
#4

,
07.10.14, 10:34

Цитата Jin X @ 07.10.14, 09:23

как мне найти соседнюю справа, например?

Если ты знаешь строку и столбец найденной ячейки, то взять «соседнюю справа» — это, конечно, задача совершенно нерешаемая…

Jin X

Сообщ.
#5

,
07.10.14, 17:30

Законченный оптимист

Рейтинг (т): 117

А кроме как через Address можно как-то узнать номер строки и столбца найденной ячейки?

Akina

Сообщ.
#6

,
08.10.14, 04:50

Не понял… номер строки и номер столбца — недостаточно, что ли?

Jin X

Сообщ.
#7

,
08.10.14, 13:06

Законченный оптимист

Рейтинг (т): 117

Address содержит строку вида $A$10 — выуживать из неё номер строки (особенно) и столбца не очень удобно.
Может, есть другое свойство, которое содержит эти номера в цифровом виде?

pashulka

Сообщ.
#8

,
08.10.14, 15:45

Full Member

Рейтинг (т): 95

Jin X, Если по каким-то причинам — Вы не хотите использовать свойства Row и Column (которые Вам и предлагал использовать Akina, смотрите сообщ.#2, 4), то есть и другие способы добраться до соседней ячейки

Private Sub Test()

Dim RangeToSearch As Range, CellFind As Range, FindText As String

FindText = «Чё мы ищем»

Set RangeToSearch = Range(«A:A») ‘Columns(1)

Set CellFind = RangeToSearch.Find(FindText, , xlValues, xlWhole)

If Not CellFind Is Nothing Then

MsgBox Cells(CellFind.Row, CellFind.Column + 1).Address ‘Akina

MsgBox CellFind.Next.Address

MsgBox CellFind(1, 2).Address

‘MsgBox CellFind.Item(1, 2).Address

MsgBox CellFind.Cells(1, 2).Address

MsgBox CellFind.Offset(, 1).Address ‘Учитывает об’един. ячейки

Else

MsgBox «Ничего не найдено»

End If

End Sub

Сообщение отредактировано: pashulka — 08.10.14, 15:46

Jin X

Сообщ.
#9

,
08.10.14, 16:34

Законченный оптимист

Рейтинг (т): 117

Так, я не знал, что Row и Column будут выдавать нужные позиции, я думал, что там будет 1, 1

Добавлено 08.10.14, 16:34
Спасибо!

pashulka

Сообщ.
#10

,
08.10.14, 18:31

Full Member

Рейтинг (т): 95

Несмотря на то, что стандартная функция рабочего листа ПОИСКПОЗ()/MATCH() была отвергнута я всё-таки перечислю некоторые случаи, при которых применение WorksheetFunction.Match действительно приведёт к возникновению ошибки #1004 и может быть этот опус кому-нибудь да пригодится

1) Т.к. эта функция универсальна, т.е. она может искать не только в столбце, но и в строке, то при поиске нужно указывать диапазон состоящий только из одного столбца(если ищем номер строки) или из одной строки(если ищем номер столбца)

Если изначально это сделать затруднительно, то можно воспользоваться, например, свойствами Columns/Rows об’екта Range, т.е.

Dim iSource As Range, iFindText As String ‘, iRow As Variant

Set iSource = Range(«A1:C100»)

iFindText = «Что ищем ?»

iRow = WorksheetFunction.Match(iFindText, iSource.Columns(1), 0)

2) Искомое значение банально отсутствует в столбце.

3) Искомое значение всё-таки наличествует, но функция его не находит, ибо чувствительна к типам, например, если мы ищем число 100, а в столбце наличествует текст «100» (или наоборот) Это кстати, очень распространённый вариант, из-за которого многие предпочитают мучить метод Find об’екта Range, который лишён этого недостатка(особенности)

4) Длина искомого текста больше 255 символов (касается и некоторых других функций, а также метода Find)

P.S. И напоследок прилагается пример поиска, где нет необходимости мучить On Error Resume Next ( и т.п.)

Dim iSource As Range, iFindText As Variant, iRow As Variant

Set iSource = Range(«A:A») ‘можно указать свой столбец

iFindText = 100 ‘»Что ищем ?»

iRow = Application.Match(iFindText, iSource, 0)

If Not IsError(iRow) Then ‘

MsgBox «Номер найденной строки #» & iRow

Else

MsgBox «Не срослось …»

End If

Jin X

Сообщ.
#11

,
09.10.14, 12:33

Законченный оптимист

Рейтинг (т): 117

Странно. Почему-то находит только при:
Set Res = .Range(«Коды»).Find(Int(Target), , xlValues, xlPart)
а при:
Set Res = .Range(«Коды»).Find(Int(Target), , xlValues, xlWhole)
не находит ничего

Target = «10»
Столбец «Коды» содержит числа, без формул даже (формат ячеек — числовой)

В чём дело?

pashulka

Сообщ.
#12

,
09.10.14, 21:15

Full Member

Рейтинг (т): 95

Если при вводе чисел не было допущено очепяток, то, по всей видимости, собака порылась именно в формате, например, указано число десятичных знаков больше 0, в результате чего 10 отображается как 10,00. Бороться с таким безобразием можно, например, так Range(«Коды»).Find(Target, , xlFormulas, xlWhole)

Jin X

Сообщ.
#13

,
10.10.14, 18:25

Законченный оптимист

Рейтинг (т): 117

Да, собака в этом. Но там стояли не десятичные знаки, а вот так:
# ##0_ ;[Красный]-# ##0
Разделение групп и… (пробел после?)
Благодарю!

Добавлено 10.10.14, 18:25
Сделал просто числовой формат 0

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

Предыдущая тема
VB for Application
Следующая тема

[ Script execution time: 0,0344 ] [ 16 queries used ] [ Generated: 14.04.23, 17:02 GMT ]

Источник

4 / 4 / 2

Регистрация: 10.10.2014

Сообщений: 86

Определить номер строки по значению в ячейке

04.09.2020, 21:20. Показов 2965. Ответов 5

Добрый всем вечер! Есть таблица (скриншот) такого вида. Необходимо определить номер строки над первым «0» (выделена).

Миниатюры

ᴁ®

3069 / 1735 / 361

Регистрация: 13.12.2016

Сообщений: 5,937

Записей в блоге: 4

04.09.2020, 21:27

Deka_Original, найти первый ноль и отнять единицу

Deka_Original

4 / 4 / 2

Регистрация: 10.10.2014

Сообщений: 86

04.09.2020, 21:38

[ТС]

Сообщение от АЕ

найти первый ноль и отнять единицу

я понимаю. И даже понимаю, что вопрос уровня школы, но я не могу найти первый 0)))) Именно с определением строки проблема. Я пробовал так :

Visual Basic

1	y = (Worksheets(3).Range("B$").Find("0").Row)

но попытка увенчалась провалом)

АЕ

ᴁ®

3069 / 1735 / 361

Регистрация: 13.12.2016

Сообщений: 5,937

Записей в блоге: 4

04.09.2020, 21:44

Вогнать в массив

Visual Basic

Dim x  
    With Range("B1", Cells(Rows.Count, 1).End(xlUp)) 'из столбца  
     x = WorksheetFunction.Transpose(.Value)  
    End With

далее идите (перебирайте) по массиву пока не найдете нужное

Catstail

Модератор

34706 / 19227 / 4039

Регистрация: 12.02.2012

Сообщений: 32,183

Записей в блоге: 13

04.09.2020, 21:44

Сообщение было отмечено АЕ как решение

Решение

Visual Basic

    iii&=1
    do 
        if WorkSheets(3).Range("B"+Cstr(iii&)).Value=0 then Exit Do
        iii&=iii&+1
    loop
    msgbox Cstr(iii&-1)

4 / 4 / 2

Регистрация: 10.10.2014

Сообщений: 86

04.09.2020, 22:19

[ТС]

Сообщение от АЕ

Вогнать в массив

Спасибо за совет!

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

iii&=1
do
if WorkSheets(3).Range(«B»+Cstr(iii&)).Value=0 then Exit Do
iii&=iii&+1
loop
msgbox Cstr(iii&-1)

Это понравилось больше) Спасибо!

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.09.2020, 22:19

Помогаю со студенческими работами здесь

Найти номер строки элемента матрицы, ближайшего по значению к среднему арифметическому значению элементов этой матрицы
Двумерный массив.

Дана прямоугольная матрица А(n,m). Найти номер строки элемента матрицы,…

Поиск номера строки по значению в ячейке в этой строке
Здравствуйте, помоги реализовать. Есть таблица и 3 формы. В таблице к примеру, колонки "серийный…

Как подсчитать сумму в итоговой ячейке по определенному значению если в ячейке есть буквы и цыфры
Добрый день, всем.
Помогите пожалуйста, как можно посчитать сумму в итоговой ячейке по…

Как удалить строки, имеющие в первой ячейке любое количество цифр? И как удалить строки по значению первого слова? т.д
День добрый. Могли бы подсказать.
Как удалить строки, имеющие в первой ячейке любое количество…

Определить номер строки, содержащей положительные числа, и вывести номер строки
В двумерном массиве определить номер строки, содержащих положительные числа и вывести номер строки….

VBA Word Определить номер параграфа в ячейке таблицы
Доброго времени суток.
Работаю с ячейкой таблицы в word.
Задача взять из нее, например первых три…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник