利用VBA操作Excel名称管理器

原创最新推荐文章于 2026-10-04 14:46:32 发布 1.2k 阅读 AI写同款

收录于

VBA代码

VBAMatrix

码龄2年墨衍会员 · AI 创作全网分发

363粉丝82篇原创

关注

Excel 2010 VBA 入门 135 利用窗体制作登录界面题使用窗体制作登录界面，实现当打开Excel时，隐藏工作簿，当登录完成后显示工作簿。码登录机制是将用户输入的用户名和密码与正确的用户名和密码进行比较，若相等，则表示登录成功，反之登录失败。本例的实现需要创建一个登录窗口允许用户输入用户名和密码，当单击“登录”按钮后立即进行校验。在工作簿的Open事件中添加显示窗体的代码，并将Excel程序对象的Visible属性设置为False，以隐藏Excel程序，当窗体关闭时，再将该属性设置为True。步骤1 将Sheet2作为存储用户名... 阅读详情

AI摘要

博客介绍了Excel名称管理器可更好管理与使用工作表数据，建立名称后可在其他工作表引用，简化公式、提高可读性。还提到利用VBA将Excel附注表格写入Word常使用名称管理器，介绍了使用Names、Name对象属性与方法操作名称管理器的基础知识，如新增、删除名称等。

名称管理器，让我们更好地管理与使用Excel的工作表数据。一旦对单元格区域建立名称，我们可以在其他工作表上引用该名称，代替引用单元格区域，从而实现简化公式、提高公式可读性的效果。

如下图所示，我们选中A2:C6单元格区域，并在左上角的名称框输入fz_hbzj，这样就新建了一个名称。

实践中，利用VBA将Excel的所有附注表格写入Word里，经常使用到名称管理器。因此，学习利用VBA操作Excel名称管理器的基础知识，是很有必要的，主要使用到Names对象、Name对象的属性与方法。

1.新增名称

Sub 新增名称()
    Dim nm As Name
    Set nm = ActiveWorkbook.Names.Add(Name:="fz_hbzj", RefersToR1C1:="=Sheet1!R2C1:R6C3")
    nm.Visible = True
End Sub

2.删除工作簿的所有名称

Sub 删除工作簿的所有名称()
    Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        nm.Delete
    Next
End Sub

3.批量获取名称的相关属性

Sub 批量获取名称的相关属性()
    Dim nm As Name
    For Each nm In ActiveWorkbook.Names
        '获取名称
        Debug.Print (nm.Name)
        '获取批注文本
        Debug.Print (nm.Comment)
        '获取名称是否可见
        Debug.Print (nm.Visible)
    Next
End Sub

标签

#excel