![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
Опять VBA :(
Apr. 13th, 2010 06:37 pmИ снова меня мучает Visual Basic :(
Есть столбец D, в его ячейках может быть записаны числа 0, 1, 2 или вообще ничего.
Нужно обойти его в цикле, и, если i-тая ячейка содержит цифру 1 - закрасить строку диапазоне Bi:BAi определенным цветом.
Пока из обрывков разных макросов удалось сваять это:
И, о Боже! Оно даже работает!
Есть столбец D, в его ячейках может быть записаны числа 0, 1, 2 или вообще ничего.
Нужно обойти его в цикле, и, если i-тая ячейка содержит цифру 1 - закрасить строку диапазоне Bi:BAi определенным цветом.
Пока из обрывков разных макросов удалось сваять это:
Sub ColorLoneCityRow() ' Dim i As Integer i = 8 While Range("D" + CStr(i)).Text <> "***" Select Case Range("D" + CStr(i)).Value Case 1 Range("B" + CStr(i) + ":BA" + CStr(i)).Select With Selection.Interior .ColorIndex = 44 .Pattern = xlSolid End With End Select i = i + 1 Wend End Sub
И, о Боже! Оно даже работает!
