変数やプロシージャのスコープ（適用範囲）

2015/05/05 2015/08/26

変数やプロシージャのスコープ（適用範囲）

【構文：変数の宣言】

{ Dim | Private | Public | Static } varname [ As type , … ]

【項目の説明】

varname ・・・定義する変数名
type ・・・変数 varname のデータ型（省略するとバリアント型になります）。

Dim ステートメントは、変数を宣言し、メモリ領域を割り当てます。

Private ステートメントで宣言された変数は、宣言されたモジュール内でのみ参照できます。

Public ステートメントで宣言された変数は、Option Private Module が有効でない限り、すべてのアプリケーションのすべてのモジュールのすべてのプロシージャから参照できます。

Static ステートメントで宣言した変数 (静的変数) の値は、プログラムが実行されている間をとおして保持されます。

変数・定数の宣言の位置とその適用範囲

場所	キーワード	適用範囲
プロシージャ内	Dim	同一プロシージャ内実行後、値は破棄される
プロシージャ内	Static	同一プロシージャ内実行後も値は保持される
標準モジュール宣言部	Dim	同一モジュール内のみ実行後も値は保持される
	Private	同一モジュール内のみ実行後も値は保持される
	Public	ブック全体実行後も値は保持される
シート／ブックモジュール宣言部	Dim	同一モジュール内のみ実行後も値は保持される
	Private	同一モジュール内のみ実行後も値は保持される
	Public	同一モジュール内のみただし「親オブジェクト」を装飾すれば使用可　(例) ThisWorkbook.aaa 実行後も値は保持される
フォームモジュール宣言部	Dim	同一モジュール内のみフォーム終了時に値は破棄される
	Private	同一モジュール内のみフォーム終了時に値は破棄される
	Public	同一モジュール内のみただし「親オブジェクト」を装飾すれば使用可　(例) Form1.aaa フォーム終了時に値は破棄される
クラスモジュール宣言部	Dim	同一モジュール内のみインスタンス終了時に値は破棄される
	Private	同一モジュール内のみインスタンス終了時に値は破棄される
	Public	同一モジュール内のみただしインスタンスからは使用可　(例) cc.aaa インスタンス終了時に値は破棄される

プロシージャの適用範囲

場所	キーワード	適用範囲
標準モジュール	Public（省略可）	ブック全体
標準モジュール	Private	同一モジュール内のみ
シートモジュール・ブックモジュール	Public（省略可）	同一モジュール内のみただし「マクロ」ボタン（開発タブ）からは実行可
シートモジュール・ブックモジュール	Private	同一モジュール内のみ
フォームモジュール	Public（省略可）	同一モジュール内のみただし「親オブジェクト」を装飾すれば実行可　(例) ThisWorkbook.myfunc()
フォームモジュール	Private	同一モジュール内のみ
クラスモジュール	Public（省略可）	同一モジュール内のみただしインスタンスからは実行可　(例) cc.clsfunc
クラスモジュール	Private	同一モジュール内のみ

プロシージャ の構文については、プロシージャを作成する（ Sub, Function ）を参照してください。

モジュール宣言部に、Option Private Module が記述されている場合は、モジュール自体がプライベートとして宣言され、エクセルのツールバーにある「マクロ」ボタン（開発タブ）をクリックしたときに表示されるマクロの一覧にそのプロシージャは表示されなくなります。
ただし、別のモジュールからの実行は可能です（「Private」のついたプロシージャ以外）。また、プロシージャの中で宣言された変数は、そのプロシージャの実行中だけ有効で、キーワード Static により静的変数として宣言されていない限り、プロシージャの実行が、終了すると値は破棄されます。

変数やプロシージャのスコープ（適用範囲）使用例

サンプルVBAソース

　
'--------------------------------------------------------------------
' Class1 モジュールに記述
'--------------------------------------------------------------------
Option Explicit

Dim cls1 　　　　　'Class1 モジュール内のみ
Public cls2　　　　'インスタンスから参照可
Private cls3 　　　'Class1 モジュール内のみ


Sub mySet(num As Integer)　'インスタンスから参照可

    cls1 = num * 2
    cls2 = num + 100
    cls3 = num - 100

End Sub

'--------------------------------------------------------------------
' ThisWorkbook モジュールに記述
'--------------------------------------------------------------------
Dim wbk1 　　　　　'ThisWorkbook モジュール内のみ
Public wbk2　　　　'「ThisWorkbook.wbk2」とすると参照可
Private wbk3 　　　'ThisWorkbook モジュール内のみ


Sub wbk_test1()　　'「ThisWorkbook.wbk_test1」とすると実行可
    
    wbk1 = "abc"
    wbk2 = wbk2 + 100
    wbk3 = 1000
    
End Sub

'--------------------------------------------------------------------
' UserForm1 モジュールに記述
'--------------------------------------------------------------------
Option Explicit

Dim ufrm1 　　　　'UserForm1 モジュール内のみ
Public ufrm2　　　'「UserForm1.ufrm2」とすると参照可
Private ufrm3 　　'UserForm1 モジュール内のみ

Public Function xsub(aa As Integer)　'「UserForm1.xsub(引数)」とすると実行可
    
    MsgBox "aaa"

End Function

Private Sub CommandButton1_Click()

    xyz = 100
    
    MsgBox xyz


End Sub

'--------------------------------------------------------------------
' 標準モジュールに記述'
'--------------------------------------------------------------------
Option Explicit

Dim aa　　　　　　'このモジュールからのみ
Public bb 　　　　'ブック全体から参照可
Private cc　　　　'このモジュールからのみ

Sub test1()
    
    Static num As Integer
    Dim c1 As Class1
    
    Set c1 = New Class1
    c1.mySet (125)
    
    aa = 1
    bb = 2
    cc = 3
    num = 1 + num
    
    UserForm1.ufrm2 = "あいうえお"
    
    
    Debug.Print num & "回目の実行"

    Debug.Print "クラスPublic cls2：" & c1.cls2
    Debug.Print "Dim            aa：" & aa
    Debug.Print "Public         bb：" & bb
    Debug.Print "Private        cc：" & cc
    Debug.Print "UserForm1.ufrm2  ：" & UserForm1.ufrm2
    
    Call ThisWorkbook.wbk_test1
    
    Debug.Print "ThisWorkbook.wbk2：" & ThisWorkbook.wbk2
    

End Sub