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

Вход

Регистрация

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

 

= Мир MS Excel/Применение формулы в столбце если в другом столбце есть итог - Мир MS Excel

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

Добрый день!
Помогите разобраться, что написано не так в коде, мне нужно чтобы если в первой колонке есть слово итог, ко второй колонке применялась формула 1+1, файл приложила
,
К сообщению приложен файл: 6281217.xlsm(16.6 Kb)
 
Ответить
СообщениеДобрый день!
Помогите разобраться, что написано не так в коде, мне нужно чтобы если в первой колонке есть слово итог, ко второй колонке применялась формула 1+1, файл приложила
,

Автор - Заяц6628
Дата добавления - 27.12.2021 в 12:52
китин Дата: Понедельник, 27.12.2021, 13:00 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6895
Репутация: 1056 ±
Замечаний: 0% ±

Excel 2007;2010;2016
так?
[vba]
Код
Sub Макрос1()
  Dim lLastRow As Long
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lLastRow
   Set TT_ = Cells(i, 1).Find("*Итог")
      If Not TT_ Is Nothing Then
        Cells(i, 2).FormulaR1C1 = "=1+1"
      End If
Next i
End Sub
[/vba]
К сообщению приложен файл: 5425109.xlsm(12.9 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениетак?
[vba]
Код
Sub Макрос1()
  Dim lLastRow As Long
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lLastRow
   Set TT_ = Cells(i, 1).Find("*Итог")
      If Not TT_ Is Nothing Then
        Cells(i, 2).FormulaR1C1 = "=1+1"
      End If
Next i
End Sub
[/vba]

Автор - китин
Дата добавления - 27.12.2021 в 13:00
Заяц6628 Дата: Понедельник, 27.12.2021, 13:04 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Спасибо! Теперь все понятно! Все работает! Спаситель!)))
 
Ответить
СообщениеСпасибо! Теперь все понятно! Все работает! Спаситель!)))

Автор - Заяц6628
Дата добавления - 27.12.2021 в 13:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Применение формулы в столбце если в другом столбце есть итог (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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