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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: VBA の演算子（文字連結演算子：& 演算子 + 演算子）

文字連結演算子文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …

: 配列の要素数を取得する（UBound 関数・LBound 関数）

UBound 関数・LBound 関数【書式】 result = UBound …

: 引数が省略されたかどうかをチェックする（ IsMissing 関数）

IsMissing 関数の使い方【書式】 result = IsMissing …

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

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

: 画面の更新を停止（ScreenUpdating プロパティ）

画面の更新を停止マクロを実行すると、画面が更新されます。これにより、実行速度が …

: カレントフォルダ（CurDir 関数、ChDir ステートメント、ChDrive ステートメント）

カレントフォルダカレントフォルダとは、ブックを開いたり保存するときに既定で参照 …

: IME の現在の状態を取得します（IMEStatus 関数）

IMEStatus 関数の使い方【書式】 result = IMEStatus …

: 列挙型変数（Enum ステートメント）

列挙型変数を使う列挙型変数を使用するには、Enum ステートメントを使って、宣 …

: 日付時刻：日付から曜日を取得（ Weekday 関数、WeekdayName 関数）

Weekday 関数（日付から曜日を表す数値を返す）の使い方【書式】 week …

: 色の設定（Color プロパティ・RGB 関数）

Color プロパティ Color プロパティは、指定したオブジェクトの色を取得 …

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