公式出现在引号内的variables

我试图在公式中插入2个variables。 尽pipe他们出现在引号内。

fase1 = Cells(2, diffdate_ac + 4).Address(RowAbsolute:=False, ColumnAbsolute:=False) prod1 = Cells(4, diffdate_ac + 4).Address(RowAbsolute:=False, ColumnAbsolute:=False) 

Fase1是指AG2和Prod1到AG4。

 Range("B3").Formula = "=SUM((SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase, " & fase1 & ",ben_linha," & prod1 & ")) 

这是公式的一部分。 “＆fase 1＆”正在给我“AG2”，“＆prod 1＆”正在返回“AG4”。 是的，它们都在公式内部，如图所示：

我想删除这些单引号，因为这样的公式不是指这些单元格。

这个命令的完整部分代码

 'Prints an array of dates Dim startac2 As Long, finishac2 As Long Dim datearray3 As Variant, y As Long finishac2 = CLng(DateValue(lastac)) startac2 = CLng(DateValue(firstac)) ReDim datearray3(finishac2 - startac2 + 1) For y = 0 To finishac2 - startac2 datearray3(y) = startac2 + y Next diffdate_ac = DateDiff("d", startac2, finishac2) + 1 wsPBen.Activate Range(Cells(2, 2), Cells(2, diffdate_ac + 1)).Value = datearray3 Range(Cells(2, 2), Cells(2, diffdate_ac + 1)).NumberFormat = "d/m;@" ' Range("A1").Value = "BENEFICIAMENTO: TINTURARIA LISO" Range("A2").Value = "Data" Range("A3").Value = "Produção" Cells(2, diffdate_ac + 2).Value = "TOTAL" Cells(2, diffdate_ac + 3).Value = "FASE" Cells(4, diffdate_ac + 3).Value = "PRODUTO" Cells(2, diffdate_ac + 4).Value = "TINGIR ALTA TEMP." Cells(3, diffdate_ac + 4).Value = "TINGIR BAIXA TEMP." Cells(4, diffdate_ac + 4).Value = "TINTO RAMADO" Cells(5, diffdate_ac + 4).Value = "TINTO TUBULAR" Dim fase1 As String Dim fase2 As String Dim prod1 As String Dim prod2 As String fase1 = Cells(2, diffdate_ac + 4).Address(RowAbsolute:=False, ColumnAbsolute:=False) fase2 = Cells(3, diffdate_ac + 4).Address(RowAbsolute:=False, ColumnAbsolute:=False) prod1 = Cells(4, diffdate_ac + 4).Address(RowAbsolute:=False, ColumnAbsolute:=False) prod2 = Cells(5, diffdate_ac + 4).Address(RowAbsolute:=False, ColumnAbsolute:=False) Range("B3").formula = "=SUM((SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase," & fase1 & ",ben_linha," & prod1 & ")),(SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase," & fase1 & ",ben_linha," & prod2 & ")),(SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase," & fase2 & ",ben_linha," & prod1 & ")),(SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase," & fase2 & ",ben_linha," & prod2 & ")))" 

Answer 1

如果我正确地读了你的话，这个VBA行：

 Range("B3").Formula = "=SUM((SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase, " & fase1 & ",ben_linha," & prod1 & "))" 

正试图设置这个公式expression式：

 =SUM((SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase, AG2,ben_linha,AG4)) 

但是，这是混合R1C1和A1单元寻址在相同的公式。 据我所知，这总是无效的语法。

Answer 2

你的代码看起来对我来说可以…你可以开始一个新的Excel工作簿，去VBA编辑器，并将下面的代码粘贴到一个新的模块？

 Sub x() Dim cellAddress As String cellAddress = Cells(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) Dim formula As String formula = "=SUMIFS(B1:B4,C1:C4," & cellAddress & ")" Call MsgBox(formula) Range("A2").formula = formula End Sub 

在此之后，运行它并告诉我们提示是否在公式中显示了任何引号，然后告诉我们在单元格A2中的内容。

Answer 3

我只是简单地用引号replace掉：

 Range("B3").Formula = "=SUM((SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase," & fase1 & ",ben_linha," & prod1 & ")),(SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase," & fase1 & ",ben_linha," & prod2 & ")),(SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase," & fase2 & ",ben_linha," & prod1 & ")),(SUMIFS(ben_quant,ben_dia,R[-1]C,ben_fase," & fase2 & ",ben_linha," & prod2 & ")))" Range("B3").Formula = Replace(Range("B3").Formula, "'", "")