VBA 구조체

 어떻게 하다가 보니까, 이제는 VBA에서 구조체까지 가게 되는구나. 솔직히 이야기 하면 이렇게라도 할 수 있는게 다행이다 이런 생각이 들 정도이네.

http://www.java2s.com/Code/VBA-Excel-Access-Word/Data-Type/AnExampleofUsingaTypeStructure.htm

 이렇게 구조체를 만들어야 할지도 모르겠는데...

테스트를 해보니 다행히도 되는구나. 이것 갖고 내일 회사 가서 비슷하게 연산하는 것만 짜면 되겠구나. 에효...

Option Base 0


Public Type vin
    vintage As Double
    mob As Integer
    bal As Double
End Type


Public Sub test()
    Dim i, j As Double
    Dim kj_vin(144) As vin
   
    For i = 0 To 11
        For j = 0 To 11
            kj_vin(i * 12 + j).vintage = 201401 + (i * 100) + j
            '201401 + (i * 100) + j
            kj_vin(i * 12 + j).mob = j
            kj_vin(i * 12 + j).bal = 100
        Next j
    Next i
   
    Debug.Print kj_vin(143).vintage
End Sub