[求助]如何取出同一工作簿中其它表的名称？

harold_han · 发表于 2006-12-7 10:57

XMhBmh3L.rar (1.36 KB, 下载次数: 10)

现在需要在sheet1中把其它各表的名称取过来，放在指定的位置，而且随着其它表名称的改变，sheet1中的相应名称也随之一起改变。期等着您的答案，谢谢！！

feiger32911 · 发表于 2006-12-7 11:14

写入名称为a的宏，执行即可

Sub a()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub

daley · 发表于 2006-12-7 11:18

Private Sub CommandButton1_Click()
Dim X As String
X = Sheets("计算机").Name
Range("A2").Value = X
End Sub

daley · 发表于 2006-12-7 11:23

二楼的代码符合楼主的原意,我的代码只是取"计算机"的工作簿名。

harold_han · 发表于 2006-12-7 11:26

多谢两位的回复。我想知道通过函数是否可以实现呢？

feiger32911 · 发表于 2006-12-7 11:49

没见过这样的函数，应该难以实现，等待高手确认。

andysky · 发表于 2006-12-7 11:53

QUOTE:

以下是引用feiger32911在2006-12-7 11:49:47的发言：
没见过这样的函数，应该难以实现，等待高手确认。

怎么会没有？本论坛两年前就有了。

feiger32911 · 发表于 2006-12-7 12:00

烦楼上的高手给个链接

willin2000 · 发表于 2006-12-7 12:11

lrf2003 · 发表于 2006-12-7 12:13

SoYQ7suw.rar (1.46 KB, 下载次数: 19)
用宏表函数

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

[已解决] [求助]如何取出同一工作簿中其它表的名称？