运行时公式错误1004 swaformula

Question

我收到一个公式错误消息：运行时错误1004，代码中公式的第二次重复; 有问题的代码部分如下，为了快速参考我粘贴下面的两个公式，第一个运行OK，第二个给出我无法弄清楚的错误。

ActiveWorkbook.Names.Add Name:="pivotsourceFGPO", RefersToR1C1:=swaFormula (no errors when running the macro)

 ActiveWorkbook.Names.Add Name:="pivotsourceorderbase", RefersToR1C1:=swaFormula (FORMULA giving error)

代码:(部分）

swaFormula = "=OFFSET(" & _
ActiveWorkbook.Worksheets(ActiveSheet.Index).Name & "!R" & ActiveCell.Row & "C" & ActiveCell.Column & ",0,0,COUNTA(" & _
ActiveWorkbook.Worksheets(ActiveSheet.Index).Name & "!C" & ActiveCell.Column & ") -" & swarow & ",COUNTA(" & _
ActiveWorkbook.Worksheets(ActiveSheet.Index).Name & "!R" & ActiveCell.Row & ")-" & swacol & ")"

ActiveWorkbook.Names.Add Name:="pivotsourceFGPO", RefersToR1C1:=swaFormula
Dim PTCache As PivotCache
Dim pt As PivotTable
Dim WS As Worksheet
Dim pvtfld As PivotField

' define the range which serves as the data range

Set WS = Sheets.Add ' add new sheet to hold the pivot table
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,  SourceData:="=pivotsourceFGPO")

' Create the pivot table
Set pt = PTCache.CreatePivotTable(TableDestination:=WS.Range("A1"), TableName:="FGPOPivot")

ActiveWorkbook.ShowPivotTableFieldList = True

pt.PivotFields("Key").Orientation = xlRowField
pt.PivotFields("Key").Position = 1
pt.PivotFields("MTL").Orientation = xlRowField
pt.PivotFields("MTL").Position = 2
pt.PivotFields("Size Code").Orientation = xlRowField
pt.PivotFields("Size Code").Position = 3
pt.PivotFields("Week").Orientation = xlColumnField
pt.PivotFields("Week").Position = 1
pt.AddDataField pt.PivotFields("Wip Qty"), "Sum of Wip Qty", xlSum

'Order base 1 pivot
Sheets("Order base (1)").Select
Range("A1").Select
swarow = ActiveCell.Row - 1
swacol = ActiveCell.Column - 1

' make it comma and not colon
swaFormula = "=OFFSET(" & _
ActiveWorkbook.Worksheets(ActiveSheet.Index).Name & "!R" & ActiveCell.Row & "C" & ActiveCell.Column & ",0,0,COUNTA(" & _

ActiveWorkbook.Worksheets(ActiveSheet.Index).Name & "!C" & ActiveCell.Column & ") -" & swarow & ",COUNTA(" & _
ActiveWorkbook.Worksheets(ActiveSheet.Index).Name & "!R" & ActiveCell.Row & ")-" & swacol & ")"

ActiveWorkbook.Names.Add Name:="pivotsourceorderbase", RefersToR1C1:=swaFormula (FORMULA giving error)

Answer 1

您依赖于ActiveCell属性 。 有更好的方法来引用单元格，但是如果这些'最佳实践可以忽略一分钟，那么ActiveCell就知道它的.Parent工作表和工作簿是什么。

此外，由于未提供实际工作表名称，因此无法保证ActiveSheet的.Name属性不包含空格，并且可能需要使用tick（例如' ）来包装它。 要么应该添加它们，要么应该使用Range.Address属性来生成单元格范围的字符串。

非易失性INDEX函数可以代替挥发性的OFFSET函数，但我对数据的布局知之甚少，无法提出可靠的替代公式。

Dim swaFormula As String, rngName As String
Dim swaRow As Long, swaCol As Long

rngName = "pivotSourceOrderBase"
swaRow = 0: swaCol = 0

With ActiveCell
    swaFormula = "=OFFSET(" & _
                    .Cells(1).Address(external:=True, ReferenceStyle:=xlR1C1) & _
                    ", 0, 0, COUNTA(" & _
                    .Cells(1).EntireColumn.Address(external:=True, ReferenceStyle:=xlR1C1) & _
                    ")-" & swaRow & ", COUNTA(" & _
                    .Cells(1).EntireRow.Address(external:=True, ReferenceStyle:=xlR1C1) & _
                    ")-" & swaCol & ")"
    Debug.Print swaFormula  '<~~ check the formula in the Immediate window
    On Error Resume Next    'may be needed for the next line
    .Parent.Parent.Names(rngName).Delete
    On Error GoTo 0
    .Parent.Names.Add Name:=rngName, RefersToR1C1:=swaFormula
End With

在尝试将其应用于命名范围创建之前，请完成此操作并检查VBE的立即窗口中的公式。

---

¹ _{请参阅如何避免在Excel VBA宏中使用选择以获取更多方法， 以避免依赖选择和激活来实现目标。}

² _{当整个工作簿中的任何内容发生变化时，挥发性函数会重新计算，而不仅仅是在影响其结果的内容发生变化时。 易失性函数的示例是INDIRECT ， OFFSET ， TODAY ， NOW ， RAND和RANDBETWEEN 。 CELL和INFO工作表函数的某些子函数也会使它们变得不稳定。}