VBA (Visual Basic for Applications) で文字列を数値フォーマットするために使われる関数の一つが「FormatNumber」関数です。この関数は数値を指定した形式で表示するために非常に役立ちます。

FormatNumber関数の基本

VBAのFormatNumber関数は、数値を指定したフォーマットで文字列として返します。この関数は、ユーザーが望む形式で数値を表示するために多くのオプションを提供します。

基本的な構文は以下のようになります：

FormatNumber(expression, [numDigitsAfterDecimal], [includeLeadingDigit], [useParensForNegativeNumbers], [groupDigits])

• expression: フォーマットする数値。
• numDigitsAfterDecimal: 小数点以下の桁数を指定します。省略した場合は、デフォルトで2桁になります。
• includeLeadingDigit: 1の位が0であっても表示するかを決めます。省略時はTrue。
• useParensForNegativeNumbers: 負の数を括弧で囲むかを指定します。省略時はFalse。
• groupDigits: 千の位でカンマを挿入するかを指定します。省略時はTrue。

FormatNumber関数の使用例

実際にFormatNumber関数を使って数値をフォーマットしてみましょう。

基本的な使い方

まずは基本的な使い方を見てみましょう。例えば、数値を小数点以下2桁で表示する場合：

Dim num As Double
num = 1234.5678
MsgBox FormatNumber(num) ' 結果: "1,234.57"

このコードでは、数値1234.5678がFormatNumber関数を通してフォーマットされ、結果として「1,234.57」が表示されます。

小数点以下の桁数を指定する

次に、小数点以下の桁数を指定してみましょう。たとえば、桁数を3にする場合：

MsgBox FormatNumber(num, 3) ' 結果: "1,234.568"

この場合、1234.5678は小数点以下3桁で四捨五入され、「1,234.568」となります。

負の数の表示

次は、負の数をどのように表示するかについてです。デフォルトでは、負の数はマイナス符号（-）が付けられますが、括弧で囲むように設定できます。

Dim negativeNum As Double
negativeNum = -1234.5678
MsgBox FormatNumber(negativeNum, 2, , True) ' 結果: "(1,234.57)"

上記のコードでは、負の数が括弧で囲まれて表示されます。

千の位にカンマを挿入する

数値が大きくなると、千の位にカンマを挿入して見やすくすることができます。デフォルトでは、カンマが挿入されますが、これを無効にすることもできます。

Dim largeNum As Double
largeNum = 1234567.89
MsgBox FormatNumber(largeNum) ' 結果: "1,234,567.89"

上記の例では、「1,234,567.89」という形式で表示されます。

FormatNumber関数の高度な使い方

次に、FormatNumber関数を使いこなすための高度なオプションについて解説します。

桁数と数値の前後のゼロ

桁数を指定するとき、numDigitsAfterDecimalの設定で数値の後にゼロを追加することができます。

MsgBox FormatNumber(5, 3) ' 結果: "5.000"

ここでは、数値5が5.000として表示されています。

負の数を括弧で表示する

負の数を括弧で表示する設定をさらに詳しく見てみましょう。useParensForNegativeNumbers引数をTrueにすると、負の数を括弧で囲んで表示できます。

MsgBox FormatNumber(-1234.5678, 2, , True) ' 結果: "(1,234.57)"

この例では、負の数が括弧で囲まれて「(1,234.57)」と表示されます。

まとめ

FormatNumber関数は、VBAで数値を特定の形式で表示するために非常に便利なツールです。数値の小数点以下の桁数、負の数の表示形式、千の位にカンマを挿入するなど、細かな調整が可能です。これらの機能を駆使することで、よりユーザーに優しいインターフェースを提供できます。