如何在Microsoft Excel中使用VBA获取工作表名称

如果您想找到一种方法可以让您获得工作表的所有可见名称,即未隐藏的名称。

在本文中,我们将学习如何使用VBA代码仅获取可见工作表的名称。

问题):我在一个文件中有多个工作表,并且我隐藏了不想让其他人看到的工作表;我想要一个可以给我所有可见工作表名称的代码。

让我们考虑我们有5张纸,并且我们有意隐藏了一张特定纸。

要获得可见工作表的名称,我们需要执行以下步骤:

单击“开发人员”选项卡。从“代码”组中,选择“ Visual Basic”

img1

将以下代码复制到标准模块中

Sub VisibleSheets()

Dim i作为整数,j作为整数:j = 1

Cells(1,1).CurrentRegion.Cells.Clear

对于i = 1到Sheets.Count

如果Sheets(i).Visible = -1,则

单元格(j,1)=表格(i)。名称

j = j + 1

如果

结束

下一个

结束子

===

img2

  • 第一次运行代码时,将在A列中获得当前工作表中所有工作表的名称

img3

| *如果隐藏1月工作表,则将有以下工作表名称列表

img4

这样,我们可以使用vba代码获取所有可见工作表的名称。

image 4