Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

ユーザー定義定数（Const ステートメント）

2016/02/09

定数を使う

ユーザー定義の定数を使用するには、Const ステートメントを使って、定数の宣言をします。

【構文】

[ Public | Private ] Const constname [ As type ] = expression

引数・戻り値

constname ・・・定義する定数の名前を指定します（省略不可）。
type ・・・定数のデータ型を指定します（省略可）。
expression ・・・格納する値を指定します（省略不可）。

キーワード Public を指定するとその定数は、すべてのモジュールのどのプロシージャからも参照できます。一方、キーワード Private を指定すると宣言が行われたモジュール内でしか参照できなくなります。Public、Private を省略した場合、Private を指定したものとみなされます。

Const ステートメント使用例

サンプルVBAソース

　
'消費税率
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

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

　

実行結果

- VBA基本 Const ステートメント, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 変数が日付型かどうかをチェックする（ IsDate 関数）

IsDate 関数の使い方【書式】 result = IsDate( expr …

: 色の設定（ColorIndex プロパティ・Colors プロパティ）

ColorIndex プロパティ ColorIndex プロパティは、指定したオ …

: Option Compare ステートメント

Option Compare ステートメントの使い方【書式】 Option C …

: 引数の整数部分を取得する（Fix 関数・Int 関数）

Fix 関数・Int 関数の使い方【書式】 number_fix = Fix …

: エラー（CVErr 関数・IsError 関数・Error 関数）

CVErr 関数（エラー番号をエラー値に変換する）の使い方【書式】 retur …

: 変数が配列かどうかをチェックする（ IsArray 関数）

IsArray 関数の使い方【書式】 result = IsArray( va …

: 文字列：文字列を指定した形式に変換する（StrConv 関数）

StrConv 関数の使い方【書式】 result = StrConv ( s …

: データをクリアする（ClearContents メソッド）

ClearContents メソッド対象がセル範囲（Range オブジェクト） …

: 文字列：２つの文字列を比較する（StrComp 関数）

StrComp 関数の使い方【書式】 result = StrComp ( s …

: 日付時刻：文字列から日付・時刻データを取得（ DateValue 関数、TimeValue 関数）

DateValue 関数（文字列から日付データを取得）【書式】 date_va …

PREV: 文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）
NEXT: 列挙型変数（Enum ステートメント）