Вставка 3 столбцов Excel в 1 ярлык - PullRequest
0 голосов
/ 14 апреля 2011

У меня есть три столбца данных.Есть ли способ с помощью vba вставить информацию в метку пользовательской формы?

Вот обновленный код, который у меня есть:

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 ]

2 голосов
/ 14 апреля 2011

Попробуйте:

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

РЕДАКТИРОВАТЬ

Обновлено для добавления каждого цикла вместо перезаписи

0 голосов
/ 14 апреля 2011

Предполагая, что ваша метка может обрабатывать несколько строк, вы можете написать цикл, который выполняет итерацию по каждому столбцу данных и добавляет его к строке как новую строку, а затем присваивает текстовому полю этой метки строку, которую вы создали.

...