Можно упростить этот макрос?

[valerij]

Хоть всё и работает, но чЮйствую, что мона упростить..

Dim COLOR As Long
rr = 9: cc = 1
    For r = 9 To 135 Step 18
        For c = 18 To 238 Step 20
            COLOR = Sheets(2).Cells(r, c).Interior.COLOR \ 256 ^ 0 And 255
                If COLOR > 0 Then If COLOR < 38 Then iCOLOR = 5
                If COLOR > 37 Then If COLOR < 90 Then iCOLOR = 4
                If COLOR > 89 Then If COLOR < 150 Then iCOLOR = 3
                If COLOR > 149 Then If COLOR < 190 Then iCOLOR = 2
                If COLOR > 189 Then If COLOR < 240 Then iCOLOR = 1
                If COLOR > 239 Then If COLOR < 256 Then iCOLOR = 0
            Cells(rr, cc) = iCOLOR
            cc = cc + 1
        Next
        rr = rr + 1: cc = 1
    Next

[doober]

Валера,я в шоке ,и в частности от конструкции If
Бросай ты это дело,зачем оно тебе надо.

Select Case Color
Case Is < 38
    iCOLOR = 5
Case 38 To 89
    iCOLOR = 4
Case 90 To 149
    iCOLOR = 3
Case 150 To 189
    iCOLOR = 2
Case 190 To 239
    iCOLOR = 1
Case Else
    iCOLOR = 0
End Select

[alex77755]

Пугает автора:

но де то я читал, типа: избегайте применять Select Case

Ему лучше гора If

[valerij]

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

в частности от конструкции If

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

Ему лучше гора If

Чем так не устраивает IF, не понимаю?
Спасибо.

[Hugo121]

В случае если color>239 Вы эту проверку сделаете 12 раз!

[valerij]

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

В случае если color>239 Вы эту проверку сделаете 12 раз!

Не я, а doober сделает!!
Спасибо, проверю.

Hugo121
Проверил всё ок.
1 = 239

2 2 1 1 1 1 1 1 1 1 4 4
2 2 1 2 1 1 1 1 1 3 4 4
2 4 3 3 3 3 1 1 1 3 3 4
4 3 3 2 3 3 3 4 4 4 4 4
4 2 1 4 3 1 2 3 2 2 3 4
4 3 3 3 3 3 3 3 3 3 3 3
4 4 3 3 2 3 3 3 3 4 4 4
5 4 5 4 4 4 4 4 4 4 4 4

[IgorGO]

все вокруг - матрица.
Валера наглядный тому пример
вчитываясь в эти простые цифры, я два раза терял сознание, второй раз очнулся у соседки

[valerij]

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

все вокруг - матрица.
Валера наглядный тому пример
вчитываясь в эти простые цифры, я два раза терял сознание, второй раз очнулся у соседки

IgorGO!!
Тебя вернуть в семью?
Это таблица зонирования экспозиметра - вот ты уже и дома.

Это такая муть, накуй я с этим связался....

[doober]

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

Бросай ты это дело,зачем оно тебе надо.

С булочками спокойнее,напрягаться не надо.

[Hugo121]

Сперва написалось Ж) ... что характерно