定数は宣言すると同時に値を設定します。初期値として設定して複数のプロシージャで参照する場合によく使用します。また、宣言された定数には後から異なる値を代入することはできません。
Const 定数名 As 型 = 値
以下のサンプルコードでは定数に値をセットして値を表示させています。
Const COMPANY_NAME As String = "テスト株式会社"
Const COMPANY_EMPLOEE_NUM As Integer = 1000
Const COMPANY_CAPITAL As Currency = 100000000
Sub Main()
Dim strMsg As String
strMsg = "会社名:" & COMPANY_NAME & vbCrLf
strMsg = strMsg & "従業員数:" & COMPANY_EMPLOEE_NUM & vbCrLf
strMsg = strMsg & "資本金:" & COMPANY_CAPITAL
MsgBox strMsg
End Sub
結果 |
---|