(IMG:style_emoticons/default/sad.gif) Помогите пож сост программку. VBA. Для организации ввода и вывода исходных данных и результатов использовать:
б) ячейки рабочего листа.
Оценить уровень заработной платы работника, сравнив ее с размером прожиточного минимума. Превышение более чем в 15 раз – соответствует высокому, менее 7 раз - очень низкому, в промежутке от 7 до 15 раз – среднему уровню заработной платы

ваши наработки?

№ теста Значение zp Комментарий
1 0 Введено некорректное значение
2 -1 500 000 Введено некорректное значение
3 3500 000 Высокий уровень заработной платы
4 3 000 000 Средний уровень заработной платы
5 2 200 000 Средний уровень заработной платы
6 1 400 000 Средний уровень заработной платы
7 1 200 000 Низкий уровень заработной платы

и вот че-то мутила не понятное))

Sub prim4a() ' Вывод данных в ячейки рабочего листа
'Составил студент группы ЗУ-11с Михеенкова С.А.
Dim zp As Long
Dim S As String, P As Integer, I As Integer, K As Integer
K = InputBox("Сколько всего тестов?", "Ввод")
'Формирование заголовка
Cells(1, 1) = "№ теста"
Cells(1, 2) = "Значение zp"
Cells(1, 3) = "Комментарий"
For I = 1 To K ' цикл для повторения расчетов
zp = InputBox("Введи значение zp", "Ввод")
If zp < 200000 Then
R = "Введено некорректное значение"
Else
If zp > 3000000 Then
R = "Высокий уровень заработной платы"
Else
If zp < 1400000 Then
R = "Низкий уровень заработной платы"
Else
R = "Низкий уровень заработной платы"
End If
End If
Cells(I + 1, 1) = I
Cells(I + 1, 3) = "Комментарий"
Next I
End Sub
(IMG:style_emoticons/default/blush.gif)

(IMG:style_emoticons/default/sad.gif) на цифры не обращайте внимания. мне главное суть...

А где размер прожиточного минимума? Вся ж логика должна быть к нему привязана.

сначала я взяла 200.000, ну и соответственно 200000х15раз=3000000, 200000х7раз=1400000 ,
а вообще реальный БПМ=250070.

либо нужно как-то через формулу его выразить..... (IMG:style_emoticons/default/dry.gif) ...че-то я запуталась..

(IMG:style_emoticons/default/sad.gif) помогите...распутаться

а зачем вы умножаете прожиточный минимум на зарплату?


их надо сравнивать

каа, где Вы увидели умножение на зарплату?

потому что не придумала каким образом их сравнить и отразить в программе

Прятать в теле программы инициализацию параметров, начальные значения которых от запуска к запуску могут меняться (zpMin, kV, kN ),- нехорошо. Для самопроверки, предлагаю программку доделать, так чтобы эти три значения брались из листа, а потом в этом листе ещё и печатались бы вычисленные zpV и zpN.

Следующий этап самопроверки - автоматическая очистка листа в начале работы макроса от результатов предыдущего запуска. Ну а потом уже можно и колоночки в разные цвета раскрасить... (IMG:style_emoticons/default/wink.gif)

(IMG:style_emoticons/default/dribble.gif) ооооо!!!! вы не представляете, как я вам благодарна!! большое человеческое СПАСИБО!!! есть над чем поразмыслить. Спасибо, что уделили мне время... (IMG:style_emoticons/default/flowers1.gif)

Да не за что (IMG:style_emoticons/default/smile.gif) Захотите показать "плоды размышлений" - милости прошу!.. (IMG:style_emoticons/default/wink.gif)