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

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

【63268】ボタンを押下して複数シート内の1シートを表示させたい 09/10/21(水) 13:06 質問
【63285】Re:ボタンを押下して複数シート内の1シート... neptune 09/10/22(木) 22:06 発言
【63294】Re:ボタンを押下して複数シート内の1シート... 09/10/23(金) 16:52 質問
【63298】Re:ボタンを押下して複数シート内の1シート... neptune 09/10/23(金) 23:17 発言
【63316】Re:ボタンを押下して複数シート内の1シート... 09/10/26(月) 13:05 お礼
【63321】Re:ボタンを押下して複数シート内の1シート... neptune 09/10/26(月) 15:20 回答

18854 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free