Excel VBA質問箱 IV

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

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


54101 / 76732 ←次へ | 前へ→

【27433】ラベル上でデータを複数行表示する
質問  中川  - 05/8/9(火) 11:29 -

引用なし
パスワード
   ユーザーフォーム上のラベルへ複数項目を表示するため、「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
0 hits

【27433】ラベル上でデータを複数行表示する 中川 05/8/9(火) 11:29 質問
【27434】Re:ラベル上でデータを複数行表示する Jaka 05/8/9(火) 11:42 回答
【27435】Re:ラベル上でデータを複数行表示する りん 05/8/9(火) 11:43 回答
【27443】Re:ラベル上でデータを複数行表示する 中川 05/8/9(火) 15:16 お礼

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