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

Вход

Регистрация

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

 

= Мир MS Excel/Добавить строки перед ячейками содержащими значение "разрыв" - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить строки перед ячейками содержащими значение "разрыв" (Макросы/Sub)
Добавить строки перед ячейками содержащими значение "разрыв"
cojafi7743 Дата: Пятница, 15.07.2022, 22:07 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Здраствуйте.
Помогите, пожалуйста, с макросом.

Есть таблица "A3:D50". В столбце "D" вычисляется нужность разрывов.
Необходимо перед ячейками со значением "Разрыв" вставить 3 пустых строки.
На 3й вставленной строке в ячейке "B" формулу со значением ячейки "C" строкой ниже.

В файлике в столбцах "F:I" нарисовал то, что хочу в результате получить.

Спасибо.
К сообщению приложен файл: 4293020.xlsx(14.0 Kb)
 
Ответить
СообщениеЗдраствуйте.
Помогите, пожалуйста, с макросом.

Есть таблица "A3:D50". В столбце "D" вычисляется нужность разрывов.
Необходимо перед ячейками со значением "Разрыв" вставить 3 пустых строки.
На 3й вставленной строке в ячейке "B" формулу со значением ячейки "C" строкой ниже.

В файлике в столбцах "F:I" нарисовал то, что хочу в результате получить.

Спасибо.

Автор - cojafi7743
Дата добавления - 15.07.2022 в 22:07
Gustav Дата: Пятница, 15.07.2022, 23:05 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2211
Репутация: 893 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
[vba]
Код
Sub Макрос1()
    Dim rng As Range, i
    Set rng = Range("D1:D100")
    For i = rng.Cells.Count To 1 Step -1
        With rng.Cells(i)
            If .Value = "РАЗРЫВ" Then
                .Offset(, -3).Resize(3, 4).Insert xlDown
                .Offset(-1, -2).FormulaR1C1 = "=R[1]C[1]"
                .Offset(-1, -2).Font.Bold = True 'p.s. добавлена жирность
            End If
        End With
    Next i
End Sub
[/vba]


МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Суббота, 16.07.2022, 12:22
 
Ответить
Сообщение[vba]
Код
Sub Макрос1()
    Dim rng As Range, i
    Set rng = Range("D1:D100")
    For i = rng.Cells.Count To 1 Step -1
        With rng.Cells(i)
            If .Value = "РАЗРЫВ" Then
                .Offset(, -3).Resize(3, 4).Insert xlDown
                .Offset(-1, -2).FormulaR1C1 = "=R[1]C[1]"
                .Offset(-1, -2).Font.Bold = True 'p.s. добавлена жирность
            End If
        End With
    Next i
End Sub
[/vba]

Автор - Gustav
Дата добавления - 15.07.2022 в 23:05
cojafi7743 Дата: Пятница, 15.07.2022, 23:27 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Спасибо
 
Ответить
СообщениеСпасибо

Автор - cojafi7743
Дата добавления - 15.07.2022 в 23:27
cojafi7743 Дата: Суббота, 16.07.2022, 11:22 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Gustav, Я сильно извиняюсь.
А как жирность этой ячейке добавить?

[vba]
Код
.Offset(-1, -2).FormulaR1C1 = "=R[1]C[1]"
[/vba]
 
Ответить
СообщениеGustav, Я сильно извиняюсь.
А как жирность этой ячейке добавить?

[vba]
Код
.Offset(-1, -2).FormulaR1C1 = "=R[1]C[1]"
[/vba]

Автор - cojafi7743
Дата добавления - 16.07.2022 в 11:22
Gustav Дата: Суббота, 16.07.2022, 12:21 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2211
Репутация: 893 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
[vba]
Код
.Offset(-1, -2).FormulaR1C1 = "=R[1]C[1]"
.Offset(-1, -2).Font.Bold = True
[/vba]
Я сильно извиняюсь

Не за что извиняться :)


МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение[vba]
Код
.Offset(-1, -2).FormulaR1C1 = "=R[1]C[1]"
.Offset(-1, -2).Font.Bold = True
[/vba]
Я сильно извиняюсь

Не за что извиняться :)

Автор - Gustav
Дата добавления - 16.07.2022 в 12:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить строки перед ячейками содержащими значение "разрыв" (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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