Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

Erase ステートメント（配列の初期化・動的配列のメモリ解放）

2015/04/02

Erase ステートメントの使い方

【書式】

Erase myArray [, myArray1, myArray2 … ]

【項目の説明】

myArray ・・・消去する配列の変数名。複数指定する場合は、カンマ (,) で区切ります。

静的配列（通常の配列）の場合：すべての要素がデータ型に応じた初期値（下記の表を参照）でクリアされます。

動的配列：要素の保持自体を破棄し、要素をひとつも持たない宣言時の状態に戻ります（要素に割り当てたメモリは解放します）。
再利用するには、再度 ReDim ステートメントで、要素等をしていします。

静的配列の要素による Erase ステートメント実行結果

配列の型	Erase ステートメント実行結果
数値型の配列	各要素は、「0」に設定されます
文字列型（可変長）の配列	各要素は、長さ「0」の文字列（””）に設定されます
文字列型（固定長）の配列	各要素は、「0」に設定されます
バリアント（ Variant ）型の配列	各要素は、Empty 値に設定されます
ユーザー定義型の配列	各要素は、別々の変数として設定されます
オブジェクト型の配列	各要素は、Nothing に設定されます

Erase ステートメントの使用例

VBAソース

　
'ユーザー定義型の定義
Private Type mynewType

    Name As String
    Num As Long

End Type


Sub sample_erase01()

    Dim intArray(5) As Integer          '整数型配列
    Dim vstrArray(5) As String          '文字列配列（可変長）
    Dim fstrArray(10) As String * 8     '文字列配列（固定長）
    Dim valArray(10) As Variant         'バリアント
    Dim myArray(3) As mynewType         'ユーザー定義
    Dim objArray(3) As Object           'オブジェクト
        
    '上記静的配列を初期化
    Erase intArray, vstrArray, fstrArray, valArray, myArray, objArray
    
    Debug.Print "数値　　　　　：" & intArray(0)
    Debug.Print "文字列（可変）：" & vstrArray(0) & "(長さ= " & Len(vstrArray(0)) & ")"
    Debug.Print "文字列（固定）：" & fstrArray(0) & "(長さ= " & Len(fstrArray(0)) & ")"
    If IsEmpty(valArray(0)) Then Debug.Print "バリアント型　：" & valArray(0) & "(値: " & "Empty" & ")"
    Debug.Print "ユーザー定義　：" & myArray(0).Name
    Debug.Print "ユーザー定義　：" & myArray(0).Num
    If objArray(0) Is Nothing Then Debug.Print "オブジェクト　：" & "(値： " & "Nothing" & ")"


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

26

27

28

29

30

31

32

33

34

　

'ユーザー定義型の定義

Private Type mynewType

Name As String

Num As Long

End Type

Sub sample_erase01()

Dim intArray(5) As Integer '整数型配列

Dim vstrArray(5) As String '文字列配列（可変長）

Dim fstrArray(10) As String * 8 '文字列配列（固定長）

Dim valArray(10) As Variant 'バリアント

Dim myArray(3) As mynewType 'ユーザー定義

Dim objArray(3) As Object 'オブジェクト

'上記静的配列を初期化

Erase intArray, vstrArray, fstrArray, valArray, myArray, objArray

Debug.Print "数値　　　　　：" & intArray(0)

Debug.Print "文字列（可変）：" & vstrArray(0) & "(長さ= " & Len(vstrArray(0)) & ")"

Debug.Print "文字列（固定）：" & fstrArray(0) & "(長さ= " & Len(fstrArray(0)) & ")"

If IsEmpty(valArray(0)) Then Debug.Print "バリアント型　：" & valArray(0) & "(値: " & "Empty" & ")"

Debug.Print "ユーザー定義　：" & myArray(0).Name

Debug.Print "ユーザー定義　：" & myArray(0).Num

If objArray(0) Is Nothing Then Debug.Print "オブジェクト　：" & "(値： " & "Nothing" & ")"

End Sub

　

実行結果

Tweet

Message コメントをキャンセル

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

関連記事

: ユーザー定義関数：自動再計算関数の設定（Volatile メソッド）

ユーザー定義関数で、自動再計算を行うかどうかを設定するワークシート上で使用する …

: 指定した文字列を数値に変換する（Val 関数）

Val 関数の使い方 Val 関数は、指定した文字列に含まれる数字を数値として …

: ユーザー定義定数（Const ステートメント）

定数を使うユーザー定義の定数を使用するには、Const ステートメントを使って …

: テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

Stream オブジェクト ADO（ActiveX Database Objec …

: オートシェイプの種類を表す定数（MsoAutoShapeType 列挙型）

MsoAutoShapeType 列挙型オートシェイプオブジェクトの図形の種類 …

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

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

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

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

: 文字列：指定した数の空白（スペース）からなる文字列を返す（Space 関数）

Space 関数【書式】 result = Space ( number ) …

: 指定した数値に対応する選択肢の値・数式を返す（Choose 関数）

Choose 関数の使い方 Choose 関数は、指定されたインデックス値（１ …

: 色の設定（ThemeColor プロパティ・TintAndShade プロパティ）

ThemeColor プロパティ・TintAndShade プロパティテーマカ …

PREV: 配列（多次元配列・配列の次元の変更）
NEXT: Array 関数（バリアント型の配列を作成）