奇妙公式的VBA转换，请高手帮忙解答！

dcw · 发表于 2004-11-22 14:13

见附件

isJkJTKw.rar (6.41 KB, 下载次数: 39)

dcw · 发表于 2004-11-22 16:23

请各位兄弟帮忙解答！我先谢谢了

Laolangsex · 发表于 2004-11-22 17:18

msgbox range("A1").formula

dcw · 发表于 2004-11-23 10:27

sorry,我说的是怎样才能让这个函数在VBA中用x=worksheetfunctin.sum(XXXXXXX)这种格式写出来！

請適當地利用編輯功能修改你的帖子！ Emily

[此贴子已经被Emily于2004-11-23 10:43:16编辑过]

dcw · 发表于 2004-11-23 10:29

想问一下下面的这个函数怎样用VBA表示呢

=sum(a:b!A1)写成如以下的样式：

x = WorksheetFunction.Sum(XXXXXXXXXXXXX) msgbox x

意思是从a到b工作表中所有为A1的单元格值的和，又麻烦你大家了！

cofe2000 · 发表于 2004-11-23 10:40

是不是这个意思

Range("a65536").Formula = "=SUM('a:c'!a1)" x = Range("a65536") MsgBox x Range("a65536").Clear

dcw · 发表于 2004-11-23 11:29

不是，可能我没说清楚，我是想直接取到从工作表a到工作表b的所有工作表上单元格地址为a1的值的和，是直接在VBA里计算出值，即：x = WorksheetFunction.Sum(XXXXXXXXXXXXX)的x的值！而非先在工作表里写入公式再计算出数值！

cofe2000 · 发表于 2004-11-23 12:44

用公式我不会

这个试试看

For Each sh In Sheets If Not sh.Name = ActiveSheet.Name Then x = x + sh.Range("a1") Next MsgBox x

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