Excel VBA почему не выполняется поиск в объединенных ячейках?

Question

[asdz]

Всем привет!
Столкнулся с проблемой, что в Excel 2013 не выполняется поиск текста программным способом из VBA и C# в объединенных ячейках . Ручной поиск выполняется нормально. Записываю макрос поиска по содержимому, поиск находит ячейки. После записи макроса, пытаюсь выполнить его в режиме отладки и вижу, что одиночная ячейка находится, а объединенная - нет.
Текст макроса:

Sub Макрос5()
'
' Макрос5 Макрос
'

'
    Cells.Find(What:="xxx", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate
    Cells.FindNext(After:=ActiveCell).Activate
End Sub

содержимое листа:

Ссылка на файл с макросом ge.tt/849QWKC2/v/0?c

Answer 1

[Saboteur]

Потому что VBA криво работает с merge cells, и на официальном сайте экселя не рекомендуют использовать объединенные ячейки, если вы разрабатываете что-то сложное на VBA, потому что это нарушает и сортировку и цикл по ячейкам.
Можно конечно придумать костыли перебором ячеек в цикле, но большинство готовых функций обработки столбцов и рядов работать не будут.

Comments

[asdz]

Вот это подстава... Спасибо за ответ

[h8nor]

Есть такая проблема: встречал на офф.сайте код C# с меткой VBA (естественно, синтаксис у них разный). Похоже, те кто писали VB отправились к мамонтам.
С сортировкой в массивах проблем не было (цикл по ячейкам лучше не делать, т.к. обработка будет происходить в 10-ки раз медленнее). Опять же верно - если разрабатывать что-то сложно, лучше использовать нормальную БД, потому что кучу проверок нужно написать, чтобы на листе данные не разваливались. Особенно это заметно, если оперировать данными с включённым автофильтром. В версиях до 12-той также были ошибки с вычислением Промежуточных итогов. Да, всего не охватишь...

Answer 2

[h8nor]

Замените SearchOrder:=xlByColumns на SearchOrder:=xlByRows
и удалите строки Cells.FindNext(After:=ActiveCell).Activate

Comments

[asdz]

Вы правы, я не обращал внимания на этот параметр. Жесть )))

[h8nor]

Макрорекодер (единственно, что разбирают на всяких курсах по VBA) - это реальная жесть ;) Нужно после него обязательно разбирать весь код и смотреть, что он делает. Чтобы нормально писать макросы, нужно читать мануал (благо в справке 80-90% документировано). Успехов!

[asdz]

John Smith: Я только за, но дело в том, что я делаю генерацию отчета, и если ячейки не мержить, то получается не так красиво. Например нужно вывести Количество: [Count], Сумма: [TotalPrice] , если все это в одной смерженной ячейке, то после замены плейсхолдеров между словами будет точно один пробел, а если разнести по ячейкам, то будет пустое пространство, плюс если текст длинный в какой то ячейке, то текст перекроется соседними ячейками

[h8nor]

asdz: Я бы порекомендовал сначала заполнить ячейки отчёта, а в конце нужные объединить. Длинные строки опять же плохо - при печати текст может вылезать за рамки печати. Может есть смысл выгружать данные в Word (надо быть готовым, что структура объектов там сложнее).

[asdz]

Дѣаволъ: но ведь если я объединю несколько ячеек, текст останется только от первой? С вордом тоже можно, я все равно с объектами не буду работать, только с документом - для поиска и замены плейсхолдеров.

[h8nor]

asdz: Да, только от первой. Либо нужно писать функцию, которая сначала прочитает значения, затем после объединения восстановит. Или можно сдвинуть сетку в квадраты, но могут быть проблемы с печатью на других ПК; также не очень удобно что-то изменять. Поэтому форму лучше продумать заранее.

Answer 3

[DrAkosh365]

Надо произвести поиск по колонкам, то есть по столбцам.
ub Прейре_к_запису()
' Макрос Прейре к запису

Dim nomdoma As Object
Dim a As Object
Dim b As Object
Dim ws As Worksheet
Dim c As Object
Dim d As Object
Dim e As Integer

Set a = Workbooks(1).Worksheets(1).Range("E18")
Set b = Workbooks(1).Worksheets(1).Range("E19")


If a.Value = 12 Then
Set ws = dom12
ElseIf a.Value = 13 Then
Set ws = dom13
ElseIf a.Value = 16 Then
Set ws = dom16
ElseIf a.Value = 18 Then
Set ws = dom18
ElseIf a.Value = 20 Then
Set ws = dom20
Else
MsgBox "Нет дом с токой номером!"
Exit Sub
End If
e = ws.index ' е преровняется к индексу рабочего листа'
If ws.index = dom16.index And b >= 49 Then 'MsgBox dom16.Type Обрашаемся к типу названного листа и указивем в условие if
MsgBox "В доме " & a.Value & " с номером " & _
b & " кватира не сушестьвует. Имеется 48кв! Вибирите другой номер квартиру! Ниже 49", vbAbortRetryIgnore
Exit Sub
End If
Set nomdoma = ws.Range("H:H").Find(What:=b.Value, LookIn:=xlValues, _
lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
ThisWorkbook.Worksheets(e).Select
Range(nomdoma.Address).Offset(rowOffset:=0, columnOffset:=-7).Select
End Sub
Используйте функцию Range("A:A").Find