어떻게 하다가 보니까, 이제는 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
반응형
'VBA' 카테고리의 다른 글
VBA loop break : exit for (0) | 2014.10.03 |
---|---|
VBA 다시 손대는데 생각보다 재미있구만. (0) | 2014.09.30 |
vba : date_macro (0) | 2014.09.28 |
k-means clustering in vba (0) | 2014.05.28 |
Access VBA (0) | 2013.04.28 |