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

関連記事

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

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

: 文字列：指定した文字の文字コードを取得する（Asc 関数）

Asc 関数【書式】 result = Asc ( string ) 引数・戻 …

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

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

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

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

: 式の値に応じて多分岐を行う（Switch 関数）

Switch 関数の使い方 Switch 関数は、「式・値」を対にして指定して …

: VBA の演算子（演算子の優先順位）

演算子の優先順位演算子の優先順位とは、１つの式の中に演算子が複数ある場合、どの …

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

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

: VBA で正規表現を使う（RegExp オブジェクト）

RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …

: 文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）

InStrRev 関数任意の文字列の中で、指定した文字列を最後から検索して、見 …

: フォント名（Name,ThemeFont,StandardFont）

フォント名を取得・設定する（Name プロパティ） Name プロパティは、オブ …

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