excel - 1 つのラベルに 3 つの Excel 列を挿入する

Question

3 列のデータがあります。vba を使用して userForm のラベルに情報を挿入する方法はありますか?

これが私が持っている更新されたコードです:

Dim rowNum As Integer
Dim lastRow As Integer
lastRow = 373

For rowNum = 2 To lastRow

report = Sheets("DATA2").Range("F" & rowNum).Text & _
"      " & Sheets("DATA2").Range("G" & rowNum).Text & _
"      " & Sheets("DATA2").Range("H" & rowNum).Text & vbCrLf

Next rowNum

End Sub

Answer 1

試す：

Dim rowNum as Integer 'loop counter  
Dim lastRow as Integer
lastRow = 'some code to set the row number of the bottom row

For rowNum = 1 to lastRow
    With ActiveWorksheet
        myLabel.Text = myLabel.Text & .Range("A" & rowNum).Text & " " & .Range("B" & rowNum).Text & " " & .Range("C" & rowNum).Text & vbCrLf
    End With
Next rowNum

編集

上書きする代わりに各ループを追加するように更新されました

Answer 2

ラベルが複数の行を処理できると仮定すると、データの各列を反復処理して新しい行として文字列に追加するループを記述し、そのラベルのテキストフィールドを作成した文字列に設定できます。