返回列表下一主題上一主題發帖

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

imzues

中學生 Rank: 2

帖子: 72
主題: 24
精華: 0
積分: 172
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-7-16
最後登錄: 2023-7-6

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-1-16 09:09 | 只看該作者

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

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

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

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

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

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

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

  少看=只看不做也枉然

TOP

Baracuda