AppActivate ステートメントは、指定したアプリケーションやウィンドウにフォーカスを移します。このとき、フォーカスが移っても指定したウィンドウの状態は変化しません。たとえば、最小化されているウィンドウにフォーカスを移しても、そのウィンドウは最小化されたままです。ユーザーがフォーカスを変更するか、またはウィンドウを閉じると、他のウィンドウへフォーカスが移ります。アプリケーションを実行するには、Shell 関数を使用します。また、ウィンドウ スタイルの設定をする場合にも Shell 関数を使用します。

アプリケーション ウィンドウのタイトル バーの文字列と名前付き引数 title が完全に一致しているかどうかを比較することによって、どのアプリケーションをアクティブにするかが判別されます。完全に一致するものが見つからないときは、アプリケーション ウィンドウのタイトル バーの文字列が名前付き引数 title で始まるアプリケーションをアクティブにします。名前付き引数 title と一致するアプリケーション ウィンドウが複数ある場合も、その中の 1 つが任意に選択されてアクティブになります。

コンピュータのスピーカを鳴らします。

ビープ音の鳴る時間と周波数はハードウェアとシステム ソフトウェアに依存するため、コンピュータの機種によって異なります。

Sub Constステートメント() Dim a As Single Const TaxRate As Single = 0.05 a = 10000 * TaxRate MsgBox a End Sub

構文

[Public | Private] Const constname [As type] = expression

Const ステートメントの構文は、次の指定項目から構成されます。

Sub 日付設定() Dim MyDate MyDate = #2/12/1985# ' 日付を代入します。 Date = MyDate MyDate = Date ' MyDate に現在のシステムの日付が格納されます。 MsgBox MyDate End Sub

次の例は、Deftype ステートメントを使って、特定の文字が先頭に付く変数や Function プロシージャに対して、既定のデータ型を設定する方法を表しています。既定のデータ型は、Dim ステートメントを使って明示的に宣言することによってのみ、変更できます。Deftype ステートメントは、モジュール レベルでのみ使用できます。つまり、プロシージャ内では使えません。

解説

各ステートメント名が適用されるデータ型を次に示します。

次の例は、Dim ステートメントを使って、変数や配列を宣言する方法です。配列の添字の最小値は既定値では 0 ですが、Option Base ステートメントを使えば、モジュール レベルで変更できます。

' 変数 AnyValue と変数 MyValue は既定のバリアント型 (Variant)
' として宣言されて、値は Empty 値が設定されます。
Dim AnyValue, MyValue

' 整数型 (Integer) の変数を明示的に宣言します。
Dim Number As Integer

' 1 行で複数の変数を宣言します。型が指定されていないので、
' 変数 AnotherVar はバリアント型になります。
Dim AnotherVar, Choice As Boolean, BirthDate As Date

' 変数 DayArray は、要素数 51 のバリアント型配列として宣言されます。
' 現在のモジュールで、Option Base に既定値の 0 が設定されていれば、
' 添字の範囲は、0 〜 50 になります。
Dim DayArray(50)

' 変数 Matrix は、整数型の 2 次元配列です。
Dim Matrix(3, 4) As Integer

' MyMatrix は、倍精度浮動小数点数型 (Double) の 3 次元配列です。
' 添字の範囲を、明示的に指定しています。
Dim MyMatrix(1 To 5,  4 To 9,  3 To 5) As Double

' BirthDay は、添字が 1 〜 10 の範囲の日付型 (Date) の配列です。
Dim BirthDay(1 To 10) As Date        

' MyArray は、バリアント型の動的配列です。
Dim MyArray()

次の例は、Do...Loop ステートメントの使い方を示しています。内側の Do...Loop ステートメントでは、ループを 10 回繰り返すとフラグの値を偽 (False) に設定し、Exit Do ステートメントを使ってループから抜けます。外側のループは、フラグの値を調べてループから抜けます。

Dim Check, Counter
Check = True: Counter = 0        ' 変数を初期化します。
Do    ' 外側のループ。
    Do While Counter < 20        ' 内側のループ。
        Counter = Counter + 1    ' カウンタを増やします。
        If Counter = 10 Then    ' 条件が True であれば
            Check = False        ' フラグの値を False に設定します。
            Exit Do                ' 内側のループから抜けます。
        End If
    Loop
Loop Until Check = False        ' 外側のループから抜けます。

指定した条件が真 (True) である間、または条件が真 (True) になるまで、一連のステートメントを繰り返し実行するフロー制御ステートメントです。

構文

Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]

Loop

または、次の構文を使用できます。

Do
[statements]
[Exit Do]
[statements]

Loop [{While | Until} condition]

Do...Loop ステートメントの構文は、次の指定項目から構成されます。

解説

Do...Loop ステートメントから抜け出す別の方法として、Do...Loop ステートメント内に任意の数の Exit Do ステートメントを指定することができます。通常、Exit Do ステートメントはいくつかの条件を評価した後で使用します。たとえば、If...Then ステートメントを評価した後で Exit Do ステートメントを実行して、制御をキーワード Loop の次のステートメントに直ちに移します。

Do...Loop ステートメントはネスト (入れ子) 構造にすることができます。つまり、Do...Loop ステートメントの内部に別の Do...Loop ステートメントを入れることができます。ネスト (入れ子) 構造にしたときに Exit Do が実行されると、その Exit Do を囲んでいる 1 番内側のループから抜け出します。

次の例は、ユーザーが不正なパスワードを入力すると、End ステートメントを使ってコードの実行を終了させます。

Do...Loop ループ、For...Next ループ、Function、Sub、または Property の各プロシージャを抜けるフロー制御ステートメントです。

次の例は、Exit ステートメントを使って、For...Next ループ、Do...Loop ループおよび Private Sub プロシージャから抜け出します。

ファイルをコピーします。

構文

FileCopy source, destination

FileCopy ステートメントの構文は、次の名前付き引数から構成されます。

解説

既に開いているファイルに対して、FileCopy ステートメントを実行しようとすると、エラーが発生します。

次の例は、GoSub ステートメントを使って、Sub プロシージャの中でサブルーチンを呼び出します。サブルーチンの中に記述された Return ステートメントは、Sub プロシージャに制御を戻し、GoSub ステートメントの直後のステートメントから処理を再開します。Exit Sub ステートメントは、制御が再びサブルーチンに渡されるのを防ぎます。

次の例は、GoTo ステートメントを使って、プロシージャ内の行ラベルに分岐します。

シーケンシャル入力モード (Input) で開いたファイルからデータを読み込んで、それを変数に格納するファイル入出力ステートメントです。

ディスクからファイルを削除します。

次の例は、明示的に Let ステートメントを使って、式の値を変数に代入するものです。

Dim MyStr, MyInt
' Let ステートメントを使って変数を代入します。
Let MyStr = "Hello World"
Let MyInt = 5

次に示すように、Let ステートメントを使わずに値を代入しても同じ結果が得られます。

Dim MyStr, MyInt
MyStr = "Hello World"
MyInt = 5 

シーケンシャル入力モード (Input) で開いたファイルから行全体を読み込み、文字列型 (String) の変数に代入するファイル入出力ステートメントです。

文字列変数の値を左揃えにしたり、ユーザー定義型の変数を別のユーザー定義型の変数にコピーします。
LSet ステートメントは引数 の余った部分をスペースで埋めます。

次の例は、Mid ステートメントを使って、文字列変数の中にある指定した文字数分の文字を他の文字列に置き換えます。Midは文字数指定で、MidBはバイト数指定。置き換える文字列には常に引数 stringvar の文字数よりも小さいか、または等しい文字列を指定します。

次の例は、MkDir ステートメントを使って、フォルダを作成します。ドライブが指定されない場合、新規のフォルダは、現在のドライブに作成されます。

Name ステートメントはファイル名を変更して、必要に応じて他のフォルダにファイルを移動します。Name ステートメントでは、ドライブ間ではファイルを移動しますが、newpathname と oldbathname で指定したドライブ名が同じ場合は、単に既存のフォルダの名前を変更します。ファイルやフォルダを新しく作成することはありません。

現在、開いているファイルに対して Name ステートメントを実行すると、エラーが発生します。ファイル名を変える前に、開いているファイルを閉じてください。引数 Name には、複数の文字を指定するためのアスタリスク (*) および単一の文字を指定するための疑問符 (?) のワイルド カード文字を指定できません。

Sub 名前変更() Name "c:\work" As "c:\walk" End Sub
Sub 名前変更() Name "c:\walk" As "c:\wk\work" End Sub

次の例は、On...GoSub ステートメントを使ってサブルーチンに分岐し、On...GoTo ステートメントを使って行ラベルに分岐します。

ファイルを開いて、ファイルへ入出力できるようにします。

文字列データの既定の比較方法を設定します。モジュール レベルで使います。

次の例では、Option Compare ステートメントを使って、既定の文字列比較方法を変更します。Option Compare ステートメントは、モジュール レベルでのみ使用します。

' 文字列比較方法を Binary モードに設定します。
Option compare Binary     ' "AAA" は、"aaa" よりも小さくなります。
' 文字列比較方法を Text モードに設定します。
Option compare Text        ' "AAA" と "aaa" は、等価です。

モジュール内のすべての変数に対して、明示的な宣言を強制します。モジュール レベルで使用します。

次の例では、Option Explicit ステートメントを使って、すべての変数を明示的に宣言するように設定します。宣言されていない変数を使うとコンパイル時にエラーが発生します。Option Explicit ステートメントは、モジュール レベルでのみ使用します。

Option explicit    ' すべての変数を明示的に宣言するようにします。
Dim MyVar            ' 変数を宣言します。
MyInt = 10        ' 宣言されていない変数を使うとエラーが発生します。
MyVar = 10        ' 宣言済みの変数であれば、エラーは発生しません。

次の例は、Print # ステートメントを使って、ファイルにデータを書き込みます。

Open "TESTFILE" For Output As #1            ' シーケンシャル出力モードで開きます。
Print #1, "これはテストです。"                ' ファイルに文字列を書き込みます。
Print #1,    ' ファイルに空白行を挿入します。
Print #1, "印字領域 1"; Tab ; "印字領域 2"    ' 2 つの印字領域に分けて書き込みます。
Print #1, "皆さん" ; " " ; "こんにちは"        ' 文字列の間にスペースを挿入します。
Print #1, Spc(5) ; "スペース 5 文字"        ' 文字の前にスペースを 5 個挿入します。
Print #1, Tab(10) ; "こんにちは"            ' 10 桁目に文字列を印字します。

' ブール値、日付、Null 値、エラー値を割り当てます。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True, False, Null 値, エラー値は、国別情報の設定によって変換されます。
' 日付リテラルは、短い日付形式 (コントロールパネルで設定) を使って、書き込まれます。
Print #1, MyBool ; " は、ブール値です。"
Print #1, MyDate ; " は、日付です。"
Print #1, MyNull ; " は、Null 値です。"
Print #1, MyError ; " は、エラー値です。"
Close #1                                ' ファイルを閉じます。

次の例は、Put ステートメントを使って、データをファイルに書き込みます。この例では、ユーザー定義の Record 型の 5 つのレコードをファイルに書き込みます。

プログラム内にコメントを記述することを示します。

次の例では、Rem ステートメントを使って、プログラムのコメントを記述しています。

Dim MyStr1, MyStr2
MyStr1 = "Hello": Rem ステートメントの後にコロンを付けてコメントを記述します。
MyStr2 = "Goodbye"     ' これもコメントです。この場合、コロンは不要です。

Open ステートメントで開いたすべてのファイルを閉じるファイル入出力ステートメントです。

次の例は、Reset ステートメントを使って、開いているファイルをすべて閉じて、ファイル バッファに残っている内容をディスクに書き込みます。この例では、バリアント型 (Variant) の変数 FileNumber を、文字列と数値の両方の変数として使っています。

次の例は、Resume ステートメントを使って、エラー処理を終了して、エラー発生位置から処理を再開します。この例では、エラー番号 55 を発生させます。

既存のフォルダを削除するステートメントです。

指定したフォルダ内にファイルが存在していると、エラーが発生します。フォルダを削除する前に、Kill ステートメントを使用してすべてのファイルを削除してください。

Open ステートメントで開いたファイルの、次に読み込みまたは書き込みを行う位置を設定するファイル入出力ステートメントです。

次の例は、Select Case ステートメントを使って、変数の値を評価します。この例では、変数の値は必ず 2 番目の Case 節と一致します。したがって、2 番目の Case 節に記述されたステートメントだけが実行されます。

キーを押したときに表示されない文字 (Enter キーや Tab キーなど) または、文字ではなく動作を表すキーを指定するには、次に示すコードを使います。

Shift キー、Ctrl キー、または Alt キーと他のキーとの組み合わせを指定するには、通常のキー コードの前に次のコードを単独、または組み合わせて記述します。

Shift キー、Ctrl キー、Alt キーを押しながら他のキーを押す操作を指定するには、キーのコードをかっこで囲みます。たとえば、Shift キーを押しながら E と C を押す操作を指定するには、"+(EC)" を使います。Shift キーを押しながら E を押し、その後 Shift キーを離して C を押す操作を指定するには、"+EC" を使います。

同じキー ストロークの繰り返しを指定するには、{key number} という形式を使います。key と number の間には必ず半角のスペースが必要です。たとえば、{LEFT 42} は ← キーを 42 回押すことを意味します。また {h 10} は、H キーを 10 回押すことを意味します。

メモ SendKeys ステートメントは、Microsoft Windows または Macintosh 上で動作するように設計されたアプリケーション以外にはキー ストロークを渡せません。また Sendkeys ステートメントは、アプリケーションに Copy キーを渡せません。

設定値

引数 attributes の設定値は次のとおりです。

メモ これらの定数は、Visual Basic で定義されています。実際の数値の代わりにコードで使用することができます。

解説

開いているファイルの属性を変更しようとすると、実行時エラーが発生します。

次の例は、Stop ステートメントを使って、For...Next ループを繰り返すごとに中断します。

Sub プロシージャの名前、引数、およびプロシージャの本体を宣言します。

次の例は、Sub ステートメントを使って、Sub プロシージャの名前と引数を宣言し、プロシージャのコードを記述しています。

' Sub プロシージャを定義します。
' 2 つの引数を持つ Sub プロシージャになります。
Sub SubComputeArea(Length, TheWidth)
    Dim Area As Double        ' ローカル変数を宣言します。
    If Length = 0 Or TheWidth = 0 Then
        ' いずれかの変数の値が 0 の場合
        Exit Sub            ' Sub プロシージャを直ちに終了します。
    End If
    Area = Length * TheWidth    ' 四角形の面積を計算します。
    Debug.Print Area        ' 面積をデバッグ ウィンドウに表示します。
End Sub

1 つまたは複数の要素を持つユーザー定義のデータ型 (ユーザー定義型) を宣言します。モジュール レベルで使います。

次の例では、Type ステートメントを使って、ユーザー定義のデータ型を定義します。Type ステートメントは、モジュール レベルでのみ使用します。クラス モジュールで使用する場合は、Type ステートメントの直前にキーワード Private を付ける必要があります。

Type EmployeeRecord        ' ユーザー定義型を作成します。
    ID As Integer            ' データ型の要素を定義します。
    Name As String * 20
    Address As String * 30
    Phone As Long
    HireDate As Date
End Type
Sub CreateRecord()
    Dim MyRecord As EmployeeRecord    ' 変数を宣言します。

    ' 変数 EmployeeRecord への代入は、
    ' プロシージャ内に記述しなければなりません。
    MyRecord.ID = 12003            ' 要素に値を代入します。
End Sub

オブジェクトをメモリから削除します。

解説

オブジェクトがアンロードされると、そのオブジェクトはメモリから削除され、オブジェクトに関連するすべてのメモリが解放されます。Load ステートメントを使用して再度メモリにロードしない限り、ユーザーはそのオブジェクトを操作できず、プログラムの中から操作することもできません。

次の例は、コードで 2 つのユーザー フォームを使用します。この例では、UserForm1 の Initialize イベントで、UserForm2 をロードし、表示します。UserForm2 をクリックするとアンロードされ、UserForm1 が表示されます。UserForm1 をクリックすると、今度はこのフォームがアンロードされます。

' これは UserForm1 の Initialize イベント プロシージャです。
Private Sub UserForm_Initialize()
    Load UserForm2
    UserForm2.Show
End Sub

' これは UserForm2 の Click イベントです。
Private Sub UserForm_Click()
    Unload UserForm2
End Sub

' これは UserForm1 の Click イベントです。
Private Sub UserForm_Click()
    Unload UserForm1
End Sub

Open ステートメントで開いたファイルに出力する行の幅 (桁数) を割り当てるファイル入出力ステートメントです。

次の例は、Width # ステートメントを使って、ファイルの出力行の幅を設定します。

Sub sample() Dim I Open "TESTFILE" For Output As #1 ' シーケンシャル出力モードでファイルを開きます。 VBA.Width 1, 5 ' 出力行の幅を 5 に設定します。 For I = 0 To 9 ' ループを 10 回繰り返します。 Print #1, Chr(48 + I); ' 1 行に 5 文字ずつ表示します。 Next I Close #1 End Sub

次の例は、With ステートメントを使って、単一のオブジェクトに対する一連のステートメントを実行します。MyObject とそのプロパティ名は、説明する目的で一般的な名前を使っています。実際にコードを記述するときには、適切な名前に置き換えてください。

With MyObject
    .Height = 100                ' MyObject.Height = 100 と同じです。
    .Caption = "Hello World"    ' MyObject.Caption = "Hello World" と同じです。
    With .Font
        .Color = Red            ' MyObject.Font.Color = Red と同じです。
        .Bold = True            ' MyObject.Font.Bold = True と同じです。
    End With
End With

シーケンシャル出力モード (Output または Append) で開いたファイルにデータを書き込むファイル入出力ステートメントです。