VBAのPrivateステートメント

Privateステートメント

こちらでは、VBAのIE(InternetExplorer)操作に利用されたPrivateステートメントの解説になります。

ステートメントとは、「命令文」と訳されるように、コンピュータに具体的な動作を指定する最小単位のプログラムです。主にマクロの挙動を制御する構文や文法を指します。通常は１行で完結する部分を指しますが、If～Thenなど複数行にまたがる部分を意味することもあります。

Privateステートメントとは

Privateステートメントは、変数のデータ型を宣言しメモリ領域を割り当てます。変数は、数値または文字列を格納するための箱のようなもので、一時的にメモリ上に格納します。モジュールレベルで使用します。

Private 変数名 As データ型

キーワード	省略	説明
構文	Private [WithEvents] varname[([subscripts])] [As [New] type] [,[WithEvents] varname[([subscripts])] [As [New] type]] . . .
WithEvents	●	引数varnameがActiveXオブジェクトによって起動されるイベントへの対応に使われるオブジェクト変数であることをしめします。こちらはクラスモジュール内でのみ有効です。また、WithEventsを使用して任意の数の変数を個別に宣言できますが、配列は作成できません。
varname	×	定義する変数の名前を指定します。変数の標準的な命名規則に従って指定します。
subscripts	●	配列変数の次元を指定します。指定できる次元数の最大値は 60となります。subscriptsの構文は次のとおりです。 [lower To] upper [, [lower To] upper] . . . 引数lowerを省略した場合、配列のインデックス番号の最小値はOption Baseステートメントによって決まります。Option Baseステートメントが記述されていない場合、インデックス番号の最小値は0になります。
New	●	オブジェクト変数を宣言する際にNewを指定すると、Setステートメントを利用してオブジェクトへの参照を代入する必要がありません。ただし、Newを利用して、固有のデータ型の変数の宣言、または従属オブジェクトのインスタンスの宣言はできません。
type	●	変数のデータ型を指定します。As type節は宣言する各変数に対して個別に指定します。

変数のデータ型

指定方法	データ型	バイト数	値の範囲
Byte	バイト型	1	0～255
Boolean	ブーリアン型	2	真（True）又は偽（False）
Integer	整数型	2	-32,768～32,767
Long	長整数型	4	-2,147,483,648～2,147,483,647
Currency	通貨型	8	-922,337,203,685,477.5808～922,337,203,685,477.5807
Single	単精度浮動小数点数型	4	-3.402823E38～-1.401298E-45(負の数) 1.401298E-45～3.402823E38（正の数）
Double	倍精度浮動小数点数型	8	-1.7976931348623E308～-4.94065645841247E-324（負の数） 4.94065645841247E-324～1.79769313486232E308（正の数）
Date	日付型	8	西暦100年1月1日～西暦9999年12月31日
Object	オブジェクト型	4	オブジェクトを参照するためのアドレス
String	文字列型	10＋文字列の長さ	0～2ＧＢ
Variant	バリアント型	16	倍精度浮動小数点数型の範囲と同じ
Variant	バリアント型	22バイト＋文字列の長さ	可変長の文字列型の範囲と同じ。

変数の命名規則

使用できる文字は、英字、ひらがな、全角カタカナ、漢字、数字、アンダースコア（_）
先頭は文字でなければならない（数字または記号以外の文字）
記号やスペースは使用できない
変数名は半角255文字（全角127文字）以内にする
Excelの関数、ステートメント、メソッドと同じ名前（予約語）を使用することは出来ない
同一の適用範囲内で同じ名前の変数を宣言することはできない

変数の適用範囲

Privateステートメントを使ってモジュールレベルで宣言された変数は、宣言したモジュール内のすべてのプロシージャから参照できます。

Privateステートメントを利用したサンプルコード


Private a As Integer

Sub sampleA()

    a = 5
    
    MsgBox "sampleAプロシージャの変数a：" & a
    
    Call sampleB
    
    MsgBox "sampleAプロシージャの変数a：" & a

End Sub

Sub sampleB()

    a = 10
    
    MsgBox "sampleBプロシージャの変数a：" & a
    
End Sub

実行結果

解説

sampleのSubステートメントは引数の設定なしです。こちらは、Privateステートメントを利用して宣言セクション内で変数aを宣言しています。sampleAプロシージャの実行結果を見ると変数aの値は「5」→「10」→「10」になっており、プロシージャ内で宣言した変数結果と異なった結果になりました。

最初の「5」は、sampleAプロシージャ内で設定した変数a=5が適用されています。次の「10」は、sampleBプロシージャ内で設定した変数a=10が適用されています。宣言セクション内で宣言した変数はモジュール内で有効ですので、この時点のsampleAプロシージャの変数aは「10」が代入されています。

よって、最後に実行したMsgBox関数では、「10」で表示されたということです。このように同じ変数名であっても宣言セクション内で宣言した変数は、モジュール内で有効であることが分かります。

最後はEndステートメントを利用してsampleプロシージャを終了させます。