ワークシートの数を数える(Count プロパティ)
Count プロパティ
指定したWorksheets コレクションやSheets コレクションに含まれるワークシートの数(長整数型:Long の値)を取得します。
【書式】
object.Count
項目の説明
- object ・・・ 対象となる Worksheets コレクション、Sheets コレクションを指定します。
Worksheets コレクションは、ワークシートのみを扱います。Sheets コレクションは、ワークシートとグラフシートの両方を扱います。
Count プロパティ 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Sub Sample_Count() Dim str1 As String, str2 As String, i As Integer For i = 1 To Sheets.Count str1 = str1 & Sheets(i).Name & Chr(13) Next i For i = 1 To Worksheets.Count str2 = str2 & Worksheets(i).Name & Chr(13) Next i MsgBox "Sheets.Count:" & Sheets.Count & Chr(13) & _ str1 & Chr(13) & _ "Worksheets.Count:" & Worksheets.Count & Chr(13) & _ str2 End Sub |
実行結果
関連記事
-
シートが保護されているか確認(ProtectContents プロパティ)
ProtectContents プロパティ ワークシートが保護されているかどうか …
-
ワークシートを参照する(Worksheets プロパティ)
Worksheets プロパティ Worksheets プロパティは、Works …
-
簡易印刷(PageSetup.Draft プロパティ)
PageSetup.Draft プロパティ PageSetup.Draft プロ …
-
WorksheetView オブジェクト
WorkSheetView オブジェクト 行列番号や枠線の表示・非表示の設定など …
-
ユーザー設定のビュー(CustomViews プロパティ)
ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …
-
印刷設定(フッターに文字列を指定)LeftFooter,CenterFooter,RightFooter
PageSetup.LeftFooter プロパティ PageSetup.Lef …
-
PDF または XPS 形式で出力(ExportAsFixedFormat メソッド)
ExportAsFixedFormat メソッド ブックやシートの内容を PDF …
-
シート見出しの色を設定(Tab プロパティ)
シート見出しの色を設定 Tab オブジェクトの Color プロパティ、Colo …
-
印刷範囲の設定・解除(PageSetup.PrintArea プロパティ)
PageSetup.PrintArea プロパティ 印刷範囲を設定するには、Pa …
-
印刷時の改ページ設定(Add,ResetAllPageBreaks)
改ページの追加と解除 印刷時に改ページを指定するには、HPageBreaks コ …