我无法弄明白。我试图让我的公式变得更有活力。但它始终表示无法找到prev ,但我将prev设置为工作表。 PrevSheetName返回上一个工作表的名称(有效)。 请帮助我,在我的其他代码中,我总是尝试使用" ActiveSheet.Previous"但它似乎不适用于公式。
Set prev = Worksheets(PrevSheetName)
Set rng = ActiveSheet.Range("D3")
rng.FormulaR1C1 = "=SUMIF(prev!C[1],RC[-2],prev!C[5])"
Range("D3").Copy Range("D4:D" & lRow)
这是我的第一个代码,可行
Set rng = ActiveSheet.Range("D3")
rng.FormulaR1C1 = "=SUMIF('Projekt 1'!C[1],RC[-2],'Projekt 1'!C[5])"
Range("D3").Copy Range("D4:D" & lRow)
这是我的PrevSheetName,已将名称放在" "
Function PrevSheetName(Optional ByVal WS As Worksheet = Nothing) As String
Application.Volatile True
Dim S As String
Dim Q As String
If IsObject(Application.Caller) = True Then
Set WS = Application.Caller.Worksheet
If WS.Index = 1 Then
With Application.Caller.Worksheet.Parent.Worksheets
Set WS = .Item(.Count)
End With
Else
Set WS = WS.Previous
End If
If InStr(1, WS.Name, " ", vbBinaryCompare) > 0 Then
Q = "'"
Else
Q = vbNullString
End If
Else
If WS Is Nothing Then
Set WS = ActiveSheet
End If
If WS.Index = 1 Then
With WS.Parent.Worksheets
Set WS = .Item(.Count)
End With
Else
Set WS = WS.Previous
End If
Q = vbNullString
End If
PrevSheetName = Q & WS.Name & Q
End Function
我只想交换' Projekt 1'与前一页
答案 0 :(得分:0)
prev是公式的字面部分。它正在寻找名为“prev”的表格。您需要连接公式:"=SUMIF(" & PrevSheetName & "!C[1],RC[-2]," & PrevSheetName & "!C[5])"
答案 1 :(得分:0)
如果你的工作表名称有空格和连接,你需要在公式中添加'如此名称“= SUMIF('”& PrevSheetName&“'!C [1],RC [-2] ],''& PrevSheetName&“'!C [5])”