Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Если ячейка содержит слово, то вставить строку со словом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если ячейка содержит слово, то вставить строку со словом (Макросы/Sub)
Если ячейка содержит слово, то вставить строку со словом
Yar4i Дата: Четверг, 08.10.2020, 10:51 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, дамы и господа :D
Пробую к имеющемуся коду выделения строки серым фоном по условию добавить еще одно условие по добавлению снизу новой строки (под ячейкой со словом "вернуть").
[vba]
Код
Sub СтрокуВыделить()
PS = Range("K" & Rows.count).End(xlUp).Row
   For i = PS To 16 Step -1
     If Cells(i, 11).Value Like "*вернуть*" Then
       Rows(i).Interior.ColorIndex = 15
     End If
   Next
End Sub
[/vba]

В столбце К, в некоторых ячейках содержится слово "вернуть" (например К19)
Нужно под каждой такой ячейкой добавить строку, а в этой новой строке добавить слово "досписать" в 11-ом столбце. (например К20)
Если получится к имеющемуся коду добавить - круть.
Как было и как стало - все приложил в файле 1234.

Я пробовал .Offset (1) и .Insert отдельным макросом подсмотренным на просторах сети, но подсвечивает красным код, и пробовал вторым условием If, но никак без вас.
К сообщению приложен файл: 1234.xlsx(68.2 Kb)


Сообщение отредактировал Yar4i - Четверг, 08.10.2020, 10:56
 
Ответить
СообщениеДобрый день, дамы и господа :D
Пробую к имеющемуся коду выделения строки серым фоном по условию добавить еще одно условие по добавлению снизу новой строки (под ячейкой со словом "вернуть").
[vba]
Код
Sub СтрокуВыделить()
PS = Range("K" & Rows.count).End(xlUp).Row
   For i = PS To 16 Step -1
     If Cells(i, 11).Value Like "*вернуть*" Then
       Rows(i).Interior.ColorIndex = 15
     End If
   Next
End Sub
[/vba]

В столбце К, в некоторых ячейках содержится слово "вернуть" (например К19)
Нужно под каждой такой ячейкой добавить строку, а в этой новой строке добавить слово "досписать" в 11-ом столбце. (например К20)
Если получится к имеющемуся коду добавить - круть.
Как было и как стало - все приложил в файле 1234.

Я пробовал .Offset (1) и .Insert отдельным макросом подсмотренным на просторах сети, но подсвечивает красным код, и пробовал вторым условием If, но никак без вас.

Автор - Yar4i
Дата добавления - 08.10.2020 в 10:51
Kuzmich Дата: Четверг, 08.10.2020, 12:15 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 516
Репутация: 101 ±
Замечаний: 0% ±

Excel 2003
Цитата
к имеющемуся коду добавить

[vba]
Код
Sub СтрокуВыделить()
Dim PS As Long
Dim i As Long
PS = Range("K" & Rows.Count).End(xlUp).Row
For i = PS To 18 Step -1
    If Cells(i, 11).Value Like "*вернуть*" Then
    Rows(i).Interior.ColorIndex = 15
      Rows(i + 1).Insert
      Cells(i + 1, 11) = "досписать"
    End If
Next
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
к имеющемуся коду добавить

[vba]
Код
Sub СтрокуВыделить()
Dim PS As Long
Dim i As Long
PS = Range("K" & Rows.Count).End(xlUp).Row
For i = PS To 18 Step -1
    If Cells(i, 11).Value Like "*вернуть*" Then
    Rows(i).Interior.ColorIndex = 15
      Rows(i + 1).Insert
      Cells(i + 1, 11) = "досписать"
    End If
Next
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 08.10.2020 в 12:15
Yar4i Дата: Четверг, 08.10.2020, 14:35 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 130
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
добавить

Спасибо.
+ 1 Круть
 
Ответить
Сообщение
добавить

Спасибо.
+ 1 Круть

Автор - Yar4i
Дата добавления - 08.10.2020 в 14:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Если ячейка содержит слово, то вставить строку со словом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!