Как к условию, добавить еще условие

[valerij]

Есть у меня, такое выражение:

Select Case sh.Index
        Case 1 To 7
If sh.Index = 1 Then Cells(dat * 44 + 38, 8) = 42

Нужно еще, добавить условие, что если в sh.Index = 1, [h37] = 1200, то [h39] = 50, если [h37] = 1300, то [h39] = 55, если [h37] = 1400, то [h39] = 60, если [h37] = 1500, то [h39] = 65, если [h37] = 1600, то [h39] = 70, если [h37] = 1700, то [h39] = 75....
т. е. за каждую сотню в [h37], добавлятся пятерка в [h39], но, если в [h37] число будет меньше 1200, то [h39] = 45

Данные в [h37], вводятся в ручную.
За ранее, благодарен.

[motorway]

Примерно так:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Index
        Case 1 To 7
If Sh.Index = 1 Then
Cells(dat * 44 + 38, 8) = 42
    If [h37] = 1200 Then [h39] = 50
    If [h37] = 1300 Then [h39] = 55
End If

End Select


End Sub

Можно и цикл сделать, а не писать все эти условия отдельно

[valerij]

Сообщение от motorway

Примерно так

Но тогда я должен дать конечное число для Н37, а какое оно будети, я не знаю.
Хотелось бы, что бы автоматом макрос понимал, что за каждую сотню + пятерка, нач. число 1200
А-а понял!!!
Конечное число для цикла и будет в Н37

[motorway]

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Index
        Case 1 To 7
If Sh.Index = 1 Then
Cells(dat * 44 + 38, 8) = 42
If [h37] < 1200 Then
[h39] = 45
Else
    ost = [h37].Value Mod 100
    If [h37].Value <> "" And ost = 0 Then [h39] = 50 + ([h37] - 1200) / 20
End If
End If


End Select


End Sub

Вот так. При этом если число не делится на 100, то тоже можно что-то предпринять, если нужно

[valerij]

Сообщение от motorway

если нужно

Да, вот такие, условия, извиняюсь!!!!!!!!!!

If sh.Index = 1 Then
Cells(dat * 44 + 38, 8) = 42
    If [h37] < 1200 Then [h39] = 45
    If [h37] > 1200 < 1300 Then [h39] = 50
    If [h37] > 1300 < 1400 Then [h39] = 55
    If [h37] > 1400 < 1500 Then [h39] = 60
    If [h37] > 1500 < 1600 Then [h39] = 65
    If [h37] > 1600 < 1700 Then [h39] = 70
    If [h37] > 1700 < 1800 Then [h39] = 75
    If [h37] > 1800 < 1900 Then [h39] = 80
    If [h37] > 1900 < 2000 Then [h39] = 85
    If [h37] > 2000 < 2100 Then [h39] = 90
    If [h37] > 2100 < 2200 Then [h39] = 95
    If [h37] > 2200 < 2300 Then [h39] = 100
End If: MsgBox [h39]

Но не пойму, почему в Н39 = 100, какое бы число, не ввел в Н37

[IgorGO]

If [h37] > 2200 < 2300 Then [h39] = 100
сначала проверяется [h37] > 2200, результат будет False или True, но это не важно...
потому что потом проверяется условие False или True < 2300 - а это всегда True, поэтому всегда [h39] = 100.
Как написано - так и работает.

[Hugo121]

Я бы так написал - ведь после первого совпадения следующие не проверяются. И быстрее, и легче, и писать меньше:

    If sh.Index = 1 Then
        Cells(dat * 44 + 38, 8) = 42
        Select Case [h37].Value
        Case Is < 1200: [h39] = 45
        Case Is < 1300: [h39] = 50
        Case Is < 1400: [h39] = 55
        Case Is < 1500: [h39] = 60
        Case Is < 1600: [h39] = 65
        Case Is < 1700: [h39] = 70
        Case Is < 1800: [h39] = 75
        Case Is < 1900: [h39] = 80
        Case Is < 2000: [h39] = 85
        Case Is < 2100: [h39] = 90
        Case Is < 2200: [h39] = 95
        Case Is < 2300: [h39] = 100
        End Select
    End If: MsgBox [h39]

[valerij]

Сообщение от IgorGO

True < 2300 - а это всегда True, поэтому всегда [h39] = 100..

Игорь, точно!!!, понял.

Я бы так написал

Попробую, макрос motorway, правильно работает

[motorway]

Или так покороче:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Sh.Index
        Case 1 To 7
If Sh.Index = 1 Then
Cells(dat * 44 + 38, 8) = 42
If [h37] < 1200 Then
[h39] = 45
Else
    [h39] = 50 + (Int([h37] / 100) * 100 - 1200) / 20
End If
End If
End Select
End Sub