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

関連記事

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

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

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

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

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

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

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

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

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

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

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

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

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

: 文字列：文字列の指定した位置から指定文字数取得（Mid 関数,MidB 関数）

Mid 関数・MidB 関数の使い方【書式】 result_mid = Mi …

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

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

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

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

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