ユーザー定義定数（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 |
実行結果
関連記事
-
-
列挙型変数（Enum ステートメント）
列挙型変数を使う 列挙型変数を使用するには、Enum ステートメントを使って、宣 …
-
-
日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）
現在の日付・時刻を取得・設定 現在の日付・時刻を取得（Now 関数、Date 関 …
-
-
Array 関数（バリアント型の配列を作成）
Array 関数の使い方 【書式】 myArray = Array ( elem …
-
-
ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す（Partition 関数）
Partition 関数 の使い方 Partition 関数は、ある数値が、区切 …
-
-
VBA で正規表現を使う（RegExp オブジェクト）
RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …
-
-
フォントサイズ（Size プロパティ・StandardFontSize プロパティ）
フォントサイズを取得・設定する（Size プロパティ） Size プロパティは、 …
-
-
VBA で正規表現を使う（RegExp オブジェクトのプロパティ）
RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …
-
-
文字列：２つの文字列を比較する（StrComp 関数）
StrComp 関数の使い方 【書式】 result = StrComp ( s …
-
-
文字列：定数（改行・タブ）
改行・タブの定数 これらの定数は、使用前に定義する必要はありません。コード中のど …
-
-
指定した数のスペースを挿入する（Spc 関数）
指定した数のスペースを挿入 指定した数のスペースを挿入するには、Spc 関数を使 …