求助VBA中公式修改

王跃峰

Sub 月计干量()
Dim i&, x&
i = Sheets.Count '计算工作表数
For x = 2 To i '建立每个表循环
With Sheets(x)
.Range("E8").Formula = "=  E7 +Sheets(x-1).E8"

End With
Next x
End Sub

王跃峰

主要是公式对上一个工作表的引用不知如何表示

ykcbf1100

可以这样写。

tanglf188

Sub 月计干量()
    Dim i&, x&
    i = Sheets.Count '计算工作表数
    For x = 2 To i '建立每个表循环
        Sheets(x).Range("E8") = Sheets(x).Range("E7") + Sheets(x - 1).Range("E7")
    Next x
End Sub

tanglf188

王跃峰 发表于 2023-1-11 15:29
主要是公式对上一个工作表的引用不知如何表示

1. Sub 月计干量()
   
2.     Dim i&, x&
   
3.     i = Sheets.Count '计算工作表数
   
4.     For x = 2 To i '建立每个表循环
   
5.         Sheets(x).Range("E8") = Sheets(x).Range("E7") + Sheets(x - 1).Range("E7")
   
6.     Next x
   
7. End Sub
   

复制代码

太极拍天雄

.Range("E8") = "=E7+'" & Sheets(x - 1).Name & "'!E8"

王跃峰

ykcbf1100 发表于 2023-1-11 16:02
可以这样写。

感谢帮助，但我主要是想保留公式

ykcbf1100

王跃峰 发表于 2023-1-11 16:19
感谢帮助，但我主要是想保留公式

那用4楼的代码就可以了。

王跃峰

ykcbf1100 发表于 2023-1-11 16:02
可以这样写。

Sub 月计干量()
Dim i&, x&
i = Sheets.Count '计算工作表数
For x = 2 To i '建立每个表循环
With Sheets(x)
.Range("E8").Formula = "=  E7 +Sheets(x-1).E8" '有问题
.Range("D20").FormulaR1C1 = _
        "=LEFT(CELL(""filename"",RC[-3]),FIND(""["",CELL(""filename"",RC[-3]),1)-1)" '获取文件夹
       .Range("D25").FormulaR1C1 = _
        "=MID(CELL(""filename"",RC[-3]),FIND(""]"",CELL(""filename"",RC[-3]))+1,LEN(CELL(""filename"",RC[-3]))-FIND(""]"",CELL(""filename"",RC[-3])))"  '获取本工作表
End With
Next x
End Sub

王跃峰

太极拍天雄 发表于 2023-1-11 16:19
.Range("E8") = "=E7+'" & Sheets(x - 1).Name & "'!E8"

牛牛牛，太牛了