ユーザー定義定数(Const ステートメント)
定数を使う
ユーザー定義の定数を使用するには、Const ステートメントを使って、定数の宣言をします。
[ Public | Private ] Const constname [ As type ] = expression
引数・戻り値
- constname ・・・ 定義する定数の名前を指定します(省略不可)。
- type ・・・ 定数のデータ型を指定します(省略可)。
- expression ・・・ 格納する値を指定します(省略不可)。
キーワード Public を指定するとその定数は、すべてのモジュールのどのプロシージャからも参照できます。一方、キーワード Private を指定すると宣言が行われたモジュール内でしか参照できなくなります。Public、Private を省略した場合、Private を指定したものとみなされます。
Const ステートメント 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
'消費税率 Const CTAXRATE As Double = 0.8 '消費税込みの金額を求める Function GetTaxIncludedPrice(myprice As Currency) As Currency GetTaxIncludedPrice = myprice * (1 + CTAXRATE) End Function '消費税を求める Function GetConsumptionTax(myprice As Currency) As Currency GetConsumptionTax = myprice * CTAXRATE End Function Sub Sample_Const() MsgBox "消費税:" & GetConsumptionTax(10000) & vbCrLf & _ "税込金額:" & GetTaxIncludedPrice(10000) End Sub |
実行結果
関連記事
-
-
取り消し線を設定する(Strikethrough プロパティ)
取り消し線を設定する(Strikethrough プロパティ) Striketh …
-
-
メッセージボックスを表示(MsgBox関数)
MsgBox関数 【書式】 result = MsgBox ( Prompt [ …
-
-
文字列:文字列の指定した位置から指定文字数取得(Mid 関数,MidB 関数)
Mid 関数・MidB 関数 の使い方 【書式】 result_mid = Mi …
-
-
文字列:文字を指定数並べた文字列を返す(String 関数)
String 関数 【書式】 result = String ( number, …
-
-
変数のデータ型・宣言(Dim ステートメント)
変数の宣言 一般的な方法 【書式】 Dim varname [ As type, …
-
-
VBA で正規表現を使う(RegExp オブジェクト)
RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …
-
-
文字列:文字列変数内の一部を置き換える(Mid・MidB ステートメント)
Mid・MidB ステートメントの使い方 【書式】 { Mid | MidB } …
-
-
データ型を調べて、そのデータ型を示す数値を返す(VarType 関数)
VarType 関数 の使い方 VarType 関数は、引数に、データ型を調べた …
-
-
指定した数のスペースを挿入する(Spc 関数)
指定した数のスペースを挿入 指定した数のスペースを挿入するには、Spc 関数を使 …
-
-
色の設定(ColorIndex プロパティ・Colors プロパティ)
ColorIndex プロパティ ColorIndex プロパティは、指定したオ …
