Ошибка в макросе

[Арианна]

Здравствуйте. Я впервые работаю с VBA и довольно плохо в нем разбираюсь. У меня вот такое задание:
Написать макрос, вычисляющий значение функции ЗаработнаяПлата(Оклад, Стаж):

Cтаж Доплата
менее 5 лет 5%
5 лет 6%
6 лет 7%
от 7 до 10 лет 10%
от 10 до 25 лет 20%
более 25 лет 30%
Результат вывести на рабочем листе.

Я написала код:
Sub plata()
Function ЗаработнаяПлата(Оклад, Стаж)
Select Case Стаж
Case Is < 5
ЗаработнаяПлата = Оклад * 0.05 + Оклад
Case 5
ЗаработнаяПлата = Оклад * 0.06 + Оклад
Case 6
ЗаработнаяПлата = Оклад * 0.07 + Оклад
Case 7 To 10
ЗаработнаяПлата = Оклад * 0.1 + Оклад
Case 10 To 25
ЗаработнаяПлата = Оклад * 0.2 + Оклад
Case Is > 25
ЗаработнаяПлата = Оклад * 0.3 + Оклад
End Select
End Function
End Sub

В чем моя ошибка?

[kuklp]

Что ж Вы все в кучу свалили? Попробуйте так:

Sub plata()
msgbox ЗаработнаяПлата(300, 8)
End Sub

Function ЗаработнаяПлата(Оклад, Стаж)
Select Case Стаж
Case Is < 5
ЗаработнаяПлата = Оклад * 0.05 + Оклад
Case 5
ЗаработнаяПлата = Оклад * 0.06 + Оклад
Case 6
ЗаработнаяПлата = Оклад * 0.07 + Оклад
Case 7 To 10
ЗаработнаяПлата = Оклад * 0.1 + Оклад
Case 10 To 25
ЗаработнаяПлата = Оклад * 0.2 + Оклад
Case Is > 25
ЗаработнаяПлата = Оклад * 0.3 + Оклад
End Select
End Function

[Арианна]

Хороший вариант, но мне нужно, чтобы считалось от таблицы. Может нужно в самом макросе указать границы таблицы? Я правда не знаю

[Watcher_1]

ну так давайте в точку вызова
msgbox ЗаработнаяПлата(300, 8)
в цикле или как там у вас (не видя файла сказать сложно) данные из таблицы

[kuklp]

А я и подавно не знаю. Покажите таблицу, покажите желаемый результат.

[Арианна]

Ну, таблица предполагается большая...

[VictorM]

Хороший вариант

Вариант не хороший, а ПРАВИЛЬНЫЙ, согласно Вашего задания

Написать макрос, вычисляющий значение функции ЗаработнаяПлата(Оклад, Стаж)

А все что у Вас дальше

мне нужно, чтобы считалось от таблицы

так об этом у Вас ни слова

[kuklp]

Да не надо нам большую. Пример, строк на 15-20.

[Арианна]

Имя Оклад Стаж ЗаработнаяПлата
Петренко 2000 4
Макаров 2000 5
Сучкин 2000 6
Ведковский 2000 10
Камилин 2000 30

Пока примерно такая таблица. А результат должен быть на рабочем листе

[kuklp]

Ну вот зачем! Что теперь мне с экрана на лист заносить? Нельзя было в файле пример выложить? Пишите в D2:
=ЗаработнаяПлата(B2, C2)
и протягивайте вниз.