Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Макрос в Excel, Помогиете написать макрос 
V
    Опции темы
Гость_Sergey
Дата 18.6.2004, 10:17 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Очень нужно написать такую вещь.
Выделяем в листе excel ячейки с числами. Нужно сделать кнопку, чтобы при её нажатии значение выделенных ячеек увеличилось в 1.4 раза.
Ещё лучше, чтобы можно было указать во сколько раз увеличивать (уменьшать) значения.
Подскажите, кто знает.
  Вверх
ArNic
Дата 10.2.2007, 09:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 278
Регистрация: 3.1.2007

Репутация: нет
Всего: нет



Без регулирования значения. Создаешь кнопочку! Потом переходишь в VBA

Код

Private Sub CommandButton1_Click()
       activecell.value = activecell.value * 1.4
End Sub



PM MAIL ICQ   Вверх
Genyaa
Дата 10.2.2007, 10:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Усердный
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.9.2006
Где: Москва

Репутация: 2
Всего: 11



Вариант от ArNic работает только для одной ячейки.

Для решения Вашей задачи в Ексел уже есть встроенный механизм - специальная вставка с операцией умножения. Нажать, правда, придется не одну кнопку, но три/четыре... (лично для мне кажется, что создание необходимой процедуры под это будет сложней и дольше, чем пользование этой встроеной возможностью).

В крайнем случае можно записать последовательность нажатий макрорекордером нужную операцию спецвставки, подправить получившийся макрос так, чтобы он работал не с конкретой областью, а с выделенной и вперед.
--------------------
Всякое решение плодит новые проблемы.
PM WWW   Вверх
Twwi
Дата 11.2.2007, 11:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 84
Регистрация: 8.11.2005
Где: Домодедово

Репутация: 1
Всего: 5



Встроенные механизмы порой очень утомляют smile я даже поиск порой записываю примерно в такой макрос:
именую ячейку на листе (например, как далее в примере, coef), выделяю ее для себя любимой травяным цветом и пишу макрос вызываемый сочетанием клавиш (например, ctrl+й).
Далее пишу в ячейку coef искомое значение (в твоем случае коэффициент) и нажимаю ctrl+й - Все все посчиталось или нашлось smile
Вот твой макрос, для умножения выделенного на коэффициент.
Код

Dim Rng As Range
Sub myMulti()
coef=range("coef").value
For Each Rng In Selection
Rng.value= Rng.value*coef
next Rng
end sub


хахаха smile  кто достал такую волосатую тему!!!! хахахаха smile !!!! smile  smile 

Это сообщение отредактировал(а) Twwi - 11.2.2007, 11:48
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.1277 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.