室内设计培训
平面设计培训
部落窝教育
网站首页 >> Excel教程 >> 文章内容

excel vba获(提)取工作表名称的两种方法

[日期:2012-03-24]   来源:IT部落窝  作者:IT部落窝   阅读:21066[字体: ]
内容提要:文章介绍excel提取工作表名称的三种方法,分别使用宏表函数、自定义函数,以及VBA获取工作表名称。

第一,excel提取工作表名称:宏表函数

  excel提取工作表名称的方法,在以前的文章:Excel中工作表间的关联链接方法及实例(http://www.ittribalwo.com/show.asp?id=834)曾经介绍过,使用宏表函数来提取工作表名称,并自动添加超链接。

第二,vba自定义函数获取工作表名称

  下面再介绍一个vba获取工作表名称的自定义函数。使用方法如下,打开需要excel工作表,按下ALT+F11,打开VBE编辑器,单击插入——模块,复制下面的代码,然后关闭VBE。回到excel工作表,在空白单元格输入公式:=gname(ROW(A1)),下拉复制,知道出现0错误为止,即可以实现用vba获取工作表名称。

Function gname(x As Integer)
If x = 0 Then
gname = ActiveSheet.Name

ElseIf x > 0 And x <= Sheets.Count Then
gname = Sheets(x).Name
ElseIf x > Sheets.Count Then
MsgBox "超出范围"
End If
Application.Volatile
End Function

第三,vba获取工作表名称

  同样,在excel中,按下ALT+F11,打开VBE编辑器,插入——模块,复制下面的代码,然后按F5键或者单击工具栏绿色的“运行”按钮即可实现用vba获取工作表名称。获取的工作表名称将存放在当前工作表的A列。

Sub vba获取工作表名称()
   For x = 1 To Sheets.Count
       Cells(x, 1) = Sheets(x).Name
   Next x
 End Sub

vba获取工作表名称

IT部落窝PS,CDR,213班 分享到: QQ空间 新浪微博 腾讯微博 人人网
photoshop教程
Photoshop教程
平面设计教程
Photoshop教程