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

　暱稱: PKKO

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-7-9 16:30 | 只看該作者

我知道如何選取工作表
也知道如何知道哪一個工作表在作用中

但不知道,如何判斷我"同時"選取了幾個工作表

因為當同時選取了多個工作表之後,會無法建立資料驗證功能(下拉選單)
想要藉由判斷而避開此問題!

PKKO

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

2^#

發表於 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