|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.10.2013, 09:43 | #11 |
Пользователь
Регистрация: 11.03.2012
Сообщений: 25
|
Я бы загрузила в файле, но формат не поддерживается((
|
14.10.2013, 09:50 | #12 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
зачем макрос? тут и формулами без проблем делается:
з.ы. там даже два варианта на выбор)
Правильно поставленная задача - три четверти решения.
|
14.10.2013, 09:51 | #13 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
А запаковать?
Код:
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
14.10.2013, 14:53 | #14 |
Пользователь
Регистрация: 11.03.2012
Сообщений: 25
|
Поменяла вот так, но считать все равно не хочет и показывает ошибку в самом начале выполнения функции. Но если в параметрах меняю на числа, то все считается
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 |
14.10.2013, 14:55 | #15 |
Пользователь
Регистрация: 11.03.2012
Сообщений: 25
|
Макросы, потому что лабораторка =)
|
14.10.2013, 15:06 | #16 |
Пользователь
Регистрация: 11.03.2012
Сообщений: 25
|
А без цикла низя? :'(
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка в макросе сравнения таблиц | ZorDMV | Microsoft Office Excel | 8 | 01.05.2013 11:41 |
Ошибка в макросе | runik | Microsoft Office Excel | 5 | 19.11.2012 17:28 |
ВПР в макросе (где-то ошибка) | Флина | Microsoft Office Excel | 3 | 26.01.2011 04:55 |
Ошибка в макросе по переносу данных | Richard123 | Microsoft Office Excel | 2 | 19.01.2011 09:16 |
Почему, ошибка в макросе | valerij | Microsoft Office Excel | 8 | 27.02.2010 01:48 |