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

ユーザー定義型変数を使う（Type ステートメント）

2015/05/01

Type ステートメントを使う

Type ステートメントを使うと１つまたは複数の要素をユーザー定義型として１つにまとめて扱うことができます。

【構文】

[ Private | Public ] Type varname

　　element As element_type

　　[ …… ]

End Type

【項目の説明】

varname ・・・宣言するユーザー定義型の名前
element ・・・ユーザー定義型の要素名
element_type ・・・ユーザー定義型の要素 element のデータ型
[ …… ] ・・・要素が複数ある場合、element,element_typeを記述します。

Public を指定するとすべてのモジュールのどのプロシージャからも参照できます。一方、Private を指定すると宣言が行われたモジュール内でしか参照できなくなります。

ユーザー定義型の変数を宣言し使用する場合は、その変数名の後にピリオド(.)を入力するとその要素名のリストが表示されます。

ユーザー定義型の配列に対しては、For Each … Next ステートメントを使用することはできません。配列要素の繰り返しには、通常の For … Next ステートメントを使用します。

Type ステートメント使用例

サンプルVBAソース

　
'--------------------------------------------------------------------
' ユーザー定義型
'--------------------------------------------------------------------
Type myAddress

    ID As Integer
    Namae As String
    Birthday As Date
    Syumi As Variant

End Type
'--------------------------------------------------------------------
' ユーザー定義型変数を使う
'--------------------------------------------------------------------
Sub Sample()

    Dim myData(1 To 5) As myAddress
    Dim i As Long, str As String
    
    With ActiveWorkbook.Worksheets("Sheet1")
    
        For i = 1 To 5
            
            myData(i).ID = .Cells(i + 1, 1).Value
            myData(i).Namae = .Cells(i + 1, 2).Value
            myData(i).Birthday = .Cells(i + 1, 3).Value
            myData(i).Syumi = Split(.Cells(i + 1, 4).Value, "、")
            
        Next i
        
    End With

    For i = 1 To 5
        
        str = str & " " & myData(i).ID
        str = str & " " & myData(i).Namae
        str = str & " " & myData(i).Birthday
        str = str & " " & Join(myData(i).Syumi, ",")
        str = str & Chr(13)
        
    Next i

    MsgBox str
    
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

35

36

37

38

39

40

41

42

43

44

45

46

47

48

　

'--------------------------------------------------------------------

' ユーザー定義型

'--------------------------------------------------------------------

Type myAddress

ID As Integer

Namae As String

Birthday As Date

Syumi As Variant

End Type

'--------------------------------------------------------------------

' ユーザー定義型変数を使う

'--------------------------------------------------------------------

Sub Sample()

Dim myData(1 To 5) As myAddress

Dim i As Long, str As String

With ActiveWorkbook.Worksheets("Sheet1")

For i = 1 To 5

myData(i).ID = .Cells(i + 1, 1).Value

myData(i).Namae = .Cells(i + 1, 2).Value

myData(i).Birthday = .Cells(i + 1, 3).Value

myData(i).Syumi = Split(.Cells(i + 1, 4).Value, "、")

Next i

End With

For i = 1 To 5

str = str & " " & myData(i).ID

str = str & " " & myData(i).Namae

str = str & " " & myData(i).Birthday

str = str & " " & Join(myData(i).Syumi, ",")

str = str & Chr(13)

Next i

MsgBox str

End Sub

　

実行結果

- 構文 type ステートメント, エクセルVBA, ユーザー定義型変数, 構文

Tweet

Message コメントをキャンセル

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

関連記事

: 省略可能な引数・デフォルト値を設定（ Optional キーワード）

Optional キーワード Optional キーワードを使用するとプロシージ …

: 繰り返し処理（While…Wend ステートメント）

While…Wend ステートメントの使い方【構文】 While …

: 条件分岐 If文（If…Then…Else ステートメント）

If…Then…Else ステートメントの使い方【構文 …

: 繰り返し処理（Do…Loop ステートメント）

Do…Loop ステートメントの使い方【構文 1】 Do [ Wh …

: プロシージャ内のサブルーチンへ移動（GoTo ステートメント）

GoTo ステートメント GoTo ステートメントは、指定したラベルのサブルーチ …

: set ステートメントを使う

Set ステートメントを使う【構文 1】 Dim objectvar [ As …

: プロシージャ内のサブルーチンへ移動（GoSub…Return ステートメント）

GoSub…Return ステートメント GoSub ステートメント …

: With ステートメントを使う

With ステートメントを使う With ステートメントを使うことで、１度指定し …

: 引数の参照渡し・値渡し（ ByRef, ByVal ）

引数の「参照渡し」と「値渡し」「参照渡し」とはプロシージャに引数として変数を渡 …

: 条件分岐（Select Case ステートメント）

Select Case ステートメントの使い方【構文】 Select Case …

PREV: With ステートメントを使う
NEXT: set ステートメントを使う