[已解决]怎样得到所有被选中工作表的工作表名

爱疯

按住CTRL键后，选中多个工作表（比如sheet1和sheet2），

请问怎样得到所有被选中工作表的工作表名？

即结果显示：Sheet1,Sheet2

谢谢！

最佳答案

月排行榜 / 总排行榜

雨狐

2009-12-8 21:06

[em09]

Sub a()
Dim n$, i%, sh As Worksheet
     For Each sh In ActiveWindow.SelectedSheets
        n = n & "," & sh.Name
     Next
     MsgBox Mid(n, 2, Len(n))
End Sub

[此贴子已经被作者于2009-12-8 21:10:58编辑过]

跳转到最佳答案楼层

雨狐

[em09]

Sub a()
Dim n$, i%, sh As Worksheet
     For Each sh In ActiveWindow.SelectedSheets
        n = n & "," & sh.Name
     Next
     MsgBox Mid(n, 2, Len(n))
End Sub

[此贴子已经被作者于2009-12-8 21:10:58编辑过]

爱疯

谢谢雨狐版主！

因为看着录制的宏，里面明明就是要的东西，总觉着有个什么方便办法得到它 ... 却想不出。

学习ActiveWindow.SelectedSheets。

很多时候，我们并不知道有这样或那样的表达方式，这时我们该怎样去试图查找呀。以此例来说，你是怎样找到ActiveWindow.SelectedSheets 的呀？

[em04]

[此贴子已经被作者于2009-12-8 21:18:52编辑过]

雨狐

QUOTE:

以下是引用爱疯在2009-12-8 21:16:00的发言：

谢谢雨狐版主！

因为看着录制的宏，里面明明就是要的东西，总觉着有个什么方便办法得到它 ... 却想不出。

学习ActiveWindow.SelectedSheets。

很多时候，我们并不知道有这样或那样的表达方式，这时我们该怎样去试图查找呀。以此例来说，你是怎样找到ActiveWindow.SelectedSheets 的呀？

[em04]

汗一个，爱疯兄，我也不知道就录了一个，工作表组就是Select，就试了一下，前一个循环不太对，改了一下遍历

爱疯

我才汗了，我也录了的：

Sub Macro2()
'
' Macro2 Macro
'

'
    Sheets(Array("Sheet1", "Sheet2")).Select
    Sheets("Sheet1").Activate
End Sub

我不知道要在ActiveWindow里面，

更不知道在ActiveWindow.SelectedSheets里面。

我们同样不知道，同样都录了宏。为什么我就不知道呀[em06]

xdwy81129

QUOTE:

以下是引用爱疯在2009-12-8 21:30:00的发言：

我才汗了，我也录了的：

Sub Macro2()
'
' Macro2 Macro
'

'
    Sheets(Array("Sheet1", "Sheet2")).Select
    Sheets("Sheet1").Activate
End Sub

我不知道要在ActiveWindow里面，

更不知道在ActiveWindow.SelectedSheets里面。

我们同样不知道，同样都录了宏。为什么我就不知道呀[em06]

能知道的，都是有资格做斑竹的

爱疯

看着里面的Array("Sheet1", "Sheet2")，

总觉着，可以伸手就拿来用，

不知道，行不行[em04]

zsd5237

学习[em02][em02]