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

Поиск:

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


Unregistered











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


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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



Слушай ,а тебе точно кнопка нужна? Можно и без нее обойтись


--------------------
Возмездие настигнет
PM MAIL   Вверх
sergejzr
Дата 18.6.2004, 22:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

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



Макрос например вызываешь напрямую черз кнопку на меню. Всплывает окошко, куда задаёшь нужный фактор.


--------------------
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
Staruha
Дата 18.6.2004, 22:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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



Я бы сделала так:в ячейку k1=1.4(меняй сколько хочешь).А ячейки ты будешь выделять выдерживая какие то условия.Например:
ЕСЛИ(А1>0;A1*$K1).


--------------------
Возмездие настигнет
PM MAIL   Вверх
=Sergey=
Дата 20.6.2004, 11:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Нужна кнопка или пункт меню, чтобы пользователи выделив ячейки, нажали на эту кнопку, и значения выделенных ячеек увеличились.
Я сам никогда макросы не писал, как их делать даже не знаю.
Объясните, что куда надо написать и вставить.
PM MAIL   Вверх
boevik
Дата 20.6.2004, 11:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

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



К примеру так,
Код
m = InputBox("multiplier?", , "1.4")
For Each c In Selection
    c.Formula = c.Value * m
Next
End Sub



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Staruha
Дата 20.6.2004, 12:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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



[b]Boevik -в десятку попал. Слушай ,а программно как ячейки выделить?


--------------------
Возмездие настигнет
PM MAIL   Вверх
Enflout
Дата 20.6.2004, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Range("A1:B4").Select(это пример программного выделения ячеек).
PM MAIL   Вверх
Staruha
Дата 20.6.2004, 19:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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



Я догадывалась.Спасибо.Да boevik xl на 1.4 не умножает надо 1,4.Поправь ,а то Sergey может не понять в чем дело.


--------------------
Возмездие настигнет
PM MAIL   Вверх
boevik
Дата 20.6.2004, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

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



Старуха, у тебя 1,4, а у меня 1.4 Посмотри откуда я smile.gif


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Staruha
Дата 20.6.2004, 22:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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



Круто




--------------------
Возмездие настигнет
PM MAIL   Вверх
=Sergey=
Дата 21.6.2004, 13:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Цитата(boevik @ 20.6.2004, 12:39)
К примеру так,
Код
m = InputBox("multiplier?", , "1.4")
For Each c In Selection
    c.Formula = c.Value * m
Next
End Sub

А куда это всё вставлять и как потом пользоваться?
PM MAIL   Вверх
Staruha
Дата 21.6.2004, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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



В xl - кнопку рисуешь(Панель управления,правая кнопка - элементы управления,режим конструктора нажат).Щелкаешь по кнопке два раза .Что вылетит туда и вставляй поле первой строчки.Один End Sub сотри второй оставь.Все работает как ты просил.


--------------------
Возмездие настигнет
PM MAIL   Вверх
=Sergey=
Дата 22.6.2004, 08:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Большое спасибо всем! Кнопка работает.
PM MAIL   Вверх
Staruha
Дата 22.6.2004, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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



Мне тоже понравилась кнопочка


--------------------
Возмездие настигнет
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

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

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

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



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


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

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


 




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


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

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