Type 科目情報
Code As String
Name As String
End Type
Sub Test()
Dim 科目 As 科目情報
科目.Code = "1112"
科目.Name = "当座預金"
Call TestA(科目)
Call TestB(科目.Code, 科目.Name)
End Sub
'ユーザー定義型変数の引数を参照渡し
Sub TestA(ByRef Kamoku As 科目情報)
MsgBox Kamoku.Code & " " & Kamoku.Name
End Sub
'ユーザー定義型変数の引数を値渡し
Sub TestB(ByVal KamokuCD As String, ByVal KamokuName As String)
MsgBox KamokuCD & " " & KamokuName
End Sub
Microsoft Office ブログランキングへ