VBA基础每日一练：提取工作表名称（07-3-23)已总结

兰色幻想 · 发表于 2007-3-23 01:35

要求：1、编写一个自定义函数getshname，提取公式单元格所在工作表名称           2、\编写一个自定义函数getwhname，提取公式单元格所在工作簿名称           3、要求把以上两个自定义函数合并一个函数Getname。设置一个参数来控制是求工作表名称还是工作簿名称。            4、代码添加注释。21楼已添加总结

[此贴子已经被作者于2007-3-24 1:50:43编辑过]

苦菜花 · 发表于 2007-3-23 08:28

上交作业

苦菜花 · 发表于 2007-3-23 08:35

Function getshname() As String  '自定义一个函数，名称为getshname getshname = ActiveSheet.Name    '取得活动工作表的属性name End Function Function getwhname() As String  '自定义一个函数，名称为getwhname getwhname = ThisWorkbook.Name  '取得当前工作簿的属性name End Function Function getname(xx As String) As String    '自定义一个函数，名为getname，变量为xx If xx = "sh" Then getname = ActiveSheet.Name  '条件判断，如果变量值为字符sh，则函数取得表名 If xx = "wb" Then getname = ThisWorkbook.Name  '条件判断，如果变量值为字符wb，则函数取得当前工作簿名 End Function

苦菜花 · 发表于 2007-3-23 08:38

哈哈，今天不知道能否发财　　[em04]三个自定义函数的具体应用：参见第一个工作表的A列

兰色幻想 · 发表于 2007-3-23 08:39

菜花，你的代码有两个问题：    1、当你更改工作表名称或工作簿名称时，再看看公式的结果。    2、等你改善了第一个功能后，第二个错误就会随之出现

兰色幻想 · 发表于 2007-3-23 08:41

这道题看起来简单，但要小心两个易错的小陷井。

苦菜花 · 发表于 2007-3-23 08:46

再来一个自定义函数：《苦菜花》函数Function 苦菜花(ByVal xx As Integer) As String    '自定义一个函数，名为《苦菜花》，变量为xx If xx = 1 Then 苦菜花 = ActiveSheet.Name  '条件判断，如果变量值为1，则函数取得表名 If xx = 2 Then 苦菜花 = ThisWorkbook.Name  '条件判断，如果变量值为2，则函数取得当前工作簿名 If xx = 3 Then 苦菜花 = ThisWorkbook.FullName  '条件判断，如果变量值为3，则函数取得当前工作簿路径和文件名End Function

苦菜花 · 发表于 2007-3-23 08:49

原来设了陷井呀更改表名，还没发现错误再试下改簿名

苦菜花 · 发表于 2007-3-23 08:53

想起来了，可能跟易失性函数有关[em04]

戏子 · 发表于 2007-3-23 08:59

Function getshname() getshname = ActiveSheet.Name '返回当前工作表名称 End Function Function getwhname() getwhname = ActiveWorkbook.Name '返回当前工作簿名称 End Function Function Getname(RG As Boolean) If RG = False Then     Getname = ActiveSheet.Name '当括号内值为FALSE或0返回当前工作表名称 ElseIf RG = True Then     Getname = ActiveWorkbook.Name '当括号内值为TRUE或1返回当前工作表名称 End If End Function

		自动登录	找回密码
密码			注册

[VBA] VBA基础每日一练：提取工作表名称（07-3-23)已总结