返回列表 上一主題 發帖

[發問] 計算出分頁(sheets)的個量

[發問] 計算出分頁(sheets)的個量

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

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

本帖最後由 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

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

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

TOP

是分享貼,還是求助貼子

Sub ZZ5151353()
MsgBox Sheets.Count
End Sub

自定義方式

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

任意儲存格 公式 =number
300 字節以內
不支持自定義 Discuz! 代碼

TOP

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

TOP

        靜思自在 : 【為善競爭】人生要為善競爭,分秒必爭。
返回列表 上一主題