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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для добавления заданного числа в фунцию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для добавления заданного числа в фунцию (Макросы/Sub)
Макрос для добавления заданного числа в фунцию
Grivinik Дата: Вторник, 24.03.2015, 17:39 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
НЕ где не могу найти решение моей задачи. Есть формула скажем (a*b) и есть три кнопки "1", "2", "3" надо что бы при нажатии на кнопку "1" формула изменилась так (a*b)*1 при сведущем нажатии на кнопку скажем "3" формула становилось следующей (a*b)*1*3 и так далее.
[moder]Читайте Правила форума.
Прикладывайте пример в Excel


Сообщение отредактировал _Boroda_ - Вторник, 24.03.2015, 17:53
 
Ответить
СообщениеНЕ где не могу найти решение моей задачи. Есть формула скажем (a*b) и есть три кнопки "1", "2", "3" надо что бы при нажатии на кнопку "1" формула изменилась так (a*b)*1 при сведущем нажатии на кнопку скажем "3" формула становилось следующей (a*b)*1*3 и так далее.
[moder]Читайте Правила форума.
Прикладывайте пример в Excel
Автор - Grivinik
Дата добавления - 24.03.2015 в 17:39
Nic70y Дата: Вторник, 24.03.2015, 18:36 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9191
Репутация: 2448 ±
Замечаний: 0% ±

Excel 2010
А какой смысл умножать на 1? %)
Остальное при файле.

ЮMoney 41001841029809
 
Ответить
СообщениеА какой смысл умножать на 1? %)
Остальное при файле.
Автор - Nic70y
Дата добавления - 24.03.2015 в 18:36
Grivinik Дата: Вторник, 24.03.2015, 19:07 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Смысла умножать на один нет :) просто сома формула будет другая и более сложная и она будет еще долго дорабатываться и вот как раз что бы начать над ней работать мне нужно связать кнопки с формулой. Образец в файле.
К сообщению приложен файл: 4079285.xls (27.0 Kb)
 
Ответить
СообщениеСмысла умножать на один нет :) просто сома формула будет другая и более сложная и она будет еще долго дорабатываться и вот как раз что бы начать над ней работать мне нужно связать кнопки с формулой. Образец в файле.
Автор - Grivinik
Дата добавления - 24.03.2015 в 19:07
RAN Дата: Вторник, 24.03.2015, 19:19 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Хотелка дурная, но ловите.
[vba]
Код
Sub f1()
If ActiveCell.HasFormula Then _
ActiveCell.FormulaR1C1 = "=(" & Mid$(ActiveCell.FormulaR1C1, 2) & ")" & "*1"
End Sub
Sub f2()
If ActiveCell.HasFormula Then _
ActiveCell.FormulaR1C1 = "=(" & Mid$(ActiveCell.FormulaR1C1, 2) & ")" & "*2"
End Sub
Sub f3()
If ActiveCell.HasFormula Then _
ActiveCell.FormulaR1C1 = "=(" & Mid$(ActiveCell.FormulaR1C1, 2) & ")" & "*3"
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеХотелка дурная, но ловите.
[vba]
Код
Sub f1()
If ActiveCell.HasFormula Then _
ActiveCell.FormulaR1C1 = "=(" & Mid$(ActiveCell.FormulaR1C1, 2) & ")" & "*1"
End Sub
Sub f2()
If ActiveCell.HasFormula Then _
ActiveCell.FormulaR1C1 = "=(" & Mid$(ActiveCell.FormulaR1C1, 2) & ")" & "*2"
End Sub
Sub f3()
If ActiveCell.HasFormula Then _
ActiveCell.FormulaR1C1 = "=(" & Mid$(ActiveCell.FormulaR1C1, 2) & ")" & "*3"
End Sub
[/vba]
Автор - RAN
Дата добавления - 24.03.2015 в 19:19
Grivinik Дата: Вторник, 24.03.2015, 19:27 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо, буду дорабатывать.
 
Ответить
СообщениеСпасибо, буду дорабатывать.
Автор - Grivinik
Дата добавления - 24.03.2015 в 19:27
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для добавления заданного числа в фунцию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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