Excel VBA質問箱 IV

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

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


54099 / 76732 ←次へ | 前へ→

【27435】Re:ラベル上でデータを複数行表示する
回答  りん E-MAIL  - 05/8/9(火) 11:43 -

引用なし
パスワード
   ▼中川 さん:
>ユーザーフォーム上のラベルへ複数項目を表示するため、「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
ここが、文字列を追加するのではなく、上書きになっているので、最終的にk=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

  For k = 1 To 5
   If k > 1 Then lbc = lbc & Chr(13) & Chr(10) '改行
   lbc = lbc & _
      Format(genryou(k + m, 1), "000") & "  " & _
      Format(genryou(k + m, 2), "&&&&&&&&&&") & "  " & _
      Format(genryou(k + m, 3), "#,##0") & "  " & _
      Format(genryou(k + m, 4), "#,##0")
  Next k
  '
  Label1.Caption = lbc

または、
  With Label1
   For k = 1 To 5
     If k = 1 Then .Caption = "" Else .Caption = .Caption & Chr(13) & Chr(10) '改行
     .Caption = .Caption & _
        Format(genryou(k + m, 1), "000") & "  " & _
        Format(genryou(k + m, 2), "&&&&&&&&&&") & "  " & _
        Format(genryou(k + m, 3), "#,##0") & "  " & _
        Format(genryou(k + m, 4), "#,##0")
   Next k
  End With

こんな感じです。
LabelラベルのCaptionは最初からLabel1とかが入っている可能性があったので、1回目にクリアしています。
5回目の後の改行がいらないようなので、最初にもってきました。必要なら後ろにつけてください。
1 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 お礼

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