|
リストボックスで表示しようと思っています。
Option Explicit
|
|
|
Private Sub CommandButton1_Click()
frmExcelDisp.Show
End Sub
|
|
|
【frmExcelDisp側】
Option Explicit
Private i As Integer
Private j As Integer
Private Type JYOUHOU_EXCEL
sRenban(1 To 140) As String
sRiyouNo(1 To 140) As String
sName(1 To 140) As String
End Type
Private JYOUHOU_EXCEL_DISP As JYOUHOU_EXCEL
Private JYOUHOU_DISP As String
|
|
|
Private Sub UserForm_Initialize()
|
|
|
ListBox1.Clear
With ListBox1
.ColumnCount = 5
.ColumnWidths = "24;12;40;12;24"
End With
With JYOUHOU_EXCEL_DISP
For i = 1 To 120
j = i + 2
JYOUHOU_DISP = Empty
JYOUHOU_DISP = .sRenban(j) & "|" & _
.sRiyouNo(j) & "|" & _
.sName(j)
ListBox1.AddItem JYOUHOU_DISP
Next i
End With
End sub
以上のようなコーディングをしているのですが、
表示されるのが1列目だけしか表示されません。
どこがおかしいのかわかりません。
教えて頂けないでしょうか。
|
|