請問如何判定選取了幾個工作表? - Excel程式區

[發問] 請問如何判定選取了幾個工作表?

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2015-7-10 06:55 | 顯示全部帖子

回復 1# PKKO
試試看

Option Explicit
Sub Ex()
Dim Sh As Worksheet, S As String
With ActiveWorkbook.Windows(1)
'Windows 屬性
'如果是 Application 物件，則會傳回 Windows 集合，此集合代表所有活頁簿中的所有視窗。
'如果是 Workbook 物件，則傳回 Windows 集合，此集合代表指定活頁簿中的所有視窗。唯讀 Windows 物件
Sheets("Sheet2").Select
'Sheets(Array("Sheet1", "Sheet2")).Select
'Sheets(Array("Sheet3","Sheet2", "Sheet1")).Select
For Each Sh In .SelectedSheets
S = S & vbLf & Sh.Name
Next
MsgBox "選擇 " & .SelectedSheets.Count & " 工作表" & S & vbLf & vbLf & .ActiveSheet.Name & " 作用中 "
'SelectedSheets 屬性
'請參閱套用至範例特定傳回 Sheets 集合，此集合代表指定視窗中所有選定的工作表。唯讀。
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 得理要饒人，理直要氣和。