Question

如何`在一张excel工作表中显示出工作表的名字?

如在A1中显示sheet1的名字（如果sheet1的名字是“工资”则显示“工资”）,A2中示sheet2的名字。谢谢大家……
最好不要用宏，谢谢

Answer 1

点菜单的数据，编辑链接（几乎就在”数据“的正下方）。

举例：

　在使用EXCEL时，经常不经意按了某个选项，将编辑栏、状态栏、滚动条甚至工作表标签隐藏掉了，那怎样才能将它们显示出来呢？方法是：

　　点击菜单“工具”--选择“选项”，在对话窗口中，选择“视图”，在需要显示的工具前打上勾，需要隐藏的工具前去掉勾，即可轻松实现。

　名称框和编辑栏位于表格的同一行，因此要显示出名称框，即在“编辑栏”前打上勾，隐藏了“编辑栏”，”名称框“也将同时隐藏。

Answer 2

直接在单元格中输入:=sheet1!a1,或者在“=”后面用鼠标去点击每个工作表的A1单元格就行了 。
如果你不了解VBA，你可以在新建的表格的A列中依次输入好你的文件名，即A1，A2，A3……，然后在B1中输入公式：=INDIRECT(CONCATENATE(A1,"!a1"))，把公式下拉即可

Answer 3

不用宏也可以，但要经过一些名称设置，步骤如下：

第一步：
插入菜单→名称→定义
在当前工作簿中的名称输入： 工作表
引用位置输入公式：=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())

第二步：
插入菜单→名称→定义
在当前工作簿中的名称输入： 工作表名称
引用位置输入公式：=LOOKUP(ROW(INDIRECT("1:"&COLUMNS(工作表))),MATCH(工作表,工作表,),工作表)

第三步：

选取A1：A3
按F2
插入菜单→名称→粘贴
在粘贴名称中选择 工作表名称，然后确定
按住Ctrl+shift+Enter（数组公式）
即可得到你的答案

提示：引用位置输入公式时先清空里面的内容后，再把我提供的公式粘贴下去即可！
使用上述方法后，你修改工作表的名称，单元格里的名称也会跟着变化！

Answer 4

Public Sub 返回目录()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
On Error GoTo ErrorHandler ' 打开错误处理程序。
Worksheets("目录").Activate
Worksheets("目录").Range("a1").Select
Exit Sub

ErrorHandler:
Msg = "在 " & Worksheets.Parent.Name & " 中没有目录表 !" ' 定义信息。
Msg = Msg & vbLf & "是否创建目录表 ?" ' 定义信息。
Style = vbYesNo + vbInformation + vbDefaultButton1 + vbApplicationModal ' 定义按钮。
Title = Worksheets.Parent.Name ' 定义标题。

Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下"OK"。
MyString = "Yes" ' 完成某操作。
目录
Else
MyString = "No" ' 完成某操作。
End If
End Sub

Public Sub 目录() '生成工作表目录，生成的目录工作表名称为"目录"，生成前请先确认是否已有同名的工作表
Dim ColStart As Long, RowStart As Long
Dim ws As Worksheet, xlSheet As Worksheet
Dim SheetName As String, SheetExists As Boolean
Dim Msg, Style, Title, Response, MyString

SheetName = "目录"
For Each ws In Worksheets
If ws.Name = SheetName Then
SheetExists = True
Exit For
End If
Next ws

If SheetExists Then
Msg = "目录工作表已存在，是否重生成目录工作表?" ' 定义信息。
Style = vbYesNo + vbInformation + vbDefaultButton1 + vbApplicationModal ' 定义按钮。
Title = Worksheets.Parent.Name ' 定义标题。
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' 用户按下"OK"。
MyString = "Yes"
Set xlSheet = Worksheets(SheetName)
xlSheet.UsedRange.Clear
Else
MyString = "No"
Exit Sub
End If
Else
Set xlSheet = Worksheets.Add(Before:=Worksheets(1), Count:=1, Type:=xlWorksheet)
xlSheet.Name = SheetName
End If

If SheetExists Then
Else
End If

xlSheet.Move Before:=Worksheets(1)
xlSheet.Activate
xlSheet.Cells(1, 1).Value = "目录"

RowStart = 2
ColStart = 1
For Each ws In Worksheets
If ws.Name <> SheetName Then
With xlSheet
.Hyperlinks.Add Anchor:=.Cells(RowStart, ColStart), _
Address:="", _
SubAddress:="'" & ws.Name & "'" & "!A1", _
ScreenTip:=ws.Name, _
TextToDisplay:=ws.Name
RowStart = RowStart + 1
End With
End If
Next ws
End Sub