使用VBA给单元编写公式


使用VBA给单元编写公式
文章图片
今天通过按钮来针对单元格的操作
你可以输入内容 , 也可以填写公式 , 还可以向下填充 , 或是选择不带格式填充 。
以下是原表,如果学过IF函数可以轻松完成 , 今天试试有VBA来做一下 , 也不复杂 , 主要是学习一下如何在单元格中输入公式 。

使用VBA给单元编写公式
文章图片
使用以下一段代码:
填充之后效果如下:

使用VBA给单元编写公式
文章图片
代码解释如下:
Range("d5")="=if(c5>=90,""优秀"",""一般"")"
请注意里面if函数中的文本有两个双引号 。 这是因为公式本身有一个双引号开始 , 如果没有两个双引号区分 , 比如"=if(c5>=90,"这样就引号被结束了 。
Range("D5").AutoFillDestination:=Range("D5:D13"),Type:=xlFillValues
相当于鼠标移到右下角变十字时 , 双击 , 这个可以录制一段宏 , 查看代码 。
不用死记硬背 。
子曰:用之则行 , 不用则藏 。
【使用VBA给单元编写公式】意思是说 , 如果你用我的这些建议 , 就马上行动 , 知行合一 , 如果你不用 , 就赶紧收藏 , 以绝后患 。