ユーザー定義定数（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 |
実行結果
関連記事
-
-
文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）
InStrRev 関数 任意の文字列の中で、指定した文字列を最後から検索して、見 …
-
-
配列（多次元配列・配列の次元の変更）
多次元配列 【書式】 多次元配列の宣言 ＜静的配列（固定長配列）＞ Dim my …
-
-
文字列：文字を指定数並べた文字列を返す（String 関数）
String 関数 【書式】 result = String ( number, …
-
-
日付時刻：経過時間を取得（ Timer 関数 ）
Timer 関数の使い方 【書式】 result = Timer () 【戻り値 …
-
-
日付時刻：日付時刻から情報取得（ DatePart 関数 ）
DatePart 関数（日付・時刻の値から情報を取得） 【書式】 result …
-
-
列挙型変数（Enum ステートメント）
列挙型変数を使う 列挙型変数を使用するには、Enum ステートメントを使って、宣 …
-
-
オートシェイプの種類を表す定数（MsoAutoShapeType 列挙型）
MsoAutoShapeType 列挙型 オートシェイプオブジェクトの図形の種類 …
-
-
ユーザー設定リストを使って並べ替える（Sort）
VBAでリスト、テーブルを並べ替える（Sort） VBAで、ソートを行うには、S …
-
-
フォントの設定（Font プロパティ）
フォントの設定（Font プロパティ） 指定されたオブジェクトのフォント情報（F …
-
-
文字列：文字列の空白を削除（Trim 関数, LTrim関数, RTrim関数）
Trim 関数・LTrim 関数・RTrim 関数の使い方 【書式】 ＜先頭と末 …