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

问题描述

| 我有三列数据。有没有一种方法可以使用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

    

解决方法

尝试：

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

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