ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

配列の添字の最小値を「1」に設定する

      2015/03/30

Option Base ステートメントを使用する


【書式】
Option Base 1


添字の既定の最小値は 0 です。Option Base ステートメントを使うと既定の最小値を 1 に設定できます。

Option Base ステートメントを使用する場合は、モジュール内のどのプロシージャよりも前に記述する必要があります。Option Base ステートメントは、モジュール内で一度だけ、次元を含む配列の宣言よりも前に記述します。

Option Base ステートメントの設定が有効になるのは、ステートメントが記述されているモジュール内の配列の添字の最小値のみです。


Option Base ステートメントを設定する

モジュールの宣言セクションに Option Base 1 を指定するとモジュール内の配列の添字の最小値が「1」に設定されます。

Open Base ステートメント例1


VBAソース


実行結果

Option Base 1 ステートメントを設定しているため添字の最小値が「1」となります。
( ※ UBound 関数・LBound 関数 は、それぞれ配列の添字の最大値・最小値を取得します。)

Option Base 1 ステートメント例2



Option Base ステートメントに影響されない関数など

Option Base ステートメントを使用しても Split 関数キーワード ParamArray を使って作成する配列の添字の最小値は 0 のままです。
つまり、Split 関数キーワード ParamArray は、Option Base ステートメントの影響を受けません。

例 Split関数(※ Array 関数 と比較)


実行結果

Array 関数は、Open Base ステートメントの影響を受けるため、val1(1)は、「1」を表示します。一方、Split 関数は、Open Base ステートメントの影響を受けないため、val2(1)は、「20」を表示します。

Option Base 1 ステートメント例3


例 キーワード ParamArray


実行結果

Option Base 1 ステートメントの影響を受けていないので、「12」が表示されます。

Option Base 1 ステートメント例4



 - VBA基本 , , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

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

  関連記事

no image
VBA の演算子(比較演算子)

比較演算子 比較演算子による演算の結果は「真」の場合は「True」、「偽」の場合 …

ポイント単位の値に変換(CentimetersToPoints,InchesToPoints)

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

文字列:文字列の空白を削除(Trim 関数, LTrim関数, RTrim関数)

Trim 関数・LTrim 関数・RTrim 関数の使い方 【書式】 <先頭と末 …

no image
XlThemeColor 列挙型

XlThemeColor 列挙 定数 値 内容 xlThemeColorDark …

列挙型変数(Enum ステートメント)

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

式を評価し、結果(真・偽)に応じた式・値を返す(IIf 関数)

IIf 関数 の使い方 IIf(アイイフ)関数は、式を評価してその結果(真・偽) …

Randomize 関数 例1
乱数ジェネレータを初期化 (乱数系列を再設定) する(Randomize ステートメント)

Randomize ステートメントの使い方 Rnd 関数 を使用する前に使用しま …

定数(改行・タブ) 使用例
文字列:定数(改行・タブ)

改行・タブの定数 これらの定数は、使用前に定義する必要はありません。コード中のど …

インプットボックスを表示する(InputBox関数・InputBoxメソッド)

「InputBox関数」と「InputBoxメソッド」の違い 「InputBox …

RGB値一覧表
RGB 値一覧表(XlRgbColor 列挙型)

RGB 値(XlRgbColor 列挙型)一覧表 RGB 関数を使用して、出力さ …