[已解决][解决]vba里面写公式，公式里面有变量（雨狐解决）

xdwy81129

需要在单元格F6输入该公式=SUMIF('2月'!C:C,"J"&B6,'2月'!E:E)   （fx里面显示为这个）

但这里的'2月'!需要设置为变量变量，求教老师怎么输入

[此贴子已经被作者于2009-12-16 22:08:36编辑过]

最佳答案

月排行榜 / 总排行榜

雨狐

2009-12-16 21:59

[em01]

Sub a()
Dim sh As Worksheet
Dim bm As String
Dim i As Integer
For Each sh In ThisWorkbook.Sheets
    bm = sh.Name
    i = i + 1
    Cells(i, 1).Formula = "=SUMIF('" & bm & "'!C:C,""J""&B6,'" & bm & "'!E:E)"
Next
End Sub

跳转到最佳答案楼层

爱疯

如果为解决问题，用VBA实现替代公式，试试看。

如果为学习，那就再等高手吧

[em04]

xdwy81129

QUOTE:

以下是引用爱疯在2009-12-16 21:20:00的发言：

如果为解决问题，用VBA实现替代公式，试试看。

如果为学习，那就再等高手吧

[em04]

2者都是，最好就赐教怎么能入题目这样的输入，因为这样，公式可以下拉

爱疯

我不会。

最好传上附件，让高手来帮你解答吧

xdwy81129

QUOTE:

以下是引用爱疯在2009-12-16 21:28:00的发言：

我不会。

最好传上附件，让高手来帮你解答吧

能入题目上的输入时最好的解决，以后也方便自己在其他地方的运用。

这个知识点个人感觉非常的好，盼高手

hhzjxss

建议上传附件和说明，方便大家给你写代码和测试！

雨狐

[em01]

Sub a()
Dim sh As Worksheet
Dim bm As String
Dim i As Integer
For Each sh In ThisWorkbook.Sheets
    bm = sh.Name
    i = i + 1
    Cells(i, 1).Formula = "=SUMIF('" & bm & "'!C:C,""J""&B6,'" & bm & "'!E:E)"
Next
End Sub

xdwy81129

盼能人出现。

dim a$

a="'2月'!"

然后期盼高手出来赐教

xdwy81129

QUOTE:

以下是引用雨狐在2009-12-16 21:59:00的发言：

[em01]

Sub a()
Dim sh As Worksheet
Dim bm As String
Dim i As Integer
For Each sh In ThisWorkbook.Sheets
    bm = sh.Name
    i = i + 1
    Cells(i, 1).Formula = "=SUMIF('" & bm & "'!C:C,""J""&B6,'" & bm & "'!E:E)"
Next
End Sub

这是能人呀，感谢感谢感谢

zsd5237

学习[em02][em02]