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

関連記事

: 指定した値を16進数で表記した文字列に変換する（Hex 関数）

Hex 関数の使い方【書式】 result = Hex ( expressi …

: セルのデータを区切り文字で複数のセルに分割する（TextToColumns メソッド）

TextToColumns メソッド TextToColumns メソッドを使用 …

: ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）

CentimetersToPoints メソッドセンチメートル単位の値をポイン …

: Array 関数（バリアント型の配列を作成）

Array 関数の使い方【書式】 myArray = Array ( elem …

: 取り消し線を設定する（Strikethrough プロパティ)

取り消し線を設定する（Strikethrough プロパティ) Striketh …

: セルのデータを固定長形式で複数のセルに分割する（TextToColumns メソッド・Parse メソッド）

固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …

: 乱数を生成する（Rnd 関数）

Rnd 関数の使い方 Rnd 関数は、0 以上、1 未満の範囲の乱数を単精度浮動 …

: VBA で正規表現を使う（RegExp オブジェクトのメソッド）

RegExp オブジェクトのメソッド RegExp オブジェクトの詳細に関しては …

: コレクション（Collection）オブジェクト「連想配列」

コレクション（Collection）オブジェクトの使い方【書式】 Dim my …

: ユーザー設定リストを使って並べ替える（Sort）

VBAでリスト、テーブルを並べ替える（Sort） VBAで、ソートを行うには、S …

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