構文
Worksheet.Count
Count・・・ワークシート数のカウントを取得
Worksheets コレクションの Count プロパティでワークシートの数を取得します。
Count プロパティは参照のみ可能で、値の書き込みはできません。
この Count プロパティはブック上の最後尾にあるワークシートを選択したいときによく使われます。
「ワークシート数=Worksheetsコレクションの最終インデックス値」になる訳です。
Worksheet.Countプロパティのサンプルコード
Public Sub sample() '■ワークシート数を取得して変数に代入して、メッセージボックスで表示する Dim wsCount As Long wsCount = Worksheets.Count MsgBox "現在のワークシート数は " & wsCount & " です。" '■最後尾にあるワークシートをアクティブにする Worksheets(Worksheets.Count).Activate '■全てのワークシートの非表示状態を解除する For wsCount = 1 To Worksheets.Count 'wsCount番目のワークシートを非表示状態を解除する Worksheets(wsCount).Visible = True Next wsCount End Sub
注意点
- 対象ブック上に非表示ワークシートがある場合、Countプロパティでは1つとしてカウントします。
- WorkSheetsではなく、Sheets コレクションの Count プロパティを参照すると、グラフシートやマクロシート、ダイアログシートの数も含まれます。詳細はこちら。
関連記事
- 新しいワークシートを追加する【Addメソッド】【ExcelVBA】
- ワークシートを削除する【Deleteメソッド】【ExcelVBA】
- ワークシートの表示/非表示の切り替え【Visibleプロパティ】【ExcelVBA】
- 全シートセルA1を選択(Select)状態、表示倍率を100%にする
- 全シート「フォント」「フォントサイズ」を統一する
- 全シート「コメントを一括で表示/非表示」処理
- 全シート「改行」を削除する
- 全シート「特定文字」を置換処理
- 全シート「英数字は半角」「カタカナは全角」に変換
- 全シート「半角カタカナ」を「全角カタカナ」に変換
- 全シート「全角カタカナ」を「半角カタカナ」に変換
- 全シート「空白スペース」を「半角」or「全角」に統一する
- 全シート「列幅」「高さ」の自動設定処理
コメント