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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление формулы к текущему значению ячейки (Макросы/Sub)
Добавление формулы к текущему значению ячейки
vfrc08 Дата: Понедельник, 23.03.2020, 15:38 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 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
 
Ответить
СообщениеДобрый день.

Задача состоит в следующем добавить к текущему значению ячейки, где нет формул, формулу (в моем случае необходимо умножить все на "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]

Автор - vfrc08
Дата добавления - 23.03.2020 в 15:38
китин Дата: Понедельник, 23.03.2020, 15:56 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6153
Репутация: 950 ±
Замечаний: 0% ±

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеvfrc08, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб согласно п.3 Правил форума

Автор - китин
Дата добавления - 23.03.2020 в 15:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление формулы к текущему значению ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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