ユーザー定義定数(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 |
実行結果
関連記事
-
-
セルのデータを区切り文字で複数のセルに分割する(TextToColumns メソッド)
TextToColumns メソッド TextToColumns メソッドを使用 …
-
-
カレントフォルダ(CurDir 関数、ChDir ステートメント、ChDrive ステートメント)
カレントフォルダ カレントフォルダとは、ブックを開いたり保存するときに既定で参照 …
-
-
文字列:文字列左から指定文字数取得(Left 関数,LeftB 関数)
Left 関数・LeftB 関数 の使い方 【書式】 result_left = …
-
-
フォント 太字・斜体(Bold, Italic, FontStyle プロパティ)
太字の設定(Bold プロパティ) Bold プロパティは、フォントを太字にする …
-
-
オブジェクトの書式をクリアする(ClearFormats メソッド)
ClearFormats メソッド 対象となるオブジェクトの書式(スタイル)を初 …
-
-
文字に下線を設定する(Underline プロパティ)
下線を設定(Underline プロパティ) Underline プロパティは、 …
-
-
文字列:文字列の空白を削除(Trim 関数, LTrim関数, RTrim関数)
Trim 関数・LTrim 関数・RTrim 関数の使い方 【書式】 <先頭と末 …
-
-
変数がオブジェクト型かどうかをチェックする( IsObject 関数 )
IsObject 関数の使い方 【書式】 result = IsObject ( …
-
-
VBA の演算子(文字連結演算子:& 演算子 + 演算子)
文字連結演算子 文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …
-
-
ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す(Partition 関数)
Partition 関数 の使い方 Partition 関数は、ある数値が、区切 …
