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

[Арианна]

Я бы загрузила в файле, но формат не поддерживается((

[DiemonStar]

зачем макрос? тут и формулами без проблем делается:

з.ы. там даже два варианта на выбор)

[kuklp]

А запаковать?

Sub plata()
    Dim c As Range
    For Each c In Range("c2:c" & Cells(Rows.Count, 3).End(xlUp).Row)
        c(1, 2) = ЗаработнаяПлата(c(1, 0), c)
    Next
End Sub

[Арианна]

Поменяла вот так, но считать все равно не хочет и показывает ошибку в самом начале выполнения функции. Но если в параметрах меняю на числа, то все считается

Sub plata()
Dim oRange As Range
Set oRange1 = Range("B2:B6")
Set oRange2 = Range("C2:C6")
Set oRange3 = Worksheets("Лист1").Range("D2:D6")
oRange3.Value = ЗаработнаяПлата(oRange1, oRange2)
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

[Арианна]

Макросы, потому что лабораторка =)

[Арианна]

А без цикла низя? :'(