excel - 使用单元构建范围

Question

重新表述问题:

为什么必须激活工作表才能使用单元格构建范围？

<小时/>

我有一个快速且(希望)简单的问题。

与

Dim XRange As Range

为什么:

Set XRange = ActiveWorkbook.Sheets("Pivot").Range("K20:L26")

工作和:

Set XRange = ActiveWorkbook.Sheets("Pivot").Range(Cells(21, 11), Cells(22, 26))

不是吗？

它抛出 1004 运行时错误。由于我的 Excel 是德语，因此它显示:

Laufzeitfehler '1004':

Anwendungs- oder objektdefinierter Fehler

<小时/>

由于存在一些有关事件工作表的提示:

我正在重构一些代码。我使用 xRange 作为图表的数据。我曾经将工作表设置为事件状态，抓取数据并将另一个工作表设置为事件状态。但这很烦人。我想简化代码，例如:

With myChart
    .SeriesCollection.NewSeries
    ActiveWorkbook.Sheets("Pivot").Activate
    .SeriesCollection(1).Values = Range("H6:H18")
    .SeriesCollection(1).XValues = Range("K6:L18")
    ActiveWorkbook.Sheets("Ausgabe").Activate
    .SeriesCollection(1).Name = "28 days"
End With

进入类似的事情

With myChart
    For i = 0 To 6
        .SeriesCollection.NewSeries
        .SeriesCollection(i + 1).Values = ActiveWorkbook.Sheets("History").Range(Cells(i + 52, StartColumn).Address, Cells(i + 52, EndColumn).Address)
        .SeriesCollection(i + 1).XValues = XRange
        .SeriesCollection(i + 1).Name = ActiveWorkbook.Sheets("History").Range(Cells(i + 52, 1).Address)
    Next i
End With

[请忽略实际引用的单元格，当我正在进行重构时，这些是不同的图表]

Answer 1

成功复制 1004 错误。

当工作表未处于事件状态时会发生这种情况。所以使用时

ActiveWorkbook.Sheets("Pivot")range(cells(....))

工作表“Pivot”必须处于事件状态。仅当由于某种原因混合范围和单元格时才会发生

所以你可以使用

Activeworkbook.sheets("Pivot").activate
Set XRange = Range(Cells(21, 11), Cells(22, 26))

编辑，修复了工作表不活动的问题

我一直在研究为什么它不适用于非事件工作表。

您需要每次设置单元格工作表才能在不活动时使用它。

所以 设置 XRange = ActiveWorkbook.Sheets("Pivot").Range(Cells(21, 11), Cells(22, 26))

将变为 Set XRange = ActiveWorkbook.Sheets("Pivot").Range(sheets("Pivot").Cells(21, 11), Sheets("Pivot").Cells(22, 26))