【ExcelVBA フォーム＆コントロール】テストボックスに表示する数字を区切り書式で表示する方法を教えて！

構文
使い方
プログラミング例
まとめ

構文

構文は以下の通りです。

テキストボックス名.Value = Format("セル範囲","#,##0")

解説

テキストボックスには、表示するデータの形式を設定するプロパティが用意されていません。よって、Format関数を使用してデータの書式を設定してから、テキストボックスに表示します。Format関数は、値を指定した形式で表示するために使用されます。セル範囲から取得した値を指定された形式で表示するために使用されます。引用符で囲まれた部分 "#,##0" は表示形式を示しており、この例では数字を3桁ごとにカンマで区切り、0で埋める形式を指定しています。この部分を必要に応じて変更して、表示形式をカスタマイズできます。セル範囲は、テキストボックスに表示したいセル範囲です。この部分には、ワークシート上のセルの参照を指定します。たとえば、セルA1の値を表示したい場合、Range("A1") などと指定します。

使い方

具体的な使い方を幾つか紹介します。

1.セルの値をテキストボックスに表示する例

この例では、セルA1の値をテキストボックスに表示します。

TextBox1.Value = Format(Range("A1"), "#,##0")

TextBox1はテキストボックスの名前です。セルA1の値を「#,##0」形式で表示します。

2.計算結果をテキストボックスに表示する例

あるセル範囲の値を取得し、それを計算してからテキストボックスに表示する場合の例です。セルA1からA3までの合計を計算し、テキストボックスに表示します。

Dim total As Double
total = WorksheetFunction.Sum(Range("A1:A3"))
TextBox1.Value = Format(total, "#,##0")

total に合計が計算され、その後 TextBox1 に表示形式で設定されます。

プログラミング例

以下に、プログラミング例を幾つか紹介します。

1.特定のセルの値をテキストボックスに表示する

以下は、ボタンがクリックされたときにセルA1の値をテキストボックスに表示します。

Sub ShowCellValue()
Dim cellValue As Variant
' セルA1の値を取得
cellValue = Range("A1")
' テキストボックスに値を表示
TextBox1.Value = Format(cellValue, "#,##0")
End Sub

セルA1の値がTextBox1に「#,##0」形式で表示されます。

2.セル範囲の平均値をテキストボックスに表示する

以下は、セル範囲A1からA10の平均値を計算し、テキストボックスに表示します。

Sub ShowAverage()
Dim cellRange As Range
Dim average As Double
' セル範囲を指定
Set cellRange = Range("A1:A10")
' セル範囲の平均値を計算
average = WorksheetFunction.Average(cellRange)
' テキストボックスに平均値を表示
TextBox1.Value = Format(average, "#,##0.00")
End Sub

セル範囲A1からA10の平均値がTextBox1に小数点以下2桁まで表示されます。