2种引用工作表函数方法，如：求和

chygy

Sub 1()
Range("c19") = "=Sum(c2:c18)"
End Sub

Sub 2()
Range("c19") = Application.WorksheetFunction.Sum(Range("c2:c18"))
End Sub


上面2种求和方法，都能得到结果，第2种是vba正确写法，第1种实际是直接excel表中函数用文本方式赋予，我是初学者，一开始用第一种觉得很好用，excel会， vba不会写，就这样折中用

zxsea_7426

两种是不同的需求情况下的，作用不同，因为一个是一次性的结果，一个变动的函数，第一个我们常用写法为：Range("c19").Formula = "=Sum(c2:c18)"

chygy

zxsea_7426 发表于 2023-4-9 23:32
两种是不同的需求情况下的，作用不同，因为一个是一次性的结果，一个变动的函数，第一个我们常用写法为：Ra ...

请问.Formula加这个是什么意思？

zxsea_7426

chygy 发表于 2023-4-10 09:38
请问.Formula加这个是什么意思？

向单元格输出公式,而不是你说的文本形式

chygy

zxsea_7426 发表于 2023-4-10 22:05
向单元格输出公式,而不是你说的文本形式

感谢，第一种写法是不是不能用变量？

zxsea_7426

chygy 发表于 2023-4-12 20:52
感谢，第一种写法是不是不能用变量？

可以使用变量（使用变量也有两种方法：一种绝对引用，一种相对引用，表述也不一样）

1. Sub test1()
   
2.     Range("c19").FormulaR1C1 = "=Sum(r[-17]c:r[-1]c)"       '相对引用
   
3.     Range("c19").Formula = "=Sum(c2:c18)"                   '绝对引用
   
4. End Sub
   
5. 
   
6. Sub test2()
   
7.     i1 = 2  '起始行号
   
8.     i2 = 18 '结束行号
   
9.     i3 = 19 '当前行号
   
10.     '==============i1,i2,i3相当于变量===================
    
11.     Range("c19").FormulaR1C1 = "=Sum(r[" & i1 - i3 & "]c:r[" & i2 - i3 & "]c)"  '相对引用
    
12.     Range("c19").Formula = "=Sum(c" & i1 & ":C" & i2 & ")"                      '绝对引用
    
13. End Sub

复制代码

chygy

zxsea_7426 发表于 2023-4-12 21:57
可以使用变量（使用变量也有两种方法：一种绝对引用，一种相对引用，表述也不一样）

谢谢大佬