Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18854 / 76732

←次へ　｜　前へ→


	【63316】Re:ボタンを押下して複数シート内の1シートを表示させたい

あ - 09/10/26(月) 13:05 -


	引用なし

	パスワード

リストボックスで表示しようと思っています。

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

以上のようなコーディングをしているのですが、
表示されるのが１列目だけしか表示されません。
どこがおかしいのかわかりません。
教えて頂けないでしょうか。

0 hits

▼

【63268】ボタンを押下して複数シート内の1シートを表示させたい あ 09/10/21(水) 13:06