Поиск по слову - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Поиск по слову (Макросы Sub)

Поиск по слову

Cudass

Дата: Среда, 02.10.2013, 08:40 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Доброго дня. В общем чтото я немогу написать казалось бы простой макрос, (не программист я всё таки

), поэтому прошу помощи.
Необходимо найти в 1 столбике строку которая содержит слово "Дом"(на картинке 8 строка), а затем после неё добавить 2 строки "Площадь жилая" и "Площадь нежилая".

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

Сообщение отредактировал Cudass - Среда, 02.10.2013, 08:40

Ответить

anvg

Дата: Среда, 02.10.2013, 08:56 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Добрый день.
<_<

Примерный вариант макроса

К сообщению приложен файл: 1913876.png (11.8 Kb)

Сообщение отредактировал anvg - Среда, 02.10.2013, 08:57

Ответить

Cudass

Дата: Среда, 02.10.2013, 09:20 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

anvg, ругается Run-time error '1004' : Method 'Range' of object'_Global' failed
на данную строку "Set pFind = ActiveSheet.UsedRange.Find("дом*", Range("А1"))"
может чтото ещё нужно прописать ? подскажите пожалуйста

Ответить

anvg

Дата: Среда, 02.10.2013, 09:27 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Цитата

Run-time error '1004' : Method 'Range' of object'_Global' failed

А версия Excel у вас какая?
Попробуйте с таким
Set pFind = ActiveSheet.Cells.Find("дом *", ActiveSheet.Range("A1"))

Ответить

Cudass

Дата: Среда, 02.10.2013, 09:33 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

anvg,

Цитата (anvg, 02.10.2013 в 09:27, в сообщении № 4)

А версия Excel у вас какая?
Попробуйте с таким
Set pFind = ActiveSheet.Cells.Find("дом *", ActiveSheet.Range("A1"))

версия 2007, с таким вариантом работает, спасибо!
а можно ли данный код сделать через цикл, чтобы при множестве данных, при каждом нахождении слова "ДОМ" добавляло также 2 строки ?

Сообщение отредактировал Cudass - Среда, 02.10.2013, 09:56

Ответить

anvg

Дата: Среда, 02.10.2013, 10:19 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

[vba]

Код

Public Sub InsAfterHouse()
     Dim pFind As Range, sAddress As String
     With ActiveSheet.Cells
         Set pFind = .Find("дом *", ActiveSheet.Range("A1"))
         If Not pFind Is Nothing Then
             sAddress = pFind.Address
             Do
                 ActiveSheet.Rows(CStr(pFind.Row + 1) & ":" & CStr(pFind.Row + 2)).EntireRow.Insert xlShiftDown
                 pFind.Offset(1, 0).Value = "Площадь жилая"
                 pFind.Offset(2, 0).Value = "Площадь нежилая"
                 Set pFind = .FindNext(pFind)
             Loop Until (pFind.Address = sAddress) Or (pFind Is Nothing)
         End If
     End With
End Sub

[/vba]
Успехов.

Ответить

Cudass

Дата: Среда, 02.10.2013, 10:23 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Цитата (anvg, 02.10.2013 в 10:19, в сообщении № 6)

Успехов.

спасибо огромное вы сильно облегчили мне работу ! плюсую вам однозначно.

Ответить

Поиск по слову (Макросы Sub)

Страница 1 из 1
1