【ACCESS VBA】定数を宣言する方法と定数を使用するメリット

訪問して頂きありがとうございます。まさふくろーです。

この記事では、定数を宣言する方法と定数を使用するメリットをご紹介します。

定数の宣言の仕方

Const 定数名 As データ型 = 定数

説明

定数を宣言するには、Constステートメントを使用します。

定数は、たとえば消費税率のように頻繁には変わらない、または完全に固定された値を使用する場合に使用します。

変数を宣言するときと同様、Constキーワードの前にスコープ（適用範囲）を付けることができます。
例：Private Const TAX As Double = 0.08

宣言セクション

Private Const TAX As Double = 0.08

1	Private Const TAX As Double = 0.08

1	消費税率の定数を宣言する。
	定数名「TAX」、データ型「倍精度浮動小数点数型」、定数「0.08」。

プロシージャ

Private Sub Sample()

    Dim Price As Long
    
    Price = 1000
    
    MsgBox "価格(税込) = " & Price * (1 + TAX)
    
End Sub

Private Sub Sample()

Dim Price As Long

Price = 1000

MsgBox "価格(税込) = " & Price * (1 + TAX)

End Sub

1	Subプロシージャ「Sample」を作成。
3	定価用変数「Price」を宣言。データ型「長整数型」。
5	定価用変数「Price」に「1000」を代入。
7	定価用変数「Price」、消費税率用定数「TAX」から税込金額を計算し、メッセージボックスに表示する。

Private Sub Sample()

    Dim Price As Long
    
    Price = 1000
    
    MsgBox "価格(税込) = " & Price * (1 + 0.08)
    
End Sub

Private Sub Sample()

Dim Price As Long

Price = 1000

MsgBox "価格(税込) = " & Price * (1 + 0.08)

End Sub

1	Subプロシージャ「Sample」を作成。
3	定価用変数「Price」を宣言。データ型「長整数型」。
5	定価用変数「Price」に「1000」を代入。
7	定価用変数「Price」、消費税率「0.08」から税込金額を計算し、メッセージボックスに表示する。
7	コードの中に「0.08」のみしか書かれていないと、何の値なのかかわらず可読性が悪くなる。

最後まで読んでいただき、ありがとうございました！

本のまとめ関連記事はこちら