Hiện đoạn văn bản trên Lable

[NguyenNgocSon]

Em muốn hiện 1 đoạn văn bản trong ô A1
Code:

Private Sub Label1_Click()
Label1.Caption = Worksheets(1).Range("A1")
End Sub

thì đúng.
Nhưng nếu muốn hiện đoạn văn bản từ A1:A4
Code:

Private Sub Label1_Click()
Label1.Caption = Worksheets(1).Range("A1:A4")
End Sub

thì báo lỗi?
Xin mọi người chỉ giáo
Thân !

 

[MinhCong]

Em muốn hiện 1 đoạn văn bản trong ô A1
Code:

Private Sub Label1_Click()
Label1.Caption = Worksheets(1).Range("A1")
End Sub

thì đúng.
Nhưng nếu muốn hiện đoạn văn bản từ A1:A4
Code:

Private Sub Label1_Click()
Label1.Caption = Worksheets(1).Range("A1:A4")
End Sub

thì báo lỗi?
Xin mọi người chỉ giáo
Thân !

Bạn sửa lại như sau xem sao nhé!

Private Sub Label1_Click()
Label1.Caption = Worksheets(1).Range("A1:A4").[COLOR=red]FormulaArray[/COLOR]
End Sub

 

[NguyenNgocSon]

Bạn sửa lại như sau xem sao nhé!

Private Sub Label1_Click()
Label1.Caption = Worksheets(1).Range("A1:A4").[COLOR=red]FormulaArray[/COLOR]
End Sub

Vẫn báo lỗi, không ổn ?

 

[MinhCong]

Vẫn báo lỗi, không ổn ?

Bạn gửi cái file đó lên xem sao nhé! Do trình độ VBA mình còn kém lắm. Theo mình được hiểu nếu muốn nhập cùng 1 lúc nhiều cells thì phải kết hợp tổ hợp phím Ctrl+Shift+Enter nó mói nhập hết 1 lần được.

 

[PhanTuHuong]

Range("A1:A4") là 1 Object dạng mảng, vì vậy gán vào Caption là không ổn. Tốt nhất là dùng vòng lặp duyệt qua từng ô trong mảng đó rồi nối với nhau bằng & hoặc Chr(13),...

 

[ndu96081631]

Em muốn hiện 1 đoạn văn bản trong ô A1
Code:

Private Sub Label1_Click()
Label1.Caption = Worksheets(1).Range("A1")
End Sub

thì đúng.
Nhưng nếu muốn hiện đoạn văn bản từ A1:A4
Code:

Private Sub Label1_Click()
Label1.Caption = Worksheets(1).Range("A1:A4")
End Sub

thì báo lỗi?
Xin mọi người chỉ giáo
Thân !

Sửa thành vầy nhé

Private Sub Label1_Click()
  With WorksheetFunction
    Label1.Caption = Join(.Transpose(Worksheets(1).Range("A1:A4")), vbLf)
  End With
End Sub