Excel VBA Constでプログラム共通使用のグローバル定数を定義する記述

以下のようなシーンで利用されます。

・複数のモジュールやプロシージャで共通して使いたい値を一箇所で管理したい。

・定数として扱いたい値が、プログラム全体で頻繁に使用される。

・複数箇所で使われる値を変更する際、一箇所だけ修正すれば済むようにしたい。

Option Explicit

Public Const TAX_RATE As Double = 0.1

Sub CalculateTotal()
    Dim price As Double
    Dim total As Double
    
    ' 商品の価格
    price = 1000
    
    ' 消費税を計算
    total = price * (1 + TAX_RATE)
    
    ' 結果を表示
    MsgBox "消費税込みの合計金額は " & total & " 円です。"
End Sub

TAX_RATEという消費税率のグローバル定数を定義しています。この定数はどのモジュールからもアクセスでき、消費税の計算に使用します。仮に消費税率が変更された場合でも、この定数の値を一箇所で修正するだけで、全体のコードに反映します。

グローバル定数はコードの管理や保守を容易にし、プログラムの信頼性を高めるために役立ちます。