目录
示例:
前例员工工资表,。现公司政策调整,需要将所有员工的补贴统一为工资的10%,并在D列填入计算公式而得到结果,该如何用VBA实现?
Sub 批量输入公式()
'设置计数变量
Dim RowN As Long
For RowN = 2 To 37
Cells(RowN, "D").Formula = "=C" & RowN & "*10%"
'Range("D" & RowN).Formula = "=C" & RowN & "*10%"
Next
End Sub
利用Formula属性给单元格输入公式
Formula属性表示单元格对象所含的公式。可以通过修改Formula属性直接向单元格对象输入公式,该公式应以文本表达式表示,并且遵循Excel工作表中公式输入的规则。
利用该属性,相当于将公式的表达式变为文本输入至单元格中,当设置单元格区域的公式时,应注意公式所对应的行和列的变化。将该变化的部分以变量的形式表现,并通过连接符(&)组合为公式文本。如本例中,由于需要分别给D2至D37行的各个单元格进行公式赋值,每一行的公式所引用的C列的数据也是不同的。因而在表示C列的单元格时,通过使用RowN变量与文本"C”的连接组合来表示。
Formula属性和Value属性的联系与区别
Formula属性和Value属性是两个不同的属性。
当需要读取这两个属性时,它们表示的含义是不同的。当单元格中不包含公式时,Formula属性和Value属性的值是相同的;而当单元格中包含公式时,Formula属性表示公式的文本表达式,Value属性则是该公式的运算结果。
当需要给单元格赋值或者输入公式时,可以使用Formula属性或Value属性的任何一个。因而本例中若采用以下语句