Вставление баллов в зависимости от значения на форме в excel

[Nataliina]

Объясните пожалуйста, как с помощью макросов в зависимости от значения доли (рассчитывается после ввода количества) на форме выставить баллы, в данном случае, по 12-балльной шкале (там где наибольшая доля там выше балл). С помощью цикла if else замучаешься

[vefer]

А если тупо так?

Label29.Caption = Round(d1 * 0.12, 0)
Label30.Caption = Round(d2 * 0.12, 0)
Label31.Caption = Round(d3 * 0.12, 0)
Label32.Caption = Round(d4 * 0.12, 0)
Label33.Caption = Round(d5 * 0.12, 0)
Label34.Caption = Round(d6 * 0.12, 0)
Label35.Caption = Round(d7 * 0.12, 0)
Label36.Caption = Round(d8 * 0.12, 0)
Label37.Caption = Round(d9 * 0.12, 0)
Label38.Caption = Round(d10 * 0.12, 0)
Label39.Caption = Round(d11 * 0.12, 0)
Label40.Caption = Round(d12 * 0.12, 0)

[27102014]

Почему же тупо? очень даже правильно!
С оговоркой по условию задачи что всего 12 баллов и "циклом if else замучаешься"


А вот если серьезно, возможно ли здесь сделать цикл? По сути все просто - цикл For Next от 1 до 12, но как задать переменную для

Label   29   .Caption = Round(d1 * 0.12, 0)

[IgorGO]

ну... тогда уже и без d1...d12

for i = 1 to 12
  controls("Labal" & i+28).caption = round(val(controls("TextBox" & i).text) * 0.12, 0)
next

[27102014]

Игорь, есть что-то, чего Вы не знаете?
Немного не согласен с предложенной Вами математикой, у меня получилось так

Private Sub CommandButton1_Click()
Dim S As Integer, i As Integer

S = Val(TextBox1.Value)

For i = 2 To 12

S = S + Val(Controls("TextBox" & i).Text)


Next

For i = 1 To 12

'Доля

Controls("Label" & i + 15).Caption = Round(Val(Controls("TextBox" & i).Text) * 100 / S, 0)

'Балл по шкале
 Controls("Label" & i + 28).Caption = Round(Val(Controls("TextBox" & i).Text) * 100 / S * 0.12, 0)
Next


End Sub

[Nataliina]

Ребят, спасибо за ответы. Возник вопрос, что значит вот это "Round(d1 * 0.12, 0)" просто, когда вставляешь код, у меня он рассчитывает как 1 вне зависимости от значения d1

[Nataliina]

Как я помню, Round это округление, тогда какой смысл умножения на 0,12, если это не даст реального балла?)

[Nataliina]

Если использовать предложенный вами код, результат получается такой. Но по-такому принципу, баллы рассчитываются неверно. В данном случае, наибольшая доля по направлению подготовки 9, т.е. там балл должен быть 12, а не 2 (Ведь у нас 12-балльная шкала, а не 2-х балльная)

[27102014]

Мы все подумали что 12 баллов - это всего, и именно число 12 нужно распределить пропорционально между заполненными данными

Округление нужно для целого числа - чтобы не было так 1,2516498743

Опишите задачу правильно - и, возможно, получите правильное решение

[Nataliina]

Задача описана правильно, выражение 12-балльная шкала означает что не всего имеется 12 баллов, а выставляются оценки от 1 до 12. Мне казалось, это всем известно, что-то не понятно еще, уточняйте....