☰

Excel - 获取宏以推广到其他行

tag-icon • tag-icon microsoft-excel macros vba
Excel - 获取宏以推广到其他行

假设我创建了一个宏，可以完全填充 B2:F2 中的文本。我希望在所有其他行上也能实现同样的效果，而无需为数百行编写宏。

有没有办法我可以编写这个宏，然后将其应用于我选择的行而不是只记录我用来录制宏的那一行？

答案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

相关内容