ユーザー定義定数（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 |
実行結果
関連記事
-
-
日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）
現在の日付・時刻を取得・設定 現在の日付・時刻を取得（Now 関数、Date 関 …
-
-
乱数を生成する（Rnd 関数）
Rnd 関数の使い方 Rnd 関数は、0 以上、1 未満の範囲の乱数を単精度浮動 …
-
-
セルのデータを区切り文字で複数のセルに分割する（TextToColumns メソッド）
TextToColumns メソッド TextToColumns メソッドを使用 …
-
-
文字列：アルファベットを小文字または大文字に変換（LCase 関数,UCase 関数）
LCase 関数・UCase 関数 の使い方 【書式】 ＜アルファベットの大文字 …
-
-
データ型変換関数
データ型変換関数の使い方 【書式】 function ( expression …
-
-
RGB 値一覧表（XlRgbColor 列挙型）
RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …
-
-
色の設定（Color プロパティ・RGB 関数）
Color プロパティ Color プロパティは、指定したオブジェクトの色を取得 …
-
-
変数が日付型かどうかをチェックする（ IsDate 関数 ）
IsDate 関数の使い方 【書式】 result = IsDate( expr …
-
-
Array 関数（バリアント型の配列を作成）
Array 関数の使い方 【書式】 myArray = Array ( elem …
-
-
文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）
Mid・MidB ステートメントの使い方 【書式】 { Mid | MidB } …