Вопрос : Форматизация цвета Эксел 2003 VBA условно

Я имею workbook что я имею условно форматизацию быть setup внутри. Все работой большой, но теперь клиент хочет некоторую из форматизации быть основанным на содержании 2 клеток вместо одной.

In прикрепленный workbook, на 1-ом рабочий лист («отметках уровня»),
column d нужно быть colorindex38 если колонка c 0, то (не пробел),
, котор для этого нужно быть colorindex 40 если колонка c 40, то,
для этого нужно быть colorindex36 если колонка c 50, то,
it нужно быть colorindex 37 если колонка c 70 или выше И .....
here будет реальная проблема…., токолонка c
if 60 И колонка d под 94, клетке в колонке d нужно быть колонка c yellow
if 60 И колонке d будет >93, клетка в колонке d нужно быть фрагментом Кодего green
*The я прикреплялся ниже буду частью я в настоящее время setup для условно formatting class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119:

>Sub BenchmarksFormatting " class= " id= " codeSnippet946372 цели и IsNumeric (цель) после этого Если не пересечь, то (цель. Ряд («C4: C41»)) Ничего после этого v = Application.Match (цель, блок (0, 40, 50, 60, 70), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («E4: E41»)) Ничего после этого v = Application.Match (цель, блок (0, 7.5, 8, 12, 17), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («F4: F41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («G4: G41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («H4: H41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («I4: I41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («K4: K41»)) Ничего после этого v = Application.Match (цель, блок (0, 40, 50, 60, 70), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («M4: M41»)) Ничего после этого v = Application.Match (цель, блок (0, 7.5, 8, 12, 17), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («N4: N41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («O4: O41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («P4: P41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («Q4: Q41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («S4: S41»)) Ничего после этого v = Application.Match (цель, блок (0, 40, 50, 60, 70), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («U4: U41»)) Ничего после этого v = Application.Match (цель, блок (0, 7.5, 8, 12, 17), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («V4: V41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («W4: W41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («X4: X41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Если не пересечь, то (цель. Ряд («Y4: Y41»)) Ничего после этого v = Application.Match (цель, блок (0, 25, 50, 75, 90), 1) Если не IsError (v) после этого Target.Interior.ColorIndex = FillColors (v - 1) Закончитесь если Закончитесь если Закончитесь если Затем Конец с Подводная лодка конца

class= " lastRow

>Attachments " имени " class= class= " значение "

>