Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2011, 23:19   #1
Valerya 22
Пользователь
 
Аватар для Valerya 22
 
Регистрация: 26.01.2011
Сообщений: 13
Печаль Подсчитать размер стипендии (VBA Excel)

Не могу понять, как задать условия(
В поле "Размер" подсчитать величину стипендии, исходя из следующего порядка начисления:
-если средняя оценка > 93, то начисляется 300 руб.
-если средняя оценка > 80 и отсутствуют удовлетворит. оценки, то начисляется 200 руб.
-если средняя оценка < 80, отсутствуют неудовлетворительные оценки и средний душевой доход ниже прожиточного 800, то начисляется 100 руб.
jhxdg.jpg
Valerya 22 вне форума Ответить с цитированием
Старый 29.05.2011, 23:35   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

1. Ответ Вам тоже картинкой? Почему на приложили XLS?

2. Какой критерий удовлетворительной и неудовлетворительной оценки?
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 29.05.2011, 23:52   #3
Valerya 22
Пользователь
 
Аватар для Valerya 22
 
Регистрация: 26.01.2011
Сообщений: 13
По умолчанию

-неудовлетворительная оценка <53
-удовлетворительная от 53 до 80
Вложения
Тип файла: rar стипендия.rar (3.7 Кб, 14 просмотров)
Valerya 22 вне форума Ответить с цитированием
Старый 29.05.2011, 23:53   #4
tae1980
Форумчанин
 
Регистрация: 02.02.2009
Сообщений: 844
По умолчанию

Цитата:
Сообщение от Valerya 22 Посмотреть сообщение
и отсутствуют удовлетворит. оценки
А это сколько?
С уважением, Алексей.
tae1980 вне форума Ответить с цитированием
Старый 30.05.2011, 01:40   #5
MCH
Форумчанин
 
Регистрация: 21.11.2010
Сообщений: 326
По умолчанию

Код:
=ЕСЛИ(СРЗНАЧ(B3:D3)>93;300;ЕСЛИ(И(СРЗНАЧ(B3:D3)>80;МИН(B3:D3)>80);200;ЕСЛИ(И(МИН(B3:D3)>=53;F3<800);100;0)))
PS: А семейное положение должно влиять на расчеты, например для определения среднего душевого дохода? Или же в поле "Доход" как раз и есть средний душевой доход?
Вложения
Тип файла: rar Стипендия.rar (2.2 Кб, 20 просмотров)
MCH вне форума Ответить с цитированием
Старый 30.05.2011, 14:12   #6
Valerya 22
Пользователь
 
Аватар для Valerya 22
 
Регистрация: 26.01.2011
Сообщений: 13
По умолчанию

Средний душевой доход - это в колонке "Доход"
Цитата:
=ЕСЛИ(СРЗНАЧ(B3:D3)>93;300;ЕСЛИ(И(С РЗНАЧ(B3:D3)>80;МИН(B3:D3)>80);200; ЕСЛИ(И(МИН(B3:D3)>=53;F3<800);100;0 )))
Спасибо) Только мне нужно на VBA(
Valerya 22 вне форума Ответить с цитированием
Старый 30.05.2011, 15:25   #7
Valerya 22
Пользователь
 
Аватар для Valerya 22
 
Регистрация: 26.01.2011
Сообщений: 13
По умолчанию

Как можно на VBA это записать?
=ЕСЛИ(СРЗНАЧ(B3:D3)>93;300;ЕСЛИ(И(С РЗНАЧ(B3:D3)>80;МИН(B3:D3)>80);200; ЕСЛИ(И(МИН(B3:D3)>=53;F3<800);100;0 )))
Valerya 22 вне форума Ответить с цитированием
Старый 30.05.2011, 16:17   #8
MCH
Форумчанин
 
Регистрация: 21.11.2010
Сообщений: 326
По умолчанию

Цитата:
Сообщение от Valerya 22 Посмотреть сообщение
Как можно на VBA это записать?
=ЕСЛИ(СРЗНАЧ(B3:D3)>93;300;ЕСЛИ(И(С РЗНАЧ(B3:D3)>80;МИН(B3:D3)>80);200; ЕСЛИ(И(МИН(B3:D3)>=53;F3<800);100;0 )))
Код:
Sub stip()
        Range("G3:G10").FormulaR1C1 = _
        "=IF(AVERAGE(RC[-5]:RC[-3])>93,300,IF(AND(AVERAGE(RC[-5]:RC[-3])>80,MIN(RC[-5]:RC[-3])>80),200,IF(AND(MIN(RC[-5]:RC[-3])>=53,RC[-1]<800),100,0)))"
        Range("G3:G10").Value = Range("G3:G10").Value
End Sub
MCH вне форума Ответить с цитированием
Старый 30.05.2011, 18:33   #9
Valerya 22
Пользователь
 
Аватар для Valerya 22
 
Регистрация: 26.01.2011
Сообщений: 13
По умолчанию

MCH, спасибо большое
Valerya 22 вне форума Ответить с цитированием
Старый 30.05.2011, 20:23   #10
MCH
Форумчанин
 
Регистрация: 21.11.2010
Сообщений: 326
По умолчанию

UDF:
Код:
Function stipend(srbal As Double, minbal As Double, dohod As Double) As Double
    If srbal > 93 Then
        stipend = 300
    ElseIf srbal > 80 And minbal > 80 Then
        stipend = 200
    ElseIf minbal > 53 And dohod < 800 Then
        stipend = 100
    End If
End Function
Вложения
Тип файла: rar Стипендия.rar (7.5 Кб, 19 просмотров)
MCH вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA Word,VBA Excel решить 2 задачи fafolo4ka Фриланс 6 05.03.2012 01:15
Как в VBA Outlook определить размер вложения Margaret Microsoft Office Excel 4 13.04.2011 15:09
размер листа в excel Доктор Microsoft Office Excel 1 08.06.2010 09:54
Как запретить запуск программы на VBA Excel 2003 в Excel 2007 kovalevskivf Microsoft Office Excel 2 15.05.2009 16:47
Не дайте умереть без стипендии:) DimaKa Помощь студентам 0 06.05.2009 16:39