Range của Sheet vào Label trong UserForm

[148btx]

Xin hỏi, tôi muốn cho cả một Range (bảng dữ liệu) vào Label1 của UserForm1 mỗi khi gọi UserForm1 ra có được không ?

Sub UserForm1_Call ()
UserForm1.Label1.RowSource = Worksheets("Sheet1").Range("A120").Value
hay là:
Label1.Caption = Worksheets("Sheet1").Range("A120").Copy

UserForm1.Show
End Sub

Làm như trên nhưng chưa được, xin chỉ giúp

 

[hoangdanh282vn]

Xin hỏi, tôi muốn cho cả một Range (bảng dữ liệu) vào Label1 của UserForm1 mỗi khi gọi UserForm1 ra có được không ?

Sub UserForm1_Call ()
UserForm1.Label1.RowSource = Worksheets("Sheet1").Range("A120").Value
hay là:
Label1.Caption = Worksheets("Sheet1").Range("A120").Copy

UserForm1.Show
End Sub

Làm như trên nhưng chưa được, xin chỉ giúp

Bạn xem VD minh họa sau :

Private Sub UserForm_Activate()
Dim Cell As Range, Caption As String
For Each Cell In Sheet1.[A1:A10]
     Caption = Caption & Cell.Value & Chr(13)
Next
Me.Label1.Caption = Caption
End Sub

 

[sealand]

Bạn xem thử mình load vào caption