Excel - получение макроса для обобщения в другие строки

Question

Допустим, я создаю макрос, который полностью заполняет текст из B2:F2. Я хотел бы, чтобы это было возможно во всех других строках без написания макроса для сотен других строк.

Есть ли способ, которым я могу написать этот макрос и затем применить его к строке, которую я выбрал, а не только к строке, которую я использовал для записи макроса?

Answer 1

Это будет сплошная заливка "желтый" для всего, что вы выбрали.

Sub Macro1()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

В качестве альтернативы, если я правильно прочитал ваш вопрос (а вы говорите о Microsoft Excel), вы хотите заполнить columns B through F вашей текущей строки. Это будет сделано желтым цветом, все в зависимости от того, какую ячейку вы выбрали при запуске.

Sub Macro1()
    'define the range variable that will be filled
    Dim currentrange As Range
    'define the row number variable
    Dim Rownum As Integer

    'set our rownum variable to the current selection's row
    Rownum = Selection.Row

    'set our range variable to the current row's columns 2-6
    Set currentrange = Range((Cells(Rownum, 2)), (Cells(Rownum, 6)))

    'let's start filling!
    With currentrange.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        'pick your color here
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub