Visual Basic for Applications
テンプレート:Infobox programming language テンプレート:プログラミング言語 Visual Basic for Applications（ビジュアルベーシック・フォー・アプリケーションズ、VBA）は、マイクロソフト社製のMicrosoft Officeシリーズに搭載されているプログラミング言語である。
概要
VBA を使用することで、ExcelやAccess、Wordなどを使用した定型業務を自動化することができる。VBAを用いてユーザーが関数を作成することもできる（ユーザー定義関数という）。また、ユーザー独自のフォームを作成することができ、様々なプラグインを組み込むことでアプリケーションの機能をカスタマイズすることなども可能である。
Microsoft OfficeシリーズのアプリケーションにはVBA用の統合開発環境が付属しているため、知識があれば誰でも手軽にプログラミングが始められる（知識がない場合でも、マクロの自動記録の機能を使って定型業務の自動化を行うことができる）。基本的にはインタプリタ型の言語であるため、コンパイル（ビルド）の作業は不要である。
Microsoft Office専用という印象が強いが、実際にはマイクロソフト社からしかるべきライセンスを取得することで他のアプリケーションに組み込むことも可能である。実際、マイクロソフト社に買収される前のVisioにも搭載されていた。CADソフトのAutoCADやMicroStation V8等にも搭載されている。
VBA の歴史
1994年、マイクロソフトは Excel 5.0 とともに VBA をリリースした。それは従来までのマクロ言語の代替でしかなかった。
しかし、翌年にリリースした Office95や、1997年のOffice97において、Excel以外のアプリケーション、すなわちAccessやWordにもVBAを搭載していった。合わせてVBAの仕様拡張も行われ、VBAはOffice製品に共通したプログラミング言語として確立される。
近年の動向
VBAは、同社のVisual Basicから派生した言語であり、Visual Basicと同様、ActiveXを使用することで既存資源の流用も可能である。ただ、近年マイクロソフト社はActiveX/Component Object Modelから.NET Frameworkへの転換を進めており、Microsoft Office System 2003には従来版にあった「Developer Edition」（VBAカスタムアプリケーション開発用のパッケージ）が存在せず、替わりにVisual Studio Tools for the Microsoft Office Systemと呼ばれる製品が出荷されている。
コード例
以下は、Excelにおいて、「Alpha」という名前のワークシートを削除するVBAの例である。
Application.DisplayAlerts = False
Worksheets("Alpha").Delete
Application.DisplayAlerts = Trueまた、Excelで以下のコードを実行すると、セルA1からI9の範囲に掛け算九九の表を作成することができる。
Dim i As Integer
Dim j As Integer
For i = 1 To 9
For j = 1 To 9
Cells(i, j).Value = i * j
Next
Next下記のように配列を用いて、全ての値を配列に格納した上で一度に出力するように上記のコードを書き換えると、高速に動作するコードになる。
Dim i As Integer
Dim j As Integer
Dim KukuArray(8, 8) As Integer
For i = 1 To 9
For j = 1 To 9
KukuArray(i - 1, j - 1) = i * j
Next
Next
Range("A1:I9").Value = KukuArray条件によって4色以上に色を塗り分けるときも、VBAを利用する（3色以下のときは一般機能の「条件付き書式」を使用するのが望ましい）。以下のコードを実行するとセルB2からE15までの範囲内のセルを5以下→水色、6以上10以下→明るい緑、11以上15以下→黄色、16以上→赤と塗り分けることができる。
Dim myCell As Range
For Each myCell In Range("B2:E15")
Select Case myCell.Value
Case Is <= 5
myCell.Interior.Color = RGB(0, 255, 255)
Case 6 To 10
myCell.Interior.Color = RGB(0, 255, 0)
Case 11 To 15
myCell.Interior.Color = RGB(255, 255, 0)
Case Is > 15
myCell.Interior.Color = RGB(255, 0, 0)
End Select
Next以下は、VBAと共にExcel毎プログラムを終了するVBAの例である。
Application.Quitユーザー定義関数
VBAを用いて、ユーザーが新たに関数を作成することもできる。ユーザー定義関数を作成するにはFunctionプロシージャを用いる。以下はHERONという名でヘロンの公式を用いるユーザー定義関数のコードである。実用には、負の値や三角条件を満たさない値が入力されることを想定して、下記のコードにエラー処理ルーチンを追加しておくことが望ましい。
定義したユーザー定義関数は通常のワークシート関数同様、数式の中で用いることで呼び出す。この例で言えば、テンプレート:Nowrapとセルに入力すると、数式を入力したセルに演算結果として6と出力される。
Function HERON(辺1 As Double, 辺2 As Double, 辺3 As Double) As Variant
Dim s As Double
s = (辺1 + 辺2 + 辺3) / 2
HERON = Sqr(s * (s - 辺1) * (s - 辺2) * (s - 辺3))
End FunctionVBAの問題
VBA で記述したプログラムは Excel などのファイルの一部として格納される。そのため、これらのファイルを開くと同時に VBA で記述した悪意のあるプログラム（マクロウイルス）が自動実行されるようになっていると、重要なファイルが削除されるなど、クライアントが大きなダメージを受けることがある。この危険性は、各アプリケーション上でのセキュリティ設定や、ウイルス対策ソフトの導入などによってほぼ回避することができる。
