Создать макрос, который будет закрашивать ячейки столбца C в соответствии с цветом ячеек столбца A,где значение ячейки столбца С равно номеру строки ячейки столбца A.
Друзья,помогите решить задачу.
Создать макрос, который будет закрашивать ячейки столбца C в соответствии с цветом ячеек столбца A,где значение ячейки столбца С равно номеру строки ячейки столбца A.Georgiy
Dim i As Long For i = 1 To 20 Step 1 On Error Resume Next Range("C" & i).Activate Range("A" & ActiveCell.Value).Copy ActiveCell.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Next End Sub
[/vba]
[vba]
Код
Sub макрос1()
Dim i As Long For i = 1 To 20 Step 1 On Error Resume Next Range("C" & i).Activate Range("A" & ActiveCell.Value).Copy ActiveCell.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Next End Sub
Sub www() Dim i As Long For i = 1 To [c65536].End(xlUp).Row Cells(i, 3).Interior.ColorIndex = Cells(Cells(i, 3).Value, 1).Interior.ColorIndex Next End Sub
[/vba]
[vba]
Код
Sub www() Dim i As Long For i = 1 To [c65536].End(xlUp).Row Cells(i, 3).Interior.ColorIndex = Cells(Cells(i, 3).Value, 1).Interior.ColorIndex Next End Sub
Сергей, я тоже такой вариант хотел предложить. Но, визуально сравнивая ячейки A5 и C5, вижу, что цвета там разные. В столбцах E и F вижу, что индексы у них одинаковые. Жму кнопку "Цвет заливки" и вижу, что у ячейки A5 - RGB(49,134,155), а у ячейки С5 - RGB(51,153,102). Может, у меня в компе какой-то глюк?
Сергей, я тоже такой вариант хотел предложить. Но, визуально сравнивая ячейки A5 и C5, вижу, что цвета там разные. В столбцах E и F вижу, что индексы у них одинаковые. Жму кнопку "Цвет заливки" и вижу, что у ячейки A5 - RGB(49,134,155), а у ячейки С5 - RGB(51,153,102). Может, у меня в компе какой-то глюк?ShAM
Привет, Алишер. Я особенно не вглядывался, просто хотел показать принцип без копипаста. Если там используется не ColorIndex, то можно сменить ColorIndex на Color
Привет, Алишер. Я особенно не вглядывался, просто хотел показать принцип без копипаста. Если там используется не ColorIndex, то можно сменить ColorIndex на Color KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Sub www() Dim j As Long For j = 1 To Cells(Rows.Count, 3).End(xlUp).Row Cells(j, 3).Interior.Color = Cells(Cells(j, 3).Value, 1).Interior.Color Next j End Sub
[/vba]
[vba]
Код
Sub www() Dim j As Long For j = 1 To Cells(Rows.Count, 3).End(xlUp).Row Cells(j, 3).Interior.Color = Cells(Cells(j, 3).Value, 1).Interior.Color Next j End Sub