動作検証バージョン:Windows 11 Home + 64bit Excel バージョン 2505(ビルド18827.20128クイック実行)
「excel vba 小数点で位置合わせ」
といった検索キーワードでアクセスがありました。
上図のように小数を含む数値のセルが並んでいるときに、下図のように小数点の位置を揃えて表示するには
どのようなコードを書けばいいのか調べていらしたのでしょう。
[スポンサードリンク]
小数点の位置を揃えて表示するサンプルマクロ
以下のExcelマクロが参考になるでしょう。
Sub 小数点の位置を揃えて表示する()
Range("A1:A5").NumberFormatLocal = "0.???"
End Sub
Range("A1:A5").NumberFormatLocal = "0.???"
End Sub
サンプルマクロで行っている処理
[セルの書式設定]ダイニング-[表示形式]タブで「0.???」と指定すれば、小数点の位置が揃えられることを20年前に記事にしています。
この設定をVBAから行っているのが上記のマクロです。
Excel.RangeオブジェクトのNumberFormatLocalプロパティを使って、[セルの書式設定]ダイニング-[表示形式]タブで指定するのと同じ文字列「0.???」を設定しています。
ゼロパティングする場合
以下のようなコードにすれば、
Range("A1:A5").NumberFormatLocal = "0.000"
下図のようにゼロパティングが行われます。
[スポンサードリンク]
- Newer:7,000記事
- Older:Filmoraで動画をスローモーションに
Home » Excel VBA Rangeオブジェクト » 表示形式 » VBAで小数点の位置を揃えて表示する基本