[VBA][Excel]定数

 

※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

下記を実行すると

'宣言セクション(Declarations)
'このモジュール内のみで有効な定数の宣言
Const c_zei As Single = 0.1
Const c_per As String = "%"

Private Sub CommandButton1_Click()
'シート上に CommandButton を2つ配置します
    Sheet1.Range("A1").Value = CStr(c_zei * 100) + c_per

End Sub

Private Sub CommandButton2_Click()

'このSubプロシージャ内のみで有効な定数の宣言
Const c_zei As Single = 0.08
    Sheet1.Range("A2").Value = CStr(c_zei * 100) + c_per

End Sub

このようになります。

vba-excel-teisuu