最近の更新

2012年5月23日水曜日

全シート(Sheet)名出力

【目的】
VBAでExcelの全シート(Sheet)名を出力します。

※シート(Sheet)とはワークシート(Worksheet)やグラフ(Graph)を含む全てのシートを指します。


【前準備】
1.Excelファイルは以下の様な、ワークシート(Worksheet)とグラフ(Graph)が混在したものを用意。










































【手順】
1.「標準モジュールの作成方法」の手順で、「MainModule」とい標準モジュールを作成。
2.「MainModule」を以下の様に入力。
Option Explicit

Sub main()
    Dim i As Integer
    
    For i = 1 To Application.Sheets.Count
        Debug.Print (Application.Sheets(i).Name)
    Next
End Sub
3.「関数を実行する方法」の手順で、main関数を実行。
4.イミディエイトウィンドウが表示されない場合は、「イミディエイトウィンドウの表示方法」でイミディエイトウィンドウを表示させます。
5.以下の様に、イミディエイトウィンドウに以下の様に、出力されれば成功です。




以上です。

0 件のコメント:

コメントを投稿

注: コメントを投稿できるのは、このブログのメンバーだけです。

関連記事