Home » エクセルマクロ・Excel VBAの使い方 » Sheets・Worksheet » アクティブシートがワークシートかグラフシートかを判定する

アクティブシートがワークシートかグラフシートかを判定する

対象：Excel2007, Excel2010, Excel2013

アクティブなシートがワークシートかグラフかを判定するVBAのコード

VBA（Visual Basic for Applications）でExcelマクロを作っていると、アクティブなシートが、ワークシートなのか、グラフシートなのか判定したいと感じることがあります。

［スポンサードリンク］

アクティブシートの種別を判別するサンプルマクロ

以下のようにTypeName関数を使うと、アクティブなシートの種別を判定することができます。

Sub アクティブシートの種類を判別する()

　Dim type_name As String
　Dim msg As String

　type_name = TypeName(ActiveSheet)

　Select Case type_name
　　Case "Worksheet"
　　　msg = "ワークシート"
　　Case "Chart"
　　　msg = "グラフシート"
　　Case Else
　　　msg = type_name
　End Select

　MsgBox "アクティブなシートは、『" & msg & "』です。"

End Sub

TypeName関数の引数に、ActiveSheetプロパティを指定すると、シートの種類に応じて「Worksheet」「Chart」といった文字列が返されるので、その文字列でシート種別を判別できます。

ワークシートかどうかを判定するサンプルマクロ

アクティブなシートが、ワークシートかそうでないかという判定なら以下のマクロでもOKです。

Sub アクティブシートがワークシートかどうかを判定する()

　Dim msg As String

　If ActiveSheet.Type = xlWorksheet Then
　　msg = "ワークシートです。"
　Else
　　msg = "ワークシートではありません。"
　End If

　MsgBox msg

End Sub

アクティブなシートがワークシートのときは、ActiveSheet.Typeは、Worksheet.Typeと同じことで、

アクティブなシートがワークシートかグラフかを判定するVBAのコード

列挙型・XlSheetTypeに定義されている定数・xlWorksheet（-4167）を返してくるので、

アクティブなシートがワークシートかグラフかを判定するVBAのコード

それで判定するという方法です。

ちなみに、アクティブシートがグラフシートのときに、ActiveSheet.Typeは、「3」とか「4」とかという数値を返してきます。

グラフシートがアクティブだったときに返される、これらの数値が何なのかについては、近日中に別記事として解説します。解説記事を公開しました。

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » Sheets・Worksheet » アクティブシートがワークシートかグラフシートかを判定する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「Sheets・Worksheet」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.