如下图所示
在工作簿1中选中了4个工作表。
如果要用vba判断选中的是哪些工作表,可以使用Window对象的SelectedSheets属性。
代码如下:
Sub QQ1722187970() Dim oWK As Worksheet '遍历当前选中的所有工作表 For Each oWK In Excel.ThisWorkbook.Windows(1).SelectedSheets Debug.Print oWK.Name Next End Sub
关注和分享Excel以及Office系列软件的方方面面,致力于提高中国的办公软件的使用水平
如下图所示
在工作簿1中选中了4个工作表。
如果要用vba判断选中的是哪些工作表,可以使用Window对象的SelectedSheets属性。
代码如下:
Sub QQ1722187970() Dim oWK As Worksheet '遍历当前选中的所有工作表 For Each oWK In Excel.ThisWorkbook.Windows(1).SelectedSheets Debug.Print oWK.Name Next End Sub
发表评论