VBAで数値をカンマ区切りで表示させる│金額など4桁以上の数値

この記事では、セルに入力されている数値をカンマ区切りで表示させるVBAコードを紹介します。

Excelの日常操作においても、金額を含む数値に関しては、カンマ区切りで表示することが一般的です。VBAで自動化する場合でも、人間の作業と混在するようなExcelシートであれば、金額の判別がし易いようにカンマ区切りを活用するとよいでしょう。

セルの表示形式をカンマ区切りで表示するVBAコードを紹介しますので、基本知識として覚えておきましょう。

VBA│カンマ区切りで表示する（金額など）

この章では、セルA1に入力されている数値をカンマ区切りで表示させるVBAコードを紹介します。

基本構文

Format(object, format)

• Format = セルの表示形式を設定する関数
• object = 表示形式を設定する対象のセル
  この例では、A1です
• format = 設定する表示形式
  この例では、#,###です

Rangeプロパティ

Sub Sample()

Range(“A1”) = Format(Range(“A1”), “#,###”)

End Sub

Cellsプロパティ

Sub Sample()

Cells( 1 , 1 ) = Format(Cells( 1 , 1 ), “#,###”)

End Sub

応用編│連続する行にカンマ区切りを設定する

この章では、セルA1からセルA10に入力されている数値を、繰り返し構造により、すべてカンマ区切りで表示させるVBAコードを紹介します。

複数行にカンマ区切りを設定するVBAコード

Sub Sample()

・・・①
Dim i As Long

・・・②
For i = 1 To 10

・・・③
Cells( i , 1 ) = Format(Cells( i , 1 ), “#,###”)
Next i

End Sub

この例のような処理を自動化する場合には、通常、Excelの最終行を求めて、最終行分、判定を繰り返すようにプログラミングするのですが、今回は省略して、予めForで行数を設定しています。