1

我有一个包含 6 个工作表的工作簿。

想象一下“Alpha”、“Beta”、“Gama”、“Delta”、“Epsilon”、“Zeta”。

按此顺序，它们的索引为 Alpha= 1 - Beta = 2... Zeta = 6

但是，如果我将 Alpha 移动到 Beta 之后的位置，索引号也会改变，所以我不应该通过它们的索引号来引用 WS。现在，如果用户更改工作表名称，则代码（如果通过工作表名称设置 WS）也将失败。唯一不能由用户“正常”更改的是工作表 CODE.NAME。

再次......代号“Sheet1” - 名称“Alpha” - 索引“1”

代号“Sheet2” - 名称“Beta” - 索引“2”

代号“Sheet3” - 名称“Gama” - 索引“3” ...等等。

即使我更改了工作表的位置（索引）或工作表的名称，如果我通过它们的 CODE.NAME 来引用它们，它们位于什么位置或它们的名称是什么都没关系。

所以，我想要的只是拿起工作表的名称，使用它的 CODE.NAME 到达那里......像这样的东西：

Dim WB1 as Workbook
Dim WS1 as Worksheet
Dim WSNAME as String
Set WB1 = ThisWorkbook
Set WS1 = (here I need code to pick the "Sheet1" worksheet to variable WS1) (*)

WSNAME = WS1.Name

注意：最终结果应存储在 WS1 中工作表的名称（“ALPHA”）。如果用户更改了该名称，它应该仍然可以工作，存储新名称。我必须首先通过它的 CODE.NAME （不可更改）获取工作表，然后我才能检查它的名称。

（*） 我试过了...

Set WS1 = WB1.Sheet1
Set WS1 = WB1.Sheet1.CodeName
Set WS1 = WB1.Sheets(Sheet1)
Set WS1 = WB1.Sheets("Sheet1").CodeName

没有任何效果...

但是如果我使用

Set WS1 = WB1.Sheets("ALPHA").CodeName

它可以工作，但是我遇到了同样的问题......如果用户将“ALPHA”更改为“ALFA”，一切都会停止工作......

任何帮助将不胜感激。提前致谢！

--- 编辑添加图片 -------------------------------------

我的 Excel 是葡萄牙语，所以不是“Sheet1”、“Sheet2”……它创建的工作表为“Planilha1”、“Planilha2”、“Planilha3”……这些“Planilhas”以用户想要的任何名称命名...

看看这张图片： 在此处输入图像描述

突出显示的工作表的 CODE.NAME 是“Planilha5”，名称是“心脏变量”。我需要在表中（在另一个工作表中）找到“心脏变量”，以获取该表中的行号，该表中存储了该工作表的所有引用。如果我在工作表名称所在的表格列中进行简单查找，然后搜索“心脏变量”，它将工作 A-OK。

在此处输入图像描述

看，我在第 15 行找到了我正在寻找的东西（“心脏变量”）！

在此处输入图像描述

但是，如果用户更改工作表名称...

回到第一张图。看右边的代码。（HEALTHY 以前 DIM 为 ThisWorkbook）有一个条目说 ESTAABA = "Cardiac variables"，然后我将 WS3 设置为 ESTAABA 的内容（我本可以直接完成...）。但我不想在代码中保留工作表的名称，因为如果用户更改 TAB 名称（如上例所示从“心脏变量”更改为“心脏 VAR”），它将不再起作用。

但是，如果我在上一个表中查找“Planilha5”出现的位置，一切都会好起来的，无论用户想要在工作表中使用的名称是什么。

问题是我无法将 WS3 设置为 Planilha5 工作表。如果我说 Set WS3 = HEALTHY.Sheets("Cardiac variables") 它可以工作。如果我说 Set WS3 = HEALTHY.Planilha5, or = Planilha5, or = Sheets(Planilha5) 它不起作用。

在简历中，我不想在我的代码中的任何地方使用“心脏变量”（或工作表的其他名称 - 名称可以更改......）。

我想将 WS3 设置为 Planilha5 工作表。忘记参考​​“心脏变量”，忘记工作表索引号，因为用户可以更改名称，他也可以更改工作表的位置（通过移动或添加/删除以前的工作表）。

谢谢你的耐心！

4

1 回答 1

3

我不确定我是否正确地回答了你的问题。但根据我的理解，这就是你想要的。

将此函数添加到Module

Function GetSheetByCodeName(ByVal CodeName As String) As Worksheet
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.CodeName = CodeName Then
            Set GetSheetByCodeName = ws
            Exit Function
        End If
    Next
End Function

然后，您可以在需要参考任何工作表时轻松调用此函数。

例如

'-- test function
Sub Test()
    Dim ws As Worksheet
    Set ws = GetSheetByCodeName("Sheet1")
    MsgBox ws.CodeName & " -----  " & ws.Name
End Sub

这就是你所看到的......

按代号工作

于 2020-09-18T19:31:45.617 回答