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

関連記事

: 日付時刻：年・月・日を取得（Year、Month、Day 関数）

日付から年・月・日を取得する関数【書式】 date_year = Year ( …

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

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

: データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）

VarType 関数の使い方 VarType 関数は、引数に、データ型を調べた …

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

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

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

: 文字列：文字列右から指定文字数取得（Right 関数,RightB 関数）

Right 関数・RightB 関数の使い方【書式】 result_righ …

: ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す（Partition 関数）

Partition 関数の使い方 Partition 関数は、ある数値が、区切 …

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

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

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

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

: 文字列：文字を指定数並べた文字列を返す（String 関数）

String 関数【書式】 result = String ( number, …

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