VBA/Excelブックのシート数とシート名を取得する
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#navi(../)
* Excelブックのシート数をシート名を取得するサンプル [#ce4...
Excelブック上にあるシートの情報を取得するVBAサンプルコー...
シート数の取得、シート名の取得のサンプルコードを以下に記...
#contents
#htmlinsert(office_ads_top.html)
* 関連サイト [#a617fd7a]
-[[Microsoft: Worksheets.Count プロパティ (Excel)>https:/...
-[[Microsoft: Worksheets オブジェクト (Excel)>https://lea...
* 動作確認環境 [#p4c9d5ac]
- Windows 10 バージョン 22H2
- Microsoft® Excel® for Microsoft 365 MSO (バージョン 230...
* 動作確認シート [#uc726822]
以下のキャプチャの通り、Sheet1, Sheet2, Sheet3, Sheet4, S...
#br
#ref(01.png)
#br
* VBAサンプルコード [#s9339d76]
GetWorksheetsCount()関数では、Excelブックにあるシート数を...
Test()関数では、GetWorksheetsCount()関数の呼び出しと For ...
Option Explicit
Function GetWorksheetsCount() As Integer
GetWorksheetsCount = Worksheets.Count
End Function
Sub Test()
MsgBox ("シート数:" & GetWorksheetsCount)
'For Each で取得
Dim ws As Worksheet
For Each ws In Worksheets
MsgBox ws.Name
Next
'インデックス値で取得
Dim i As Integer
For i = 1 To GetWorksheetsCount
MsgBox Worksheets(i).Name
Next i
End Sub
* 実行結果 [#w21cbfa9]
シート数の取得とシート名を取得するサンプルを実行した時の...
** シート数取得 GetWorksheetsCount [#w89c98db]
#br
#ref(02.png)
#br
** シート名取得 For Each .. Next [#j8ff10c1]
#br
&ref(11.png); &ref(12.png); &ref(13.png); &ref(14.png); &...
#br
** シート名取得 For .. Worksheets(index) .. Next [#i01e0a...
#br
&ref(11.png); &ref(12.png); &ref(13.png); &ref(14.png); &...
#br
以上、Excel VBAを使ってシート数とシート名を取得するサンプ...
#htmlinsert(office_ads_btm.html)
終了行:
#navi(../)
* Excelブックのシート数をシート名を取得するサンプル [#ce4...
Excelブック上にあるシートの情報を取得するVBAサンプルコー...
シート数の取得、シート名の取得のサンプルコードを以下に記...
#contents
#htmlinsert(office_ads_top.html)
* 関連サイト [#a617fd7a]
-[[Microsoft: Worksheets.Count プロパティ (Excel)>https:/...
-[[Microsoft: Worksheets オブジェクト (Excel)>https://lea...
* 動作確認環境 [#p4c9d5ac]
- Windows 10 バージョン 22H2
- Microsoft® Excel® for Microsoft 365 MSO (バージョン 230...
* 動作確認シート [#uc726822]
以下のキャプチャの通り、Sheet1, Sheet2, Sheet3, Sheet4, S...
#br
#ref(01.png)
#br
* VBAサンプルコード [#s9339d76]
GetWorksheetsCount()関数では、Excelブックにあるシート数を...
Test()関数では、GetWorksheetsCount()関数の呼び出しと For ...
Option Explicit
Function GetWorksheetsCount() As Integer
GetWorksheetsCount = Worksheets.Count
End Function
Sub Test()
MsgBox ("シート数:" & GetWorksheetsCount)
'For Each で取得
Dim ws As Worksheet
For Each ws In Worksheets
MsgBox ws.Name
Next
'インデックス値で取得
Dim i As Integer
For i = 1 To GetWorksheetsCount
MsgBox Worksheets(i).Name
Next i
End Sub
* 実行結果 [#w21cbfa9]
シート数の取得とシート名を取得するサンプルを実行した時の...
** シート数取得 GetWorksheetsCount [#w89c98db]
#br
#ref(02.png)
#br
** シート名取得 For Each .. Next [#j8ff10c1]
#br
&ref(11.png); &ref(12.png); &ref(13.png); &ref(14.png); &...
#br
** シート名取得 For .. Worksheets(index) .. Next [#i01e0a...
#br
&ref(11.png); &ref(12.png); &ref(13.png); &ref(14.png); &...
#br
以上、Excel VBAを使ってシート数とシート名を取得するサンプ...
#htmlinsert(office_ads_btm.html)
ページ名:
![[PukiWiki]](image/logo.png "[PukiWiki]"){kind=logo}
