vba - ссылки на рабочие листы в формуле

Question

Я не могу понять это. Я пытаюсь сделать свой формуляр более динамичным. Но всегда говорит, что 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 'с предыдущим листом

Answer 1

Если имя листа содержит пробелы, а также concatention вам нужно будет добавить «вокруг имени в формуле, как это» = SumIf («» & PrevSheetName & «'C [1! ], RC [-2], '"& PrevSheetName &"'! C [5]) «

Answer 2

prev - это буквальная часть формулы. Он ищет лист под названием «prev». Вам нужно сцепить формула: "=SUMIF(" & PrevSheetName & "!C[1],RC[-2]," & PrevSheetName & "!C[5])"