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

	Здравствуйте! Вопрос, по сути в заголовке. Имеем значения, к примеру: «345» и «3куц» как в коде проще всего определить что можно использовать как число? Чет я простых методов не нашел…

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012	Может я что-то не правильно понял? Debug.Print IsNumeric(Cells(1, 1).Value) Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

	Понял ошибку. Я пробовал Is Numeric. Спасибо!

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012	Не за что Также: Debug.Print IIf(Application.IsText(Cells(1, 1).Value), «Text», «Numeric») Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	{quote}{login=LightZ}{date=09.07.2012 07:29}{thema=}{post}Debug.Print IIf(Application.IsText(Cells(1, 1).Value), «Text», «Numeric»){/post}{/quote}С этим нужно осторожнее: при пустом значении и дате, получим неверные ответы

	Ну мне для решения конкретной задачи больше всего походит первый вариант в виде: If IsNumeric(Arr(i)) Then a = a + Arr(i)

ZVI Пользователь Сообщений: 4328 Регистрация: 23.12.2012	Добрый вечер, Михаил! На всякий случай для коллекции, это тоже будет = True: Debug.Print IsNumeric(«1d3»), IsNumeric(«1e2»)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Здравствуйте все. В дополнение, и это тоже: Debug.Print Application.IsText(«1d3»), Application.IsText(«1e2») Я сам — дурнее всякого примера! …

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Забыл еще: Debug.Print Application.IsText(«13»), Application.IsText(«12») Я сам — дурнее всякого примера! …

LightZ

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

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

Так я думаю вряд ли кто-то будет использовать
с перемененными и константами всё Ок

Const x As Long = «111»: Const z As String = «abc»
Debug.Print Application.IsText(x), Application.IsText(z)

False True

Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

KuklP

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

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

E-mail и реквизиты в профиле.

Богдан, вот это — неправильно:
Const x As Long = «111»
Правильно:
Const x As Long = 111
Экс, да, произведет неявное преобразование, что не есть хорошо. Из-за того, что результат в разных случаях непредсказуем и может привести к ошибкам выполнения:-)
Попробуй по шагам:
Const x As Long = «1d3»
Stop
И посмотри, чему равен х.

Я сам — дурнее всякого примера! …

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012	Серёж, а в чём разница то? Const x As Long = «111» Const x As Long = 111 Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	«111» — строка 111 — число

{quote}{login=ZVI}{date=09.07.2012 09:56}{thema=}{post}Добрый вечер, Михаил!
На всякий случай для коллекции, это тоже будет = True:
Debug.Print IsNumeric(«1d3»), IsNumeric(«1e2»){/post}{/quote}
А почему к «d» и «e» такое «избранное» отношение?
Проверил другие буквы — везде False

LightZ Пользователь Сообщений: 1748 Регистрация: 22.12.2012	{quote}{login=Юрий М}{date=09.07.2012 11:37}{thema=}{post}»111″ — строка 111 — число{/post}{/quote} Ну это если не объявлять числовую переменную, тогда так Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Богдан, а тогда зачем объявлять заведомо неверно? Об этом Серж и говорит… Если «111», ту нужно и писать: As String. Если хотим числовую переменную — кавычки не нужны. Вот о чём разговор.

> А почему к «d» и «e» такое «избранное» отношение?

Михаил, это экспоненциальная запись числа. 1d3=1000, 1e2=100.
В Фортране использование символа E означает тип Single, а D — Double. То есть там 1 — единица целого типа, 1E0 — единица типа Single, 1D0 — единица типа Double.
VBA воспринимает обе буквы как указание типа Double.
Попробуйте также в окне Immediate

?isnumeric(«ff»),isnumeric(«&hff»),isnumeric(«&o75»),isnumeric(«&o79»)

	Я попробовал так: хоть 234е765б + 1 хоть 123d765 + 1 =11 (+25 = 35) и вообще, т.е если внутри цифр, сколько бы из не было, стоит одна е или d, то как число это равно 10. но цифры должны быть с обеих сторон.

k61 Пользователь Сообщений: 2441 Регистрация: 21.12.2012	IsNumeric(«ЧислоИлиЦифра» & Chr(160) & «ЧислоИлиЦифра»)=True Chr(160) — пробел.

Если данные будут считываться только из ячеек рабочего_листа:

Function ValueIsNumber(X) As Boolean
Select Case VarType(X)
Case vbDouble, vbDate, vbBoolean
Case Else
Exit Function
End Select
ValueIsNumber = True
End Function

Если даты или логические не считать числами — удалить vbDate или vbBoolean

LightZ

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

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

{quote}{login=Юрий М}{date=10.07.2012 10:40}{thema=}{post}Богдан, а тогда зачем объявлять заведомо неверно? Об этом Серж и говорит… Если «111», ту нужно и писать: As String. Если хотим числовую переменную — кавычки не нужны. Вот о чём разговор.{/post}{/quote}Юрий, я понял.
По идее в варианте Михаила, данные будут заливаться с листа, т.е. проблем с IsNumeric или же IsText возникнуть не должно, у меня всегда отрабатывали на ура.

Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Если других данных не будет, то всё нормально. Весь сыр-бор разгорелся из-за того, что с проверкой типа есть подводные камни, и их желательно учитывать.

LightZ

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

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

Загвоздочка может произойти только с пробелом или пустой ячейкой, т.к. vba считает, что пустая ячейка это число, а вот с датой проблем нет (false)

Dim x As Range
For Each x In ActiveSheet.UsedRange
If Not Application.Trim(x.Value) = Empty Then Debug.Print IsNumeric(x.Value), x.Value, x.Address
Next

Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

ran Пользователь Сообщений: 7091 Регистрация: 21.12.2012	Что-то я не улавливаю. Если x.Value = Empty, то зачем Application.Trim ? Если x.Value <> Empty, то Application.Trim(x.Value) все равно не будет Empty

Юрий М

Модератор

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

Контакты см. в профиле

{quote}{login=LightZ}{date=10.07.2012 10:01}{thema=}{post}Загвоздочка может произойти только с пробелом или пустой ячейкой, т.к. vba считает, что пустая ячейка это число, а вот с датой проблем нет {/post}{/quote}Ну как же нет?
Вот Ваше предложение:
Debug.Print IIf(Application.IsText(Cells(1, 1).Value), «Text», «Numeric»)
Введите в ячейку дату и проверьте.

ZVI

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

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

E — это экспоненциальная форма записи числа
D — это тоже какая-то архаичная форма числа.
И то и другое выдаст число As Double, возможно поэтому и D

В окне Immediate:
?2d3 или ?2e3 покадут результат 2000, т.е 2*10^3
?VarType(2e3)=vbDouble выдаст True

Если вписать в VBA-модуле, например, такую строку:
a = 2d3 или a = 2e3
то после смещения курсора на другую строку эта преобразуется в
a = 2000#
где # в конце означает преобразование числа в Double

Павел

Гость

#27

10.07.2012 22:23:57

2 Михаил С

Цитата
А почему к «d» и «e» такое «избранное» отношение

Точка и знаки «d» и «e» могут быть частью записи числа, не поэтому ли?

LightZ

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

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

RAN, воспроизведите макрос:
Sub tt()
With Cells(1, 1)
.Value = » »
Debug.Print .Value = Empty, Application.Trim(.Value) = Empty

.Value = Empty
Debug.Print .Value = Empty
End With
End Sub

Т.е. с помощью Application.Trim(x.Value) убиваю сразу двух зайцев: пустоту и пробел

Юрий, я описал про IsNumeric, а с текстом придется учитывать и дату

With Cells(1, 1)
If Not IsDate(.Value) Then Debug.Print Application.IsText(.Value)
End With

Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?

Юрий М

Модератор

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

Контакты см. в профиле

{quote}{login=LightZ}{date=10.07.2012 10:29}{thema=}{post}Юрий, я описал про IsNumeric, а с текстом придется учитывать и дату{/post}{/quote}Я реагировал на это:
Debug.Print IIf(Application.IsText(Cells(1, 1).Value), «Text», «Numeric»)
Посмотрите — моё сообщение сразу после Вашего Разобрались

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#30 10.07.2012 23:15:44 Такой, казалось бы, простой вопрос, а столько подводных камней! Для моей задачи подошел самый первый ответ — IsNumeric(a). По сути у меня массив примерно 150 столбцов, с столбцы и числовые и тестовые. Нужно строки, удовлетворяющие определенным условиям, сложить, пропуская тест. такой кусок кодаЖ For ii = 1 To Ubound(Arr, 2) if IsNumeric(Arr(i, ii)) Then MiArr(si, ii) = MiArr(si, ii)+Arr(i, ii) Next Дат у меня нет, но проверил ради интереса — обрабатывает корректно, т.е. пропускает

Источник

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

Обращение к конкретной ячейке

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

Полный путь к ячейке A1 в Книге1 на Листе1 можно записать двумя вариантами:

С помощью Range
С помощью Cells

Пример 1: Обратиться к ячейке A3 находящейся в Книге1 на Листе1

Workbooks("Книга1.xls").Sheets("Лист1").Range("A3") ' Обратиться к ячейке A3
Workbooks("Книга1.xls").Sheets("Лист1").Cells(3, 1) ' Обратиться к ячейке в 3-й строке и 1-й колонке (A3)

Однако, как правило, полный путь редко используется, т.к. макрос работает с Книгой, в которой он записан и часто на активном листе. Поэтому путь к ячейке можно сократить и написать просто:

Пример 2: Обратиться к ячейке A1 в текущей книге на активном листе

Range("A1")
Cells(1, 1)

Если всё же путь к книге или листу необходим, но не хочется его писать при каждом обращении к ячейкам, можно использовать конструкцию With End With. При этом, обращаясь к ячейкам, необходимо использовать в начале «.» (точку).

Пример 3: Обратиться к ячейке A1 и B1 в Книге1 на Листе2.

With Workbooks("Книга1").Sheets("Лист2")
  ' Вывести значение ячейки A1, которая находится на Листе2
  MsgBox .Range("A1")
  ' Вывести значение ячейки B1, которая находится на Листе2
  MsgBox .Range("B1")
End With

Так же, можно обратиться и к активной (выбранной в данный момент времени) ячейке.

Пример 4: Обратиться к активной ячейке на Листе3 текущей книги.

Application.ActiveCell ' полная запись
ActiveCell ' краткая запись

Чтение значения из ячейки

Есть 3 способа получения значения ячейки, каждый из которых имеет свои особенности:

Value2 — базовое значение ячейки, т.е. как оно хранится в самом Excel-е. В связи с чем, например, дата будет прочтена как число от 1 до 2958466, а время будет прочитано как дробное число. Value2 — самый быстрый способ чтения значения, т.к. не происходит никаких преобразований.
Value — значение ячейки, приведенное к типу ячейки. Если ячейка хранит дату, будет приведено к типу Date. Если ячейка отформатирована как валюта, будет преобразована к типу Currency (в связи с чем, знаки с 5-го и далее будут усечены).
Text — визуальное отображение значения ячейки. Например, если ячейка, содержит дату в виде «число месяц прописью год», то Text (в отличие от Value и Value2) именно в таком виде и вернет значение. Использовать Text нужно осторожно, т.к., если, например, значение не входит в ячейку и отображается в виде «#####» то Text вернет вам не само значение, а эти самые «решетки».

По-умолчанию, если при обращении к ячейке не указывать способ чтения значения, то используется способ Value.

Пример 5: В ячейке A1 активного листа находится дата 01.03.2018. Для ячейки выбран формат «14 марта 2001 г.». Необходимо прочитать значение ячейки всеми перечисленными выше способами и отобразить в диалоговом окне.

MsgBox Cells(1, 1)        ' выведет 01.03.2018
MsgBox Cells(1, 1).Value  ' выведет 01.03.2018
MsgBox Cells(1, 1).Value2 ' выведет 43160
MsgBox Cells(1, 1).Text   ' выведет 01 марта 2018 г.

Dim d As Date
d = Cells(1, 1).Value2    ' числовое представление даты преобразуется в тип Date
MsgBox d                  ' выведет 01.03.2018

Пример 6: В ячейке С1 активного листа находится значение 123,456789. Для ячейки выбран формат «Денежный» с 3 десятичными знаками. Необходимо прочитать значение ячейки всеми перечисленными выше способами и отобразить в диалоговом окне.

MsgBox Range("C1")        ' выведет 123,4568
MsgBox Range("C1").Value  ' выведет 123,4568
MsgBox Range("C1").Value2 ' выведет 123,456789
MsgBox Range("C1").Text   ' выведет 123,457р.

Dim c As Currency
c = Range("C1").Value2    ' значение преобразуется в тип Currency
MsgBox c                  ' выведет 123,4568

Dim d As Double
d = Range("C1").Value2    ' значение преобразуется в тип Double
MsgBox d                  ' выведет 123,456789

При присвоении значения переменной или элементу массива, необходимо учитывать тип переменной. Например, если оператором Dim задан тип Integer, а в ячейке находится текст, при выполнении произойдет ошибка «Type mismatch». Как определить тип значения в ячейке, рассказано в следующей статье.

Пример 7: В ячейке B1 активного листа находится текст. Прочитать значение ячейки в переменную.

Dim s As String
Dim i As Integer
s = Range("B1").Value2 ' успех
i = Range("B1").Value2 ' ошибка

Таким образом, разница между Text, Value и Value2 в способе получения значения. Очевидно, что Value2 наиболее предпочтителен, но при преобразовании даты в текст (например, чтобы показать значение пользователю), нужно использовать функцию Format.

Запись значения в ячейку

Осуществить запись значения в ячейку можно 2 способами: с помощью Value и Value2. Использование Text для записи значения не возможно, т.к. это свойство только для чтения.

Пример 8: Записать в ячейку A1 активного листа значение 123,45

Range("A1") = 123.45
Range("A1").Value = 123.45
Range("A1").Value2 = 123.45

Все три строки запишут в A1 одно и то же значение.

Пример 9: Записать в ячейку A2 активного листа дату 1 марта 2018 года

Cells(2, 1) = #3/1/2018#
Cells(2, 1).Value = #3/1/2018#
Cells(2, 1).Value2 = #3/1/2018#

В данном примере тоже запишется одно и то же значение в ячейку A2 активного листа.

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

Источник

Обращение к ячейке на листе Excel из кода VBA по адресу, индексу и имени. Чтение информации из ячейки. Очистка значения ячейки. Метод ClearContents объекта Range.

Обращение к ячейке по адресу

Допустим, у нас есть два открытых файла: «Книга1» и «Книга2», причем, файл «Книга1» активен и в нем находится исполняемый код VBA.

В общем случае при обращении к ячейке неактивной рабочей книги «Книга2» из кода файла «Книга1» прописывается полный путь:

Workbooks(«Книга2.xlsm»).Sheets(«Лист2»).Range(«C5»)

Workbooks(«Книга2.xlsm»).Sheets(«Лист2»).Cells(5, 3)

Workbooks(«Книга2.xlsm»).Sheets(«Лист2»).Cells(5, «C»)

Workbooks(«Книга2.xlsm»).Sheets(«Лист2»).[C5]

Удобнее обращаться к ячейке через свойство рабочего листа Cells(номер строки, номер столбца), так как вместо номеров строк и столбцов можно использовать переменные. Обратите внимание, что при обращении к любой рабочей книге, она должна быть открыта, иначе произойдет ошибка. Закрытую книгу перед обращением к ней необходимо открыть.

Теперь предположим, что у нас в активной книге «Книга1» активны «Лист1» и ячейка на нем «A1». Тогда обращение к ячейке «A1» можно записать следующим образом:

ActiveCell

Range(«A1»)

Cells(1, 1)

Cells(1, «A»)

[A1]

Точно также можно обращаться и к другим ячейкам активного рабочего листа, кроме обращения ActiveCell, так как активной может быть только одна ячейка, в нашем примере – это ячейка «A1».

Если мы обращаемся к ячейке на неактивном листе активной рабочей книги, тогда необходимо указать этот лист:

‘по основному имени листа

Лист2.Cells(2, 7)

‘по имени ярлыка

Sheets(«Имя ярлыка»).Cells(3, 8)

Имя ярлыка может совпадать с основным именем листа. Увидеть эти имена можно в окне редактора VBA в проводнике проекта. Без скобок отображается основное имя листа, в скобках – имя ярлыка.

Обращение к ячейке по индексу

К ячейке на рабочем листе можно обращаться по ее индексу (порядковому номеру), который считается по расположению ячейки на листе слева-направо и сверху-вниз.

Например, индекс ячеек в первой строке равен номеру столбца. Индекс ячеек во второй строке равен количеству ячеек в первой строке (которое равно общему количеству столбцов на листе, зависящему от версии Excel) плюс номер столбца. Индекс ячеек в третьей строке равен количеству ячеек в двух первых строках плюс номер столбца. И так далее.

Для примера, Cells(4) та же ячейка, что и Cells(1, 4). Используется такое обозначение редко, тем более, что у разных версий Excel может быть разным количество столбцов и строк на рабочем листе.

По индексу можно обращаться к ячейке не только на всем рабочем листе, но и в отдельном диапазоне. Нумерация ячеек осуществляется в пределах заданного диапазона по тому же правилу: слева-направо и сверху-вниз. Вот индексы ячеек диапазона Range(«A1:C3»):

Обращение к ячейке Range("A1:C3").Cells(5) соответствует выражению Range("B2").

Обращение к ячейке по имени

Если ячейке на рабочем листе Excel присвоено имя (Формулы –> Присвоить имя), то обращаться к ней можно по присвоенному имени.

Допустим одной из ячеек присвоено имя – «Итого», тогда обратиться к ней можно – Range("Итого").

Запись информации в ячейку

Содержание ячейки определяется ее свойством «Value», которое в VBA Excel является свойством по умолчанию и его можно явно не указывать. Записывается информация в ячейку при помощи оператора присваивания «=»:

Cells(2, 4).Value = 15

Cells(2, 4) = 15

Range(«A1») = «Этот текст записываем в ячейку»

ActiveCell = 28 + 10*36

Вместе с числами и текстом можно использовать переменные. Примеры здесь и ниже приведены для активного листа. Для неактивных листов дополнительно необходимо указывать имя листа, как в разделе «Обращение к ячейке».

Чтение информации из ячейки

Считать информацию из ячейки в переменную можно также при помощи оператора присваивания «=»:

Sub Test()

Dim a1 As Integer, a2 As Integer, a3 As Integer

Range(«A3») = 6

Cells(2, 5) = 15

a1 = Range(«A3»)

a2 = Cells(2, 5)

a3 = a1 * a2

MsgBox a3

End Sub

Точно также можно обмениваться информацией между ячейками:

Cells(2, 2) = Range(«A4»)

Очистка значения ячейки

Очищается ячейка от значения с помощью метода ClearContents. Кроме того, можно присвоить ячейке значение нуля. пустой строки или Empty:

Cells(10, 2).ClearContents

Range(«D23») = 0

ActiveCell = «»

Cells(5, «D») = Empty

Источник

0 / 0 / 0

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

Сообщений: 50

Проверить, есть ли в ячейке текст

04.10.2009, 16:39. Показов 6918. Ответов 4

Здравствуйте
Подскажите как прописать условие если в ячейки текст

Код

    If Range("A9") = [COLOR="Red"]“?” [/COLOR]Then

~~Busine2009~~

Заблокирован

04.10.2009, 17:14

Visual Basic

Sub NoText()
If Range("a9").Text = "" Then
    MsgBox "Тут нет текста!"
Else
    MsgBox "Текст здесь есть!"
End If
End Sub

0 / 0 / 0

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

Сообщений: 50

04.10.2009, 17:20

[ТС]

А просто есть текст без Else

~~Busine2009~~

Заблокирован

04.10.2009, 17:27

Visual Basic

Sub NoText()
If Range("a9").Text <> "" Then
    MsgBox "В ячейке есть текст!"
End If
End Sub

0 / 0 / 0

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

Сообщений: 50

04.10.2009, 17:33

[ТС]

Спасибо

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

04.10.2009, 17:33

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

Если в диапазоне ячеек есть текст, то в другой ячейке выполняется условие
Всем привет! Подскажите пожалуйста, как реализовать такую логику:

Если в диапазоне ячеек,…

Проверить есть в строке текст
Перебираю строки и хочу сравнить есть ли в строке текст.

Например, есть строки

Вася Пупкин…

Как проверить есть ли текст
Ребят вот такая у меня проблема хочу проверить есть ли текст в текстареа или нет если есть то…

Проверить есть ли текст в слове
Нужно проверить, есть ли в введённом слове что-то кроме текста и, если есть, печатать "это не…

Как проверить есть ли текст в блокноте?
Ребят, нужно проверить, работает ли программа "блокнот", затем нужно проверить открыт пустой…

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

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

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

Источник

I want to check a range of cells for a certain piece of text. This text is always in my document, except it’s cell is variable (column is always B). So I check a range from 1:75 whether any cells contain a piece of text, but it doesn’t seem to work.

Dim FoundRange As Range
Set FoundRange = Cells.Find("5/7 binnen 4h")
Range("I" & EmptyCell + 2).Value = ... (value of cell I on same row as B)

Cell I’m looking for always contains this text Onderhoud 5/7 binnen 4h but its position can vary, that’s why I just need to check whether it contains any of it. When I find that cell, I need the value I on the same row.

Any suggestions are welcome!

asked Feb 23, 2012 at 16:13

Could you not just search for the substring?

Sheet1.Cells.Find("string to find")

Will return the a range containing the string (or nothing if the string can’t be found.

For example

Public Sub Macro1()
Dim FoundRange As Range

Set FoundRange = Sheet1.Cells.Find("5/7 binnen 4h")

' display the cell address to the user
MsgBox FoundRange.Address


' put the found value in column i in the same row as the found text in a known location ($C$1 in this case)
Sheet1.Range("$C$1").Value = Sheet1.Cells(FoundRange.Row, 9).Value

' put the found value in four columns to the right in the same row as the found text in a known location ($C$1 in this case)
Sheet1.Range("$C$2").Value = FoundRange.Offset(0, 4).Value

End Sub

answered Feb 23, 2012 at 16:26

Steve HomerSteve Homer

3,8272 gold badges21 silver badges40 bronze badges

This is too much to fit into a comment, so posting it as an answer…

You should be careful when using Find() with just a single argument: if you’ve previously used Find() in your code and (eg) specified an argument lookat:=xlWhole then you may not get the results you expect, particularly if you’re looking for a substring of a cell’s value. Settings passed to Find() are persistent: if you don’t specify an argument then it may be carried over from the previous use.

As an example (working with a sheet containing the text «hello tom» in B4:

Sub Tester()

    Dim f

    Set f = ActiveSheet.Cells.Find(what:="tom", lookat:=xlPart)
    Report f

    Set f = ActiveSheet.Cells.Find(what:="tom", lookat:=xlWhole)
    Report f

    Set f = ActiveSheet.Cells.Find("tom")
    Report f

End Sub

Sub Report(f)
    If Not f Is Nothing Then
        Debug.Print f.Address
    Else
        Debug.Print "not found"
    End If
End Sub

Running this gives:

$B$4
not found
not found

I seem to recall this is also the case if you’ve used Find() «manually» and then use it in code later in the same session (didn’t test though).

answered Feb 23, 2012 at 17:24

Tim WilliamsTim Williams

150k8 gold badges96 silver badges124 bronze badges

Источник