Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Макрос в Excel


Автор: Гость_Sergey 18.6.2004, 10:19
Очень нужно написать такую вещь.
Выделяем в листе excel ячейки с числами. нужно сделать кнопку, чтобы при её нажатии значение выделенных ячеек увеличилось в 1.4 раза.
Ещё лучше, чтобы можно было указать во сколько раз увеличивать (уменьшать) значения.
Подскажите, кто знает.

Автор: Staruha 18.6.2004, 22:20
Слушай ,а тебе точно кнопка нужна? Можно и без нее обойтись

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

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

Автор: =Sergey= 20.6.2004, 11:08
Нужна кнопка или пункт меню, чтобы пользователи выделив ячейки, нажали на эту кнопку, и значения выделенных ячеек увеличились.
Я сам никогда макросы не писал, как их делать даже не знаю.
Объясните, что куда надо написать и вставить.

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

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

Автор: Enflout 20.6.2004, 13:49
Range("A1:B4").Select(это пример программного выделения ячеек).

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

Автор: boevik 20.6.2004, 20:42
Старуха, у тебя 1,4, а у меня 1.4 Посмотри откуда я smile.gif

Автор: Staruha 20.6.2004, 22:05
Круто

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

А куда это всё вставлять и как потом пользоваться?

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

Автор: =Sergey= 22.6.2004, 08:25
Большое спасибо всем! Кнопка работает.

Автор: Staruha 22.6.2004, 11:44
Мне тоже понравилась кнопочка

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)