Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.09.2021, 15:01   #11
OgE®_M@G
Форумчанин
 
Аватар для OgE®_M@G
 
Регистрация: 28.06.2008
Сообщений: 124
По умолчанию

Добрый день. Итого получилось пока так. Спасибо.
Код:
Sub ВставкаФормулы()
'   https://programmersforum.ru/showthread.php?t=340291
    Dim RwL&, Rw&, RwF&
    RwF = 2     '   пропускаем стоку с заголовком
    RwL = Cells(Rows.Count, 3).End(xlUp).Row
    For Rw = RwF To RwL
        If Cells(Rw, 3) Like "* Итог*" Then
            '   вставляем формулу, например:
            Cells(Rw, 16).NumberFormat = "0.0"
            Cells(Rw, 16).Formula = "=O" & Rw & -Cells(3, 32)
        End If
    Next Rw
End Sub
OgE®_M@G вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA:Вставка строки с формулами в определенных ячейках aSavinova Помощь студентам 0 04.12.2014 14:12
Поиск, вставка на готовый шаблон в Excel через Delphi7 Duisenbaev Общие вопросы Delphi 2 15.10.2012 22:56
поиск через VBA Tirendus Microsoft Office Excel 8 31.07.2009 13:49
вставка формулы в ячейку (vba) pride Microsoft Office Excel 5 13.07.2009 09:26
Вставка строки через n-е количество строк glazomer Microsoft Office Excel 5 12.03.2009 13:20