Question

我正在尝试创建将格式化行的宏。我可以制作一个格式化特定范围的图像，但是我想知道如何根据我选择的行进行格式化。

我并没有做太多尝试，因为我对此非常新手，也不确定从哪里开始。我不想尝试随机的事情。我只不过是一名编码人员，根本不认识任何可以帮助我的人。

Range("D131").Select
ActiveCell.FormulaR1C1 = "TOTAL"
Range("G131").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("F131").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C)"
Range("E131").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C)"
Range("F128").Select

因此，除了具有D131范围之外，还有其他方法可以使该值特定于活动单元格吗？然后相应地前进到下一个单元格和公式。如果我不清楚，请告诉我，我将尝试以其他方式解释自己。

Answer 1

类似的事情应该对您有用：

Sub tgr()

    If TypeName(Selection) = "Range" Then
        With Intersect(Selection.EntireRow, Selection.Worksheet.Range("D:G"))
            .FormulaR1C1 = Array("TOTAL", "=SUM(R[-1]C)", "=SUM(R[-1]C)", "=RC[-2]-RC[-1]")
        End With
    End If

End Sub

设置一个宏，该宏将格式化活动单元格中的行

1 个答案: