[原创]★将公式保存在宏中★

huagnzhailing · 发表于 2012-9-4 21:33

LangQueS 发表于 2012-9-4 13:08

老师，非常感谢。
不知还能不能优化一下，我想仅填充公式，不填充格式。要如何修改代码呢？

LangQueS · 发表于 2012-9-4 23:29

huagnzhailing 发表于 2012-9-4 21:33
老师，非常感谢。
不知还能不能优化一下，我想仅填充公式，不填充格式。要如何修改代码呢？

Sub 公式()
For a = 6 To 11
Range("O" & a).FormulaArray = "=SUM(RC[3]:RC[5]*R3C18:R3C20)"
Next
End Sub

复制代码

lindw · 发表于 2012-9-7 09:55

请老师帮我看一下代码中的公式哪错了，page2表中的H列从第二行开始是取数据录入这个表的G列，但是Page2的H列每个单元格的值的都少了前面的0

Sub 表3公式()
Application.Calculation = xlCalculationManual '手动重算
With Sheets("Page2")
b = Sheets("数据录入").Range("a65536").End(xlUp).Row
If b > 1 Then
      .Range("F2:F" & b).FormulaR1C1 = "=IF(数据录入!RC[-5]="""","""",数据录入!RC[-5])"
      .Range("G2:G" & b).FormulaR1C1 = "=IF(RC[-1]="""","""",1)"
      .Range("H2:H" & b).FormulaR1C1 = "=""'""&IF(RC[-2]="""","""",数据录入!RC[-1])"

kayshao1986 · 发表于 2012-9-28 23:37

占地收藏，学习中ＩＮＧ

华仔/tiao · 发表于 2012-11-30 22:42

通过实验已经解决问题了，谢谢!

来自天上 · 发表于 2012-12-3 11:07

很实用，谢谢le

yidoo · 发表于 2013-1-5 13:02

非常感谢楼主的分享，代码上有标注看了一目了然。

LYQ663668 · 发表于 2013-3-20 21:47

学习一下!真是好,能用得到.

LangQueS · 发表于 2013-3-20 22:07

本帖最后由 LangQueS 于 2013-3-20 22:09 编辑

lindw 发表于 2012-9-7 09:55
请老师帮我看一下代码中的公式哪错了，page2表中的H列从第二行开始是取数据录入这个表的G列，但是Page2的H列 ...

将：
.Range("H2:H" & b).FormulaR1C1 = "=""'""&IF(RC[-2]="""","""",数据录入!RC[-1])"
改为：
.Range("H2:H" & b).FormulaR1C1 = "=""''""&IF(RC[-2]="""","""",数据录入!RC[-1])"

在帖子上看不清楚，复制到代码窗口中对比一下即可(增加了红色的一个字符)。

东亚五金 · 发表于 2013-4-9 01:07

非常感谢超级版主的这个帖子，适合我学习

		自动登录	找回密码
密码			免费注册