Заполнить строку цветом после копирования на новый лист

Я смог внести минимальные изменения в какое-то кодирование. Я нашел бит здесь и там. Но я в остроумии, так что я надеюсь, что смогу получил некоторую помощь с этой линией VBA кода пожалуйста:Заполнить строку цветом после копирования на новый лист

With Worksheets(3)      
    Worksheets(1).Range(Worksheets(1).Cells(intCopyRow, 1), _ 
     Worksheets(1).Cells(intCopyRow, bytColumnsInData)).Copy _ 
    Destination:=.Cells(.Cells.Rows.Count, 1).End(xlUp).Offset(1, 0) 
End With

Я надеюсь, чтобы добавить цвета к строке после того, как я копирую несовпадение строки в новую Лист3. Как мне следует изменить этот код, чтобы добавить цвет?

источник

2015-03-26 saina

Добавить эту строку, возможно?

' colors the row Red 
.Cells(.Rows.Count, 1).End(xlUp).EntireRow.Interior.Color = RGB(255, 0, 0)

источник

2015-03-26 03:40:07 L42

Это прекрасно работает. Я вижу, что есть немного лагги с цветом, заполняющим всю строку. Могу ли я сократить длину строки до 20 столбцов? Использую ли я Смещение (1, 0) вместо EntireRow для управления длиной строки? – saina

@saina Нет. Если вам нужно покрасить только одну ячейку, удалите 'EntireRow'. например. .Cells (.Rows.Count, 1) .End (xlUp) .Interior.Color = RGB (255, 0, 0) '. Если вам нужен определенный размер столбца, используйте «Resize», например. Раскраска 20 столбцов '.Cells (.Rows.Count, 1) .End (xlUp) .Resize (, 20) .Interior.Color = RGB (255, 0, 0)' – L42

@saina Btw, если это сработает для вас, см. [принятие ответа] (http://stackoverflow.com/help/someone-answers) как один из способов сказать спасибо. Можно также прочитать об этом [здесь] (http://stackoverflow.com/tour) – L42

Заполнить строку цветом после копирования на новый лист

ответ

Смежные вопросы