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

関連記事

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

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

: 引数が省略されたかどうかをチェックする（ IsMissing 関数）

IsMissing 関数の使い方【書式】 result = IsMissing …

: 文字列：文字列の一部を別の文字列で置換（Replace 関数）

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

: 文字列：文字列を検索してその最初の文字位置を返す（InStr 関数,InStrB 関数）

InStr 関数・InStrB 関数の使い方【書式】 result = { I …

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

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

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

Option Base ステートメントを使用する【書式】 Option Bas …

: VBAの変数宣言

VBAの変数宣言について変数を暗黙的に宣言するエクセル VBA の場合、明示 …

: ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）

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

: 変数がオブジェクト型かどうかをチェックする（ IsObject 関数）

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

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

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