vba lấy dữ liệu từ các ô được chọn (1 người xem)

[nlquynhtram]

Chào mọi người,

Mình đang làm file excel có chức năng lấy giá trị của một hoặc nhiều ô được chọn. Giá trị lấy được chuyển qua một cell trung gian [j3], sau đó sẽ hiển thị trên label màu xanh. Khi chọn từng cell thi code chạy ok, nhưng khi chọn nhiều cell thì báo lỗi type mismatch.

code mình bên dưới:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim i As Integer
Dim RG As Variant
RG = Array(Target.Value)
For i = LBound(RG) To UBound(RG)
        [J3] = [J3] & " " & RG(i)
Next i
End Sub

Mong mọi người góp ý

 

[ndu96081631]

Chào mọi người,

Mình đang làm file excel có chức năng lấy giá trị của một hoặc nhiều ô được chọn. Giá trị lấy được chuyển qua một cell trung gian [j3], sau đó sẽ hiển thị trên label màu xanh. Khi chọn từng cell thi code chạy ok, nhưng khi chọn nhiều cell thì báo lỗi type mismatch.
View attachment 170907
code mình bên dưới:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim i As Integer
Dim RG As Variant
RG = Array(Target.Value)
For i = LBound(RG) To UBound(RG)
        [J3] = [J3] & " " & RG(i)
Next i
End Sub

Mong mọi người góp ý

Vầy mới đúng:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim RG As Variant, item As Variant
  RG = Target.Value
  If Not IsArray(RG) Then RG = Array(RG)
  For Each item In RG
    [J3] = [J3] & " " & item
  Next
End Sub

 

[nlquynhtram]

cám ơn anh ndu96081631 nhiều nhé.