首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

小弟我同时选中了B、C工作表;A、D工作表没有选中,怎么用vba将选中的工作表放到数组中

2013-06-26 
我同时选中了B、C工作表;A、D工作表没有选中,如何用vba将选中的工作表放到数组中?如图,我同时选中了B、C工作

我同时选中了B、C工作表;A、D工作表没有选中,如何用vba将选中的工作表放到数组中?
如图,我同时选中了B、C工作表;A、D工作表没有选中,如何用vba将选中的工作表放到数组中?
小弟我同时选中了B、C工作表;A、D工作表没有选中,怎么用vba将选中的工作表放到数组中

我的目的是判断工作表是否被选中,选中就放入数组里,不是简单的判断工作表名称是B、C就放入数组或将第2、3个工作表放入数组。             或者告诉我如何判断工作表被选中了也行。。。。请高手帮忙。。。。 VBA 数组 职场
[解决办法]

    Dim i As Long
    
    For i = 1 To ActiveWindow.SelectedSheets.Count
        Debug.Print ActiveWindow.SelectedSheets(i).Name
    Next

[解决办法]

    Dim i As Long
    Dim strArr() As String
    Redim strArr(1 To ActiveWindow.SelectedSheets.Count)
    For i = 1 To ActiveWindow.SelectedSheets.Count
        strArr(i) = ActiveWindow.SelectedSheets(i).Name
    Next

热点排行