|
ユーザーフォーム上のラベルへ複数項目を表示するため、「format」で指定することで、うまく並べることができました。だが、改行して次のデータを表示することができず困っております。
Private Sub UserForm_Initialize()
Workbooks.Open Filename:="D:\genryou-f.csv"
Windows("処理1.xls").Activate
Worksheets("sheet1").Select
Open "D:\genryou-f.csv" For Input As #1
i = 1
Do While Not EOF(1)
For j = 1 To 4
Input #1, genryou(i, j)
Next j
i = i + 1
Loop
Close #1
m = 0
For k = 1 To 5
Label1.Caption = Format(genryou(k + m, 1), "000") & " " & _
Format(genryou(k + m, 2), "&&&&&&&&&&") & " " & _
Format(genryou(k + m, 3), "#,##0") & " " & _
Format(genryou(k + m, 4), "#,##0") & _
Chr(13) & Chr(10)
Next k
End Sub
|
|