麻辣家族討論版版 - Powered by Discuz! Board

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

複製代碼