標題: [發問] 計算出分頁(sheets)的個量 [打印本頁]

---

作者: imzues    時間: 2013-1-16 09:09     標題: 計算出分頁(sheets)的個量

本帖最後由 Hsieh 於 2013-1-16 17:32 編輯

請教一下
有沒有什麼方法是可以快速的計算出分頁(sheets)的個量

---

作者: mark15jill    時間: 2013-1-16 09:15

本帖最後由 mark15jill 於 2013-1-16 09:18 編輯

回復 1# imzues

標題分類弄錯...
個量 是要特定目標還是總數


Private Sub CommandButton1_Click()

Dim mysheet As Worksheet
Dim i As Integer

i = 0

For Each mysheet In Worksheets

i = i + 1

Next

MsgBox "工作表個數共 " & i & " 個。"


End Sub

---

作者: Baracuda    時間: 2013-1-16 09:46

回復 1# imzues
VBA 中用 Sheets.Count 即可

---

作者: zz5151353    時間: 2013-1-16 10:23

是分享貼,還是求助貼子

Sub ZZ5151353()
MsgBox Sheets.Count
End Sub

自定義方式

定義名稱 number 公式 =GET.WORKBOOK(4)

任意儲存格 公式 =number

---

作者: imzues    時間: 2013-1-16 10:45

抱歉.....是求助帖.....
感謝大家的回復,受益良多

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)