Нужно написать макрос - Microsoft Office Excel - Страница 2

Nix128 · 11.02.2011, 17:57

Цитата:

Сообщение от Djeki

Посмотри..

Спасибо.А как опросить кнопки мышки в макросах.Где-то видел и не сохранил.

Nix128 · 16.04.2011, 20:12

Здравствуйте т.ПРОГРАММИСТЫ.
Помогите, не могу понять как сделать чтобы макрос постоянно работал и автоматически загружался
Function продажа()
Dim a, b, c As Integer
x = ActiveCell.Row
y = ActiveCell.Column
If y <> 5 Then End
x1 = x
y1 = y
a = Cells(x, y)
If a = "" Then End
y = y - 1
b = Cells(x, y)
d = b - a
If d < 0 Then Cells(x1, y1) = "": If d < 0 Then End
Cells(x, y) = d
Cells(x1, y1) = ""

End Function
Очень прошу плиз.
Спасибо.

Nix128 · 16.04.2011, 20:26

16.04.2011, 20:26	#13
Nix128 Пользователь Регистрация: 09.02.2011 Сообщений: 11	Последний раз редактировалось Nix128; 16.04.2011 в 20:30.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нужно написать макрос для Ворда	Layer	Фриланс	2	06.12.2010 21:35
Нужно написать макрос для ворда (5$)	Krel	Фриланс	1	29.09.2010 17:58
Нужно создать макрос	avtopark	Microsoft Office Excel	4	28.02.2009 22:00
Нужно написать макрос для Word.	Hoomer	Фриланс	2	24.09.2008 12:19

16.04.2011, 20:12	#12
Nix128 Пользователь Регистрация: 09.02.2011 Сообщений: 11	Здравствуйте т.ПРОГРАММИСТЫ. Помогите, не могу понять как сделать чтобы макрос постоянно работал и автоматически загружался Function продажа() Dim a, b, c As Integer x = ActiveCell.Row y = ActiveCell.Column If y <> 5 Then End x1 = x y1 = y a = Cells(x, y) If a = "" Then End y = y - 1 b = Cells(x, y) d = b - a If d < 0 Then Cells(x1, y1) = "": If d < 0 Then End Cells(x, y) = d Cells(x1, y1) = "" End Function Очень прошу плиз. Спасибо.