nguyenanhkietgo
Thành viên mới
![](/diendan/data/PhoToDanhHieu/gold.gif)
- Tham gia
- 13/7/23
- Bài viết
- 5
- Được thích
- 0
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:E4")) Is Nothing Then
Sheet2.Range("B2:B6").Value = Application.Transpose(Range(Cells(Target.Row, 1).Address, Cells(Target.Row, 5).Address))
End If
End Sub
Code ko chạy anh ạHàm thì tớ chưa nghĩ ra món trỏ chuột. Cái này dán vào Sheet "BAO CAO", nếu chưa biết dán thì thôi bỏ qua chờ phương án khác nhé.
Mã:Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A2:E4")) Is Nothing Then Sheet2.Range("B2:B6").Value = Application.Transpose(Range(Cells(Target.Row, 1).Address, Cells(Target.Row, 5).Address)) End If End Sub