Макрос: сложить два числа

[белочка]

Добрый вечер всем! помогите, пожалуйста, с макросом. велено написать для экселя макрос, складывающий два числа. я пишу объявление функции, собственно расчет суммы и завершение функции, но почему-то не работает. разные ошибки выдает, то на имя функции ругается (хотя я пробовала разные), то говорит места в стеке недостаточно.
вроде и задачка элементарная, а почему не работает - не понимаю.
напишите кому не сложно, пожалуйста, чтоб работало всё

[poroshochek]

Помощь еще нужна??

[AChrist]

эээ? не думаю, что все так просто.

Sub summ()

Cells(1, 3) = Cells(1, 2) + Cells(1, 1)

End Sub

может вы пример файла своего покажете?

[белочка]

poroshochek, помощь нужна до завтрашнего зачета
AChrist, ну вот так все просто видимо сказали - напишите макрос чтоб складывал два числа, или там вычитал, или там синусы их складывал, к примеру... в общем что-то такое элементарное. в методичке написано писать например так:
Function Sum()
Sum(a, b) = Sin (a) + Cos (b)
End Function
а на практике фигня получается)
вот ваш код работает, вроде как. его теперь как, так в виде модуля и оставлять? а чтоб демонстрировать работу макроса, каждый раз вызывать окно редактора?

[AChrist]

С синусами и косинусами также можете писать
Sin(30) + Cos(60) - вообщем как Вам нужно.

а чтоб демонстрировать работу макроса, каждый раз вызывать окно редактора?

http://img121.imageshack.us/img121/3...1223204209.png - в 2007 офисе так можно привязать "hot key" к макросу.
В 2003 - Сервис - Данные -Макросы

[белочка]

спасибо большое) вы мне очень помогли)

[alyon_ka]

то что у вас в примере - это не макрос а функция.
Создайте модуль в VBA, запишите функцию

Function summa_2_number(a as double, b as double)
summa_2_number= a +b
End  Function

перейдите на лист Ексель, сделайте вставку функции - ваша функция summa_2_number(a as double, b as double) будет в разделе Определенные пользователем, выбираете функцию вводите число а, число b и в той ячейке в который вы "стояли" будет результат