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 ブログランキングへ