将3个Excel列插入1个标签中

时间:2011-04-14 15:28:17

标签: excel vba userform

我有三列数据。有没有办法使用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

2 个答案:

答案 0 :(得分:2)

尝试:

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

修改

更新以附加每个循环而不是覆盖

答案 1 :(得分:0)

假设您的标签可以处理多行,您可以编写循环来遍历每一列数据,并将其作为新行附加到String,然后将该标签的文本字段设置为您创建的字符串。