[已解决]sheet名称的问题

云龙

上图中sheet1 (a)中a为工作表名称
sheet（1）为工作表序号或INDEX
请问：
sheet1是什么名称，如何获得活动单元格的sheet号？

最佳答案

月排行榜 / 总排行榜

爱疯

2011-8-29 15:06

1. 
   
2. Sub test2()
   
3.     Dim sh As Worksheet
   
4.     For Each sh In Worksheets
   
5.         If sh.CodeName = "Sheet1" Then
   
6.             MsgBox sh.Name
   
7.             End
   
8.         End If
   
9.     Next sh
   
10. End Sub
    

复制代码

(, 下载次数: 7)

上传

点击文件名下载附件
是这个意思吗

跳转到最佳答案楼层

爱疯

MsgBox ActiveCell.Parent.Name

zh1979

高！学习了

云龙

爱疯 发表于 2011-8-29 10:32
MsgBox ActiveCell.Parent.Name

谢谢您的解答
可他的结果和MsgBox ActiveSheet.Name一样
我需要的结果不是名称a
我想得到sheet1

爱疯

云龙 发表于 2011-8-29 10:42
谢谢您的解答
可他的结果和MsgBox ActiveSheet.Name一样
我需要的结果不是名称a

1. Dim sh As Worksheet
   
2. Set sh = ActiveCell.Parent

复制代码

是这样吗

爱疯

也可不用变量sh（来表示），直接用ActiveCell.Parent，完成所需功能

云龙

爱疯 发表于 2011-8-29 10:48
也可不用变量sh（来表示），直接用ActiveCell.Parent，完成所需功能

请再帮我看看

爱疯

云龙 发表于 2011-8-29 11:01
请再帮我看看

msgbox要求参数Prompt必须为字符串，而ActiveCell.Parent是worksheet对象，所以出错。
只有看了你的代码其他部分，理解了意图，才好改。

adders

回复 云龙 的帖子

Public Function Sh_No(Name As String) As Long
    On Error Resume Next
    Sh_No = ActiveWorkbook.Sheets(Name).Index
End Function

然后在工作表中,输入任意工作表名称得到表号,如：　
=Sh_No("a") 得到的结果是1

云龙

回复 爱疯 的帖子

我就是想得到“sheet1”这个字符串