ユーザー定義定数(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 |
実行結果
関連記事
-
-
データをクリアする(ClearContents メソッド)
ClearContents メソッド 対象がセル範囲(Range オブジェクト) …
-
-
文字列:文字列を検索してその最初の文字位置を返す(InStr 関数,InStrB 関数)
InStr 関数・InStrB 関数の使い方 【書式】 result = { I …
-
-
オブジェクトの書式をクリアする(ClearFormats メソッド)
ClearFormats メソッド 対象となるオブジェクトの書式(スタイル)を初 …
-
-
フォントサイズ(Size プロパティ・StandardFontSize プロパティ)
フォントサイズを取得・設定する(Size プロパティ) Size プロパティは、 …
-
-
文字列:2つの文字列を比較する(StrComp 関数)
StrComp 関数の使い方 【書式】 result = StrComp ( s …
-
-
引数の整数部分を取得する(Fix 関数・Int 関数)
Fix 関数・Int 関数の使い方 【書式】 number_fix = Fix …
-
-
日付時刻:日付時刻データを計算( DateAdd 関数 )
DateAdd 関数(日付・時刻の値を加算・減算結果を取得) 【書式】 resu …
-
-
日付時刻:経過時間を取得( Timer 関数 )
Timer 関数の使い方 【書式】 result = Timer () 【戻り値 …
-
-
VBA の演算子(演算子の優先順位)
演算子の優先順位 演算子の優先順位とは、1つの式の中に演算子が複数ある場合、どの …
-
-
VBA で正規表現を使う(RegExp オブジェクトのプロパティ)
RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …
