수다닷컴

Command3를 누르면
Text2에 있는 값들을 MSFlexGrid 안에 넣는 소스를 짤려고 합니다.

예를 들어 Text2에 1 2 3 4 5 6 7 8 9 10 Data 값이 있습니다.
MSFlexGrid1.TextMatric(1,1)=1
MSFlexGrid1.TextMatric(2,1)=2
넣으려고 합니다.

지금 Text2에는 2071개의 데이터 값이 들어있습니다.
rows는 73이고 cols는 37 줄 입니다.

Private Sub Command3_Click()
sValues = Split(Text2.Text, )

Dim i As Integer
Dim j As Integer
Dim e As Integer
For i = 0 To 2071
For e = 1 To 73
For j = 1 To 37
MSFlexGrid1.TextMatrix(e, j) = sValues(i) 이부분이 에러가 나고. 아래 첨자가 잘못되었다고 합니다.
Next
i = i + 1
Next
j = j + 1
Next
e = e + 1

End Sub

실행은 되는데 값이 (1,1) (2,1) (2,2) 등등 모든 칸이 모두 같은 값이 들어갑니다.
무엇이 잘못되었나요?

신청하기