Помогите, пожалуйста, составить макрос, чтобы при открытии файла все ячейки из столбца А была раскрашены в цвета RGB, которые берутся из столбиков Е,F,G Количество строк - 300-400. Если бы было десять, я бы ручками сделала и не стала бы никого беспокоить. Второй день бьюсь как муха о стекло, хелп.
.
Помогите, пожалуйста, составить макрос, чтобы при открытии файла все ячейки из столбца А была раскрашены в цвета RGB, которые берутся из столбиков Е,F,G Количество строк - 300-400. Если бы было десять, я бы ручками сделала и не стала бы никого беспокоить. Второй день бьюсь как муха о стекло, хелп.
Private Sub Workbook_Open() Dim lr&, i& With ThisWorkbook.Sheets(1) lr = .Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To lr .Cells(i, 1).Interior.Color = RGB(.Cells(i, "e"), .Cells(i, "f"), .Cells(i, "g")) Next i End With End Sub
[/vba]
eifel, здравствуйте, так пойдет? [vba]
Код
Private Sub Workbook_Open() Dim lr&, i& With ThisWorkbook.Sheets(1) lr = .Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To lr .Cells(i, 1).Interior.Color = RGB(.Cells(i, "e"), .Cells(i, "f"), .Cells(i, "g")) Next i End With End Sub