使用VBA给单元编写公式

今天通过按钮来针对单元格的操作

你可以输入内容，也可以填写公式，还可以向下填充，或是选择不带格式填充。

以下是原表,如果学过IF函数可以轻松完成，今天试试有VBA来做一下，也不复杂，主要是学习一下如何在单元格中输入公式。

使用以下一段代码：

Private Sub CommandButton1_Click() Range("b14") = "平均分" Range("c14") = "=average(c5:c13)" Range("d5") = "=if(c5>=90,""优秀"",""一般"")" Range("D5").AutoFill Destination:=Range("D5:D13"), Type:=xlFillValuesEnd Sub

填充之后效果如下：

代码解释如下：

Range("d5") = "=if(c5>=90,""优秀"",""一般"")"

请注意里面if函数中的文本有两个双引号。这是因为公式本身有一个双引号开始，如果没有两个双引号区分，比如"=if(c5>=90," 这样就引号被结束了。

Range("D5").AutoFill Destination:=Range("D5:D13"), Type:=xlFillValues

相当于鼠标移到右下角变十字时，双击，这个可以录制一段宏，查看代码。

不用死记硬背。

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。