我有三列数据。有没有办法使用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
答案 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,然后将该标签的文本字段设置为您创建的字符串。