Добавление формулы в ячейке с имеющимся значением в ней

Вход

Регистрация

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

= Мир MS Excel/Добавление формулы в ячейке с имеющимся значением в ней - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление формулы в ячейке с имеющимся значением в ней (Макросы/Sub)

Добавление формулы в ячейке с имеющимся значением в ней

dilius

Дата: Среда, 05.04.2017, 15:34 | Сообщение № 1

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

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

Сообщений: 38

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

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

Excel 2010

Коллеги, добрый день!
Вопрос такой: хочу макросом вставить в ячейки формулы, которые = значению в ячейки * на коэффициент.
Не могу понять откуда ошибка 1004 Apllication-defined or object required error.

К сообщению приложен файл: shlyapa.xlsm (16.2 Kb)

Nothing personal

Ответить

krosav4ig

Дата: Среда, 05.04.2017, 15:52 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

Здравствуйте. Как-то так. Ошибка была из-за десятичного разделителя. [vba]

Код

Sub shlyapa()
    For t = 1 To 5
        With ActiveWorkbook.Sheets("Лист1").Cells(7 + t, 2)
            .FormulaLocal = "=" & CDbl(.Value) & "*src!A1"
        End With
    Next
End Sub

[/vba]или так[vba]

Код

Sub shlyapa()
    For t = 1 To 5
        With ActiveWorkbook.Sheets("Лист1").Cells(7 + t, 2)
            .Formula = "=" & .Formula & "*src!A1"
        End With
    Next
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 05.04.2017, 16:00

Ответить

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