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

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

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

Добавление формулы к текущему значению ячейки (Макросы/Sub)

vfrc08

Дата: Понедельник, 23.03.2020, 15:38 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2019

Добрый день.

Задача состоит в следующем добавить к текущему значению ячейки, где нет формул, формулу (в моем случае необходимо умножить все на "L2")
написал следующий макрос
те было "3" стало "L2*3",
а если было "=3+6" то осталось "=3+6"
макрос работает , но только если в ячейке число целое, проблема если есть дробное с "запятой".
останавливается макрос и выдает ошибку в строке U.Value = "=L2*" & U.Value

[vba]

Код

Sub Workbook_()

For Each U In Range("D9:E20") 'задал диапазон
If Not U.Find("=") Is Nothing Then 'нашел яейку с формулой и пропустил ее
Else
U.Value = "=L2*" & U.Value 'СЦЕПИЛ текущее значение и аргумент формулы (ОШИБКУ ПИШЕТ ЗДЕСЬ)
End If
Next
End Sub

[/vba]

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

Максим

Сообщение отредактировал vfrc08 - Вторник, 24.03.2020, 11:12

Ответить

китин

Дата: Понедельник, 23.03.2020, 15:56 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

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

Excel 2007;2010;2016

vfrc08, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Добавление формулы к текущему значению ячейки (Макросы/Sub)

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