如何在VBA中给EXCEL中的单元格设置公式

Question

如何在VBA中给EXCEL中的单元格设置公式，不在单元格显示的。各表格数据内容及计算的函数公式 问题 1\表8不能自动从表5引用过来,原来可以的,在VBA中如何设置公式 2\在VBA中设置公式,减少EXCEL运行速度慢,如: Sub 计算销售额() Dim sh As Worksheet Set sh = Worksheets("sheet5") Dim n As Integer n = 12 Do sh.Cells(n, 28) = sh.Cells(n, 12) * sh.Cells(n, 14) n = n + 1 Loop Until sh.Cells(n, 12) = "" End Sub 3\表5是引用表4的,表5是表8自动引用不重复数据的依据 4\表6是依据表5汇总引用过来的,在VBA中如何设置公式 5\表7是依据表5汇总引用过来的,在VBA中如何设置公式

Answer 1

先手动建立一个引用公式，然后在VBA中替换到以下引号中，公式中比较麻烦的是变量要用 & 来连接到公式中， 假设i是变量的话
Cells(i, 1).Formula = "='[Samll tools for validation test.xls]sheet5'!$E$125"
[]之间为excel文件名称（如果是引用不同文件的数据）
sheet5位表格名称
Cells(i,1).Formula = "=if(A" & i & "<>0,true,false)"
还有时需要用到chr(34)来替换引号，因为vba中引号有特殊作用，会将引号间的文字作为字符串处理。追问

自动引用的表在表8的单元格有设公式了，就是要在VBA中设置单元格的公式的作用的，表6和表7中的单元格也是有设置公式了（汇总引用表5的），也是要在VBA中设置单元格的公式的作用的，应该是要在VBA中设置多个SUB、、、、了，如何分开设置，电子表格可私信QQ邮件给你，谢谢

Answer 2

VBA问题我可以解决，需要的话私信留Q发文件我加你