您的位置: 首页 > EXCEL技巧 > Excel函数 >

用自定义函数获取工作表名称

时间:2013-12-13 整理:docExcel.net

有时需要在工作表中引用同一工作簿中其他工作表名称,当工作表数量较多时,逐一手工输入有些繁琐,这时可以添加一个自定义函数来快速获取工作表名称,方法如下:

按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中输入下列代码:

Function GetSheetName(idx As Integer, Optional relative_position As Boolean) As String
Application.Volatile
GetSheetName = Sheets(IIf(relative_position, ActiveSheet.index - -idx, idx)).Name
End Function

上述代码定义了一个自定义函数GetSheetName,有两个参数:“idx”为工作表的索引号,“relative_position ”为逻辑型可选参数。“relative_position ”参数为“0”或省略时表示按工作表的绝对位置来获取工作表名称,其取值范围为“1,2,3,……”,当“idx”取这些值时依次获取工作簿中从左到右的第1,2,3,……个工作表的名称;该参数为真时按相对位置来获取工作表名称,即“idx”参数为“0”时取得当前工作表名称,为“-1”时取得其左侧第一个工作表名称,为“1”时取得其右侧第一个工作表名称。

示例:

取得第一个工作表的名称:

=getsheetname(ROW(A1))

向下拖到填充柄填充公式即可依次取得各工作表名称。

在G11单元格取得当前工作表的名称:

=getsheetname(ROW()-11,1)

向上填充公式可获取其左侧工作表名称,向下填充公式可获取其右侧工作表名称。

用自定义函数获取某月中指定日期的数量 问题:用自定义函数获取某月中指定日期的数量
回答:...例如,2009年1月中有几个星期一?用Excel内置的日期时间函数无法解决这个问题。我们可以用自定义函数的方法来解决。按Alt+F11打开VBA编辑器,单击菜单“插入→模块”,在右侧的代码窗口中输入自定义函数: Function WeekDaysInMonth...
用自定义函数获取单元格注释 问题:用自定义函数获取单元格注释
回答:我们可以用一个自定义函数来提取单元格注释。方法如下: 1.按Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”,在右边的代码窗口中输入代码: Function GetCommentText(rCommentCell As Range) Dim strGotIt As String   On Error Resume Next &...
自定义函数获取多个单元格中相同的字符 问题:自定义函数获取多个单元格中相同的字符
回答:...区域内各单元格字符串中的相同字符,可用下面的自定义函数。例如要在D1单元格获取A1:C1区域各单元格中相同的字符,如图: 按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中输入自定义函数: Function GetDupC...
用自定义函数获取合并单元格内的行数 问题:用自定义函数获取合并单元格内的行数
回答:...等,因而有必要统计合并单元格内的行数。 用自定义函数可以方便地得到合并单元格内的行数或列数,方法如下。 按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中输入下列代码: Function MergeRowsCount(Rng As R...
用VBA从已关闭的工作簿中获取数据 问题:用VBA从已关闭的工作簿中获取数据
回答:...取数据,可以用下面的方法来实现: 1.定义一个自定义函数 按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在右侧的代码窗口中输入下列自定义函数,: Private Function GetDataFromClosedWorkbook(path, file, sheet, ref) 从已关闭的工...
获取单元格所在列的名称 问题:获取单元格所在列的名称
回答:...列的名称,如A9单元格的列名“A”,可以用公式和自定义函数的方法来实现。 1.用公式获取列名 在任意单元格中输入公式: =LEFT(ADDRESS(ROW(),COLUMN(),4),LEN(ADDRESS(ROW(),COLUMN(),4))-LEN(ROW())) 公式说明:先用ROW和COLUMN函数返回公式所在...
相关知识:

下面内容对您也许有用

      话题:Excel中自定义函数,如何获取调用该自定义函数的单元格所在的
      问:如题,Excel中自定义函数,如何获取调用该自定义函数的单元格所在的工作簿和名
      答:Sub aa()a=ActiveCell.Parent.Parent.Name '工作簿名称 b=ActiveCell.Parent.Name '工作表名称 c=ActiveCell.Address '单元格地址 MsgBox a&b&c End Sub 追问 我 如何在Excel工作表中引用自定义 Excel中Countif函数中引用的范围
      话题:如何在EXCEL单元格中使用自定义函数?知道
      答:比如说,你要做一个简单的函数,把输入的数字乘以100,然后输出。Excel打开,alt+F11,在左侧右键,插入模块,输入下面代码:Function Multiply(a As Long) Excel用自定义函数倒读单元格 excel如何用自定义函数给单元格
      话题:如何在自定义VBA函数中调用工作表函数?知道
      问:代码如下:Sub myAver()Range("DA1")=Application.WorksheetFunction.Average(
      答:改为 Range("DA1")=Application.WorksheetFunction.Average([C1:CZ1])并保证C1:CZ1中至少有一个单元格中有值。 怎样在VBA指令中调用Excel函数 excel vba 自定义函数调用问题
      话题:请问EXCEL中,在不使用自定义函数的情况下,能不能同时对多张
      首页|新闻 网页 贴吧 知道 MP3 图片 视频 地图 百科 文库 知道电脑/网络软件办公软件 请问EXCEL中,在不使用自定义函数的情况下,能不能同时对多张工作表进行
      话题:Excel自定义函数参数处理问题。知道
      问:如:定义函数Fun,希望其像sum(A1:A5)一样接收参数,请问在vba中,参数如何处理
      答:希望下面的程序对你有用!Range("A5:H19").Select Dim a a=Selection.Rows Dim StartRow As Long Dim StartColumn As Long Dim EndRow As Long Dim EndColumn As EXCEL自定义函数 怎么在excel里自定义我所需要的
      话题:怎么在excel里自定义我所需要的函数?知道
      答:用户自定义函数-如果要在公式或计算中使用特别复杂的计算,而工作表函数又无法满足需要,则需要创建用户自定义函数。用户自定义函数,可以通过使用 Visual Basic Excel中怎样自定义函数 怎么在excel里自定义我所需要的
      话题:PHP 求个获取下拉选项的自定义函数
      问:数据库里有个表test,表里的字段是id,name 现在我要个自定义函数diy diy($
      答:在其他页面使用 diy("表名");即可 diy($tablename){$sql="SELECT name FROM$tablename;name=mysql_query($sql);i=1;echo";while($result=mysql_fetch_array($ PHP 问题二:trim()函数/获取 关于php自定义函数
      话题:excel自定义函数的调用问题
      问:我通过VBA制作了一个用户自定义函数,唯一一个参数是一个单元格的应用,调用函数
      答:在你的过程开头加上这句代码:Application.Volatile 例:function AAA(r as range)as string Application.Volatile 你的代码 end function 提问者评价 谢谢! 如何在Excel工作表中引用自定义 EXCEL如何自定义函数并进行调用
      话题:用EXCEL制作九九乘法表,可以用自定义函数
      问:如何自定义函数,生成九九乘法表?
      答:一个宏函数 Function d99cfb()For j=1 To 9 For i=1 To j Cells(j,i)=j&"×"&i&"="&j*i Next i Next j End Function Excel中怎样自定义函数 请问用excel表格制作九九乘法表
      话题:VBA中获取行列号后,使用自定义函数提示重复引用
      问:我在编写一个自定义函数。目的就是在“分析区”这个表当中某个单元格里调用这个
      答:定义错误了吧。你想干嘛,说来给哥听听,看看能不能帮你。没有你这么定义东西的吧。晕菜菜。 vba 调用自定义函数 VBA自定义函数如何执行
最新评论