具有隐藏工作表名称的动态范围

Question

我正在尝试为一些手动输入创建存档选项。我有那个工作，但是当存档被隐藏时，我遇到了一些问题。

Sub Archive()
Dim sDumpRange  As String
Dim sDumpSheet As String
sDumpSheet = "Active archive"
If Range("C6") <> Empty Then
    pRow = Sheets(sDumpSheet).Range("I1")
       If pRow > 1 Then
          Range("A2:E" & pRow).Delete Shift:=xlUp
       Else
       End If
    sDumpRange = "'" & Sheets("Active archive") & "'!" & "A" & Range("A5000").End(xlUp).Row + 1
   ' sDumpRange = "A" & Range("A5000").End(xlUp).Row + 1
    Sheets("call-outs completed").Range("a10:e109").Copy
    Worksheets(sDumpSheet).Range(sDumpRange).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("call-outs completed").Range("a10:a109").ClearContents
    Sheets("call-outs completed").Select
    Range("A11").Select
Else
    MsgBox "Data not archived. Please select your name first and try again."
End If
End Sub

有一个单元格计算有多少行日期超过 2 个月，然后清除旧数据（使用 pRow 删除部分）。

我尝试了不同的东西，现在 sDumpRange 已修改但无法正常工作，但当它正常工作时，它看起来像是在计算错误的数据输入表中的范围。那是十个被从错误的单元格（Active Archive A11）复制到存档。刷新时，数据被覆盖，因为输入表也被清除。 关键现在似乎在sDumpRange 计算范围内。

Answer 1

但是当存档被隐藏时，我遇到了一些问题。

这很明显，因为它不再是ActiveSheet，因此我一直在喋喋不休地谈论THIS

您需要完全限定范围对象。例如，改变

Range("A2:E" & pRow).Delete Shift:=xlUp

到

Sheets(sDumpSheet).Range("A2:E" & pRow).Delete Shift:=xlUp

否则它将从错误的工作表中删除行。

同样，请在任何地方进行更改，并结合我上面提到的链接给出的建议。

Answer 2

隐藏工作表上的操作并不总是按预期完成。 PasteSpecial 肯定是这样。

解决此问题的方法是在脚本执行期间取消隐藏这些工作表，并在脚本完成后再次隐藏它们。

在此开头：

Sheets(sDumpSheet).Visible = xlSheetVisible

最后是这个：

Sheets(sDumpSheet).Visible = xlSheetHidden

还知道您可以通过将值更改为xlSheetVeryHidden 来隐藏工作表，使其无法从 Excel 中看到，这样您只能从 VBA 代码或 VBA 窗口中取消隐藏它...