[[20120513220338]]　『VBA:Labelの改行表示』（さんちゃん）　ページの最後に飛ぶ

『VBA:Labelの改行表示』（さんちゃん）

Excel 2010
OS win7 64bit

Sheet問題点記録表のR列とCombobox８を対比した結果をLabel37に表示したいのですが
以下の構文では最終行の表示となってしまいます。
結果は、複数データですので、改行表示させたいのですが、どのようにしたら良いのか
わかりません。
VBAマイスターの方、ご教授お願いします。

Private Sub ComboBox8_Change()
Dim sekei As String
Dim LO As Integer
Dim shM As Worksheet

Set shM = Sheets("問題点記録表")

sekei = ComboBox8.Text
LO = shM.Range("E65536").End(xlUp).Row '''''H(問題点最終行

 For K = 1 To LO
  If shM.Cells(K + 9, 18) = sekei Then
      JO = shM.Cells(K + 9, 1).Text
    If shM.Cells(K + 9, 17) = "" Then
       Me.Label37.Caption = JO & vbCrLf
    End If
  End If

 Next K
End Sub

 中身はよく見ていませんが追記していきたいなら、
   Me.Label37.Caption = JO & vbCrLf
 を
   Me.Label37.Caption = Me.Label37.Caption & vbCrLf & JO
 としてどうでしょうか。

 For の前で、一度
   Me.Label37.Caption = ""
 としておけば、実行ごとに処理で更新されます。
 (Mook)

(Mook)様、また早急な回答いただきましてありがとうございます。
うまくできました。
ところで、
Me.Label37.Caption = Me.Label37.Caption & vbCrLf & JO
Me.Label37.Caption = Me.Label37.Caption &　　　←
なぜ、＝の後にMe.Label37と記載するのでしょうか？

繰り返しで、現在のTextを拾っていくのですね。
なるほど、勉強になりました。

本日2回目の回答、たびたび助かりました。
ありがとうございました。
本当に助かりました。m(..)mまた、ご教授お願いいたします。

コメント返信：

[ 一覧(最新更新順) ]

[[20120513220338]] 『VBA:Labelの改行表示』（さんちゃん） ページの最後に飛ぶ

[[20120513220338]]　『VBA:Labelの改行表示』（さんちゃん）　ページの最後に飛ぶ