Не вставляется формула в ячейку

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

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

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

akobir

Дата: Среда, 28.10.2015, 16:26 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

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

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

Excel 2010

Добрый день!

Есть два числа: курс валюты (четыре знака после запятой) и сумма в валюте (максимум два знака после запятой).
При перемножении выдает ошибку.
Насколько я понял, вся проблема в знаках после запятой.
Голову сломал, решить не могу. :)

Буду признателен.
Пример прикладываю.

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

e-mail: akobir.ismailov@gmail.com

Ответить

Pelena

Дата: Среда, 28.10.2015, 16:50 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19187

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

Замечаний: ±

Excel 365 & Mac Excel

При перемножении 2000 и 65, 0009 получается 130001,8
В чём ошибка?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Wasilich

Дата: Среда, 28.10.2015, 19:11 | Сообщение № 3

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

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

Сообщений: 1232

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

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

2003

У него формула макросом не вставляется.

[vba]

Код

ThisWorkbook.Sheets(1).Cells(5, 3).Formula = "=C3*C4"

[/vba]

Сообщение отредактировал Wasilic - Среда, 28.10.2015, 19:36

Ответить

akobir

Дата: Четверг, 29.10.2015, 09:28 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 201

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

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

Excel 2010

Товарищи, посмотрите код и все станет понятно. :)
Формула действительно не вставляется макросом, если значения из ячеек заданы в переменную. Вопрос в том - почему?

e-mail: akobir.ismailov@gmail.com

Ответить

buchlotnik

Дата: Четверг, 29.10.2015, 09:45 | Сообщение № 5

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

потому что передаёте значение с региональными настройками - VBA клинит от четырёх знаков после запятой - для него запятая - разделитель тысяч. Решаем либо заменой запятой на точку [vba]

Код

Sub test()
Dim kurs As Double
Dim a As Double
Dim s As String

    kurs = ThisWorkbook.Sheets(1).Cells(3, 3)
    a = ThisWorkbook.Sheets(1).Cells(4, 3)
    s = "=" & kurs & "*" & a
    s = Replace(s, ",", ".")
    ThisWorkbook.Sheets(1).Cells(5, 3).Formula = s

End Sub

[/vba]либо вставкой формулы с учётом локалей[vba]

Код

Sub test2()
Dim kurs As Double
Dim a As Double
Dim s As String

    kurs = ThisWorkbook.Sheets(1).Cells(3, 3)
    a = ThisWorkbook.Sheets(1).Cells(4, 3)
    s = "=" & kurs & "*" & a

    ThisWorkbook.Sheets(1).Cells(5, 3).FormulaLocal = s

End Sub

[/vba] как-то так