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

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

Источник

tchack Пользователь Сообщений: 183 Регистрация: 01.01.1970	В ячейке B1 есть формула =ЕСЛИ(A1=»»;»»;…… и так далее по всему столбцу. Как проверить есть ли в ячейке B1 значение выводимое формулой?? If Cells(1, «B»).Value <> «» не помогает If IsEmpty(Cells(1, «B»).Value) не помогает

Jack Famous

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

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

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

08.12.2022 16:09:56

Цитата
tchack: Как проверить есть ли в ячейке B1 значение выводимое формулой?

If Len(Cells(1, «B»))Then
Подозреваю, что вопрос с подвохом, т.к. ТС не знает, что проверяет…

Изменено: Jack Famous — 08.12.2022 16:10:45

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

_Boroda_

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

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

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

08.12.2022 16:12:28

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

Цитата
tchack написал: If Cells(1, «B»).Value <> «» не помогает

Что значит «Не помогает»? Как оно помочь должно? Проверить на «»? Тогда такая конструкция нормально работает

Код
If Cells(1, "B") <> "" Then f = 5 End If

Изменено: _Boroda_ — 08.12.2022 16:14:53

Скажи мне, кудесник, любимец ба’гов…

V Пользователь Сообщений: 5018 Регистрация: 22.12.2012	ячейка не пустая в ней есть «», соответственно ваши проверки не работают.

Jack Famous

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

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

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

08.12.2022 16:15:21

Цитата
V: ячейка не пустая в ней есть «», соответственно ваши проверки не работают.

Цитата
tchack: If Cells(1, «B»).Value <> «» не помогает

_Boroda_

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

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

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

08.12.2022 16:19:11

Цитата
Jack Famous написал: If Cells(1, «B»).Value <> «» не помогает

Значит, или условие задачи неверно (неполно), или приведенный код не такой, как в реальном макросе. Или

Цитата
Jack Famous написал: вопрос с подвохом

Впрочем, могут быть и все 3 пункта одновременно )))

Скажи мне, кудесник, любимец ба’гов…

tchack

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

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

08.12.2022 16:42:03

Цитата
Jack Famous написал: If Len(Cells(1, «B»))ThenПодозреваю, что вопрос с подвохом, т.к. ТС не знает, что проверяет…

В ячейке ничего не выводится, только «» из формулы =ЕСЛИ(A1=»»;»»;……

Len(Cells(1, «B»)) выводит 8. Чего 8 я не понимаю.

Цитата
_Boroda_ написал: Что значит «Не помогает»? Как оно помочь должно? Проверить на «»? Тогда такая конструкция нормально работает

Я просто написал примеры, которые использовал. Проверить на «». Да, проверить на «». Я и спросил, придя на форум, «Как проверить есть ли в ячейке B1 значение выводимое формулой??».

Цитата
V написал: ячейка не пустая в ней есть «», соответственно ваши проверки не работают.

К данному логическому вывода я и пришел, написав вопрос на форуме.

Цитата
_Boroda_ написал: Значит, или условие задачи неверно (неполно), или приведенный код не такой, как в реальном макросе. Или

Полно. Как еще переформулировать я не знаю.

_Boroda_ Пользователь Сообщений: 1496 Регистрация: 27.07.2013 Контакты см. в профиле	Пример приложить. Все просто Скажи мне, кудесник, любимец ба’гов…

_Boroda_

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

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

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

08.12.2022 16:49:16

Если

Цитата
tchack написал: Len(Cells(1, «B»)) выводит 8

то уж никак не

Цитата
tchack написал: В ячейке ничего не выводится, только «»

Как минимум, там 8 знаков чего-либо. Пробелов, например. Вы ж не написали, что там дальше в формуле.
Короче, пример нужен. И еще раз — это

Цитата
tchack написал: проверить есть ли в ячейке B1 значение выводимое формулой??

вообще не одно и то же, что вот это

Цитата
tchack написал: Да, проверить на «».

Вам нужно выяснить, выводится в В1 пусто или какое-то иное значение

Скажи мне, кудесник, любимец ба’гов…

Jack Famous

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

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

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#10

08.12.2022 17:04:17

Цитата
tchack: Len(Cells(1, «B»)) выводит 8. Чего 8 я не понимаю.

попробуйте спросить у мистера интернета:

VBA.Len()

Изменено: Jack Famous — 08.12.2022 17:05:13

tchack

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

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

#11

08.12.2022 17:51:37

Цитата
Jack Famous написал: VBA.Len()

Разобрался. Спасибо за наводку на Len (+1 к скиллу «Шерлок Холмс»). Начал думать откуда 8 знаков появилось. Оказалось, что чужая пользовательская функция в формуле пустоты в ячейке добавляла.

Изменено: tchack — 08.12.2022 17:52:14

Jack Famous

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

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

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#12

08.12.2022 18:01:52

Цитата
tchack: Спасибо за наводку на Len

это не наводка, а ссылка на подробное объяснение. Пожалуйста.

Цитата
tchack: Начал думать откуда 8 знаков появилось. Оказалось, что чужая пользовательская функция в формуле пустоты в ячейке добавляла.

это как? Пустоты не прибавляют символов к строке. Если вам нужно считать строки, состоящие только из пробелов, пустыми, то If Len(Trim$(Cells(1, «B»)))Then их будет отсеивать (выдавать 0).
Не сработает с неразрывными [=СИМВОЛ(160)] и другими (если они бывают) пробелами — только с обычными [=СИМВОЛ(32)]

Изменено: Jack Famous — 08.12.2022 18:08:35

tchack

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

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

#13

08.12.2022 18:11:26

Цитата
Jack Famous написал: это как?

Уточняю, под пустотами я имел ввиду переносы:
Chr(10) — они считаются.

Jack Famous

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

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

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#14

08.12.2022 18:15:50

Цитата
tchack: Уточняю, под пустотами я имел ввиду переносы Chr(10) — они считаются

превосходно
Замените их пробелами, а дальше я показал. Иди удаляйте сразу.

Отображение кодов символов для текста выделенной ячейки

— чтобы не путаться в символах и всё видеть

Изменено: Jack Famous — 08.12.2022 18:21:11

Источник

Вы пробуете сделать выбор из того, что выбора не имеет. Т.е., если бы Вы проверяли только наличие слова «Форум1», тогда применение Select Case было бы оправданным, например

Visual Basic

Select Case InStr(1, Cells(i, 1).Value, "Форум1",vbTextCompare)
     Case is = 1 ' "Форум1" - первое слово фразы
           '(какие-то действия)
     Case is = 0 ' "Форум1" отсутствует 
           '(какие-то действия)
     Case is>1 ' "Форум1" находится в середине фразы      
           '(какие-то действия)
End select

В Вашем случае Вы ищете три разных выражения, и тогда лучьше использовать что-то другое, как подсказывает, например, Pavel55.
И все-таки желательно применять .Value, vbTextCompare (vbBinaryCompare)

Добавлено через 4 часа 19 минут
Давайте тогда добьем строковую функцию instr() до конца.
Никогда не возникала у меня подобная ситуация, но не так давно участник форума Скрипт посоветовал применить Instr() совместно с функцией, к примеру, Ucase() — тоже строковая фукция. И буквально на следующий день…. Поэтому и Вам передаю его совет. Все-таки лучьше застраховаться и писать в функции следующим образом (или что-то подобное):

Visual Basic

1	InStr(1, Ucase(Cells(i, 1).Value), Ucase("Форум1"),vbTextCompare)

Что б понять, прогоните где-то в модуле выражение:

Visual Basic

1
2
3

Dim mStr$
    mstr="Форум1"
    Debug.Print Ucase(mstr) ' Ctrl + G. Можно еще Ucase("Форум1"), или Ucase(Trim(Cells(i,1).value))

При этом, сами значения mStr и cells(i,1).value изменится только в момент (и на момент) применения ф-ции InStr для сравнения. Но это не панацэя!
Удачи.

Источник

В VBA для этих целей есть функция InStr. Используется как

InStr([start,] string1, string2[, compare])

где start — необязательный параметр, указывающий начальную позицию для поиска (по умолчанию с первого символа)
string1 — строка, в которой осуществляется поиск
string2 — искомая строка
compare — необязательный параметр, указывающий метод сравнения (бинарное, текстовое или сравнение информации в базах данных (только для Access)). По умолчанию используется бинарное сравнение.

Возвращаемые значения функции:
NULL — если любая из строк NULL,
0 — если string1 пустая строка либо string2 не найдена, либо start больше длины строки string1,
start — если string2 пустая строка,
если строка string2 найдена внутри строки string1, то возвращает позицию, в которой найдено совпадение.

Пример использования

Function contains(string1 As String, string2 As String, Optional start As Integer = 1, _
        Optional compare As VbCompareMethod = vbTextCompare) As Boolean
    ' функция проверки вхождения строки string2 в строку string1 без учёта регистра  
    ' если string2 - пустая строка, то возвращается False
    Dim findPosition As Integer

    contains = False
    findPosition = InStr(start, string1, string2, compare)
    If Len(string2) > 0 And findPosition >= start Then contains = True
End Function

Sub test()
    Dim str1 As String, str2 As String
    Dim start As Integer

    str1 = "absqwerty"
    str2 = "qwer"
    MsgBox contains(str1, str2)
End Sub

Источник

Добрый день!
Задача стоит следующая: написать цикл, который проверят, если в столбце С в ячейках С1,С2,С3 и т.д есть значения, тогда копируем определенные значения, если значение ячейки пусто, тогда завершается скрипт.

Заранее спасибо.

начало процедуры


   ЦИКЛ от 1 до 1000
         ЕСЛИ ячейка пустая ТОГДА
                 выход из процедуры
         ИНАЧЕ
                 копия значения
         КОНЕЦ ЕСЛИ
   КОНЕЦ ЦИКЛА
КОЕЦ ПРОЦЕДУРЫ

Вам осталось записать это операторами VBA
Если вопросы остались, то прошу дать ответ на встречные вопросы:
— сами что-то делали?
— размер исходных данных какой?
— копировать значения куда?
— файл-пример с Вашими попытками где?

Операторы VBA, необходимые для решения:
Sub-End Sub
For-Next
If-Then-Else-End If
Copy-Paste или обработка в массиве

Сам написал вторую часть: в плане копирования, копируется в шаблон, который расположен на сетевой шаре, вот код.
Теперь мне нужно добавить цикл, который проверит, если значение есть в столбце С, тогда выполняется копирование значений, согласно коду.

Sub Mx1() Dim Wb1 As Workbook, wb2 As Workbook, myData As Variant


'copy from ThisWorkbook
Set Wb1 = ActiveWorkbook
'To This
Set wb2 = Workbooks.Open("\s-pkv01-dc01.ylrus.comPKV01-WorkgroupsFUJIFILMFormsTemplatesMX1.xlsx")
'Copy Document Number
' Wb1.ActiveSheet.Range("C2").Copy wb2.Sheets(1).Range("H18:L18")
wb2.Sheets(1).Range("H18:L18") = Wb1.ActiveSheet.Range("D2").Value & "/" & Wb1.ActiveSheet.Range("C2").Value
wb2.Sheets(1).Range("H18:L18").Font.Size = 8
wb2.Sheets(1).Range("H18:L18").Columns.AutoFit
' Copy Description



  


                       
  




Wb1.ActiveSheet.Range("F2:F31").copy wb2.Sheets(1).Range("D29:D58")
Wb1.ActiveSheet.Range("F32:F71").copy wb2.Sheets(2).Range("D7:D46")
wb2.Sheets(1).Range("D29:D58").Borders.LineStyle = xlContinuous
wb2.Sheets(2).Range("D7:D46").Borders.LineStyle = xlContinuous
wb2.Sheets(1).Range("D29:D58").Font.Size = 6
wb2.Sheets(2).Range("D7:D46").Font.Size = 6
wb2.Sheets(1).Range("D29:D58").Columns.AutoFit
wb2.Sheets(2).Range("D7:D46").Columns.AutoFit
' Copy Code
Wb1.ActiveSheet.Range("E2:E31").copy wb2.Sheets(1).Range("E29:E58")
Wb1.ActiveSheet.Range("E32:E71").copy wb2.Sheets(2).Range("G7:G46")
wb2.Sheets(1).Range("E29:E58").Borders.LineStyle = xlContinuous
wb2.Sheets(2).Range("G7:G46").Borders.LineStyle = xlContinuous
wb2.Sheets(1).Range("E29:E58").Font.Size = 8
wb2.Sheets(2).Range("G7:G46").Font.Size = 8
wb2.Sheets(1).Range("E29:E58").Columns.AutoFit
wb2.Sheets(2).Range("G7:G46").Columns.AutoFit
' Copy Q-ty
Wb1.ActiveSheet.Range("I2:I31").copy wb2.Sheets(1).Range("L29:L58")
Wb1.ActiveSheet.Range("I32:I71").copy wb2.Sheets(2).Range("N7:N46")
wb2.Sheets(1).Range("L29:L58").Borders.LineStyle = xlContinuous
wb2.Sheets(2).Range("N7:N46").Borders.LineStyle = xlContinuous
wb2.Sheets(1).Range("L29:L58").Font.Size = 8
wb2.Sheets(2).Range("N7:N46").Font.Size = 8
'wb2.Sheets(1).Range("L29:L58").Columns.AutoFit
'wb2.Sheets(2).Range("N7:N46").Columns.AutoFit
 ' Create Data
myValue = InputBox("Введите дату составления документа, формат ввода (день.месяц.год)")
 wb2.Sheets(1).Range("O18:Q18").Value = myValue
' Save New MX1 to folder
wb2.SaveAs Filename:="\ylrus.comfilesPKV01-WorkgroupsFUJIFILMFormsMX1MX1_" & Wb1.ActiveSheet.Range("D2").Value & "_" & Wb1.ActiveSheet.Range("C2").Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False
  ' Close MX1



  


                       
  




 ' wb2.Close
End Sub
[code]

Цитата: vikttur от 24.11.2014, 16:05
Операторы VBA, необходимые для решения:…

хм… не очень понимаю, как указать чтобы в активной книге проверялся столбец С
получиться

For Each cl In Wb1.Columns(3).Cells If cl = "" Then Exit Sub


  Wb1.ActiveSheet.Range("C2").Copy wb2.Sheets(1).Range("H18:L18")
wb2.Sheets(1).Range("H18:L18") = Wb1.ActiveSheet.Range("D2").Value & "/" & Wb1.ActiveSheet.Range("C2").Value
wb2.Sheets(1).Range("H18:L18").Font.Size = 8
wb2.Sheets(1).Range("H18:L18").Columns.AutoFit
' Copy Description
Wb1.ActiveSheet.Range("F2:F31").copy wb2.Sheets(1).Range("D29:D58")
Wb1.ActiveSheet.Range("F32:F71").copy wb2.Sheets(2).Range("D7:D46")
wb2.Sheets(1).Range("D29:D58").Borders.LineStyle = xlContinuous
wb2.Sheets(2).Range("D7:D46").Borders.LineStyle = xlContinuous
wb2.Sheets(1).Range("D29:D58").Font.Size = 6
wb2.Sheets(2).Range("D7:D46").Font.Size = 6
wb2.Sheets(1).Range("D29:D58").Columns.AutoFit
wb2.Sheets(2).Range("D7:D46").Columns.AutoFit



  


                       
  




' Copy Code
Wb1.ActiveSheet.Range("E2:E31").copy wb2.Sheets(1).Range("E29:E58")
Wb1.ActiveSheet.Range("E32:E71").copy wb2.Sheets(2).Range("G7:G46")
wb2.Sheets(1).Range("E29:E58").Borders.LineStyle = xlContinuous
wb2.Sheets(2).Range("G7:G46").Borders.LineStyle = xlContinuous
wb2.Sheets(1).Range("E29:E58").Font.Size = 8
wb2.Sheets(2).Range("G7:G46").Font.Size = 8
wb2.Sheets(1).Range("E29:E58").Columns.AutoFit
wb2.Sheets(2).Range("G7:G46").Columns.AutoFit
' Copy Q-ty
Wb1.ActiveSheet.Range("I2:I31").copy wb2.Sheets(1).Range("L29:L58")
Wb1.ActiveSheet.Range("I32:I71").copy wb2.Sheets(2).Range("N7:N46")
wb2.Sheets(1).Range("L29:L58").Borders.LineStyle = xlContinuous
wb2.Sheets(2).Range("N7:N46").Borders.LineStyle = xlContinuous
wb2.Sheets(1).Range("L29:L58").Font.Size = 8
wb2.Sheets(2).Range("N7:N46").Font.Size = 8
'wb2.Sheets(1).Range("L29:L58").Columns.AutoFit
'wb2.Sheets(2).Range("N7:N46").Columns.AutoFit
 ' Create Data
myValue = InputBox("Введите дату составления документа, формат ввода (день.месяц.год)")
 wb2.Sheets(1).Range("O18:Q18").Value = myValue
' Save New MX1 to folder
wb2.SaveAs Filename:="\ylrus.comfilesPKV01-WorkgroupsFUJIFILMFormsMX1MX1_" & Wb1.ActiveSheet.Range("D2").Value & "_" & Wb1.ActiveSheet.Range("C2").Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False
  ' Close MX1
 ' wb2.Close



  


                       
  




End Sub

извиняюсь, немного некорректно описываю задачу.
и так
входные данные
1. фаил csv
2. шаблон statement.xlsx

Нужно заполнить фаил statemenet данными из файла csv и сохранить его под именем statemenet_датазаполнениядокумента.xlsx

Сейчас имею вот такой кусок кода:

Sub Ведомость()


 Dim Wb1 As Workbook, wb2 As Workbook, myData As Variant
  Set Wb1 = ActiveWorkbook
 Set wb2 = Workbooks.Open("\ylrus.comfilesPKV01-WorkgroupsFUJIFILMFormsTemplatesstatement.xlsx")
 'заполняем шапку
 Wb1.ActiveSheet.Range("C2").Copy wb2.Sheets1.Range("L5")
 Wb1.ActiveSheet.Range("D2").Copy wb2.Sheets1.Range("L4")



  


                       
  







  


                       
  




 myValue = InputBox("Введите дату")
 wb2.Sheets(1).Range("L3").Value = myValue
     ' Сохраняем фаил
   wb2.SaveAs Filename:="\ylrus.comfilesPKV01-WorkgroupsFUJIFILMFormsstamenetsstamenet_" & wb2.Sheet(1).Range("L3") & ".xlsx", FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False
  End Sub

У меня затык в следующем, в файле csv каждый разное значение строчек, соответственно нужен цикл, который проверяет, кол-во строк в файле csv и добавляет такое же кол-во строк в фаил statement.xlsx и заполняется их данными по следюущему алгоритму:

диапазон значений столбца A в csv копируем в диапазон B файла xlsx диапазон значений столбца F в csv копируем в диапазон C файла xlsx диапазон значений столбца I в csv копируем в диапазон D файла xlsx диапазон значений столбца G в csv копируем в диапазон F файла xlsx диапазон значений столбца H в csv копируем в диапазон G файла xlsx

Тема обсуждается параллельно (автору — Вы сами должны давать такие ссылки): http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=61640&TITLE_SEO=61640-vba-skript-proverki-nalichiya-znacheniy-v-yacheyki [МОДЕРАТОР]

Профессиональные приемы работы в Microsoft Excel
►
Обмен опытом
►
Microsoft Excel
►
vba скрипт проверки наличия значений в ячейки

Источник