Lấy vị trí vùng chọn tạo vùng chọn mới cho ô trong excel

Chia sẻ bởi:hands

★★★★★

‹ Từ 1 điều kiện tìm ra nhiều... Nhờ sửa code để file mới tạo... ›

Quảng cáo

Chào cả nhà. Em có ý tưởng như sau mà mãi viết code công thức vẫn chưa ra. Anh chị tư vấn giúp em nhé:
1296
Ý tưởng bảng thống kê thép đặt ra:

1- Quét vùng dữ liệu cần thống kê. ( A57:O64)

máy tự chạy ra công thức ô B68 là =SUMIF($J$57:$J$64;D66;$O$57:$O$64)

(Tức là công thức trong ô sẽ nhận dc dòng chọn 57 dến 64). Để sau này có thay đổi số liệu trong thống kê thì bảng tổng hợp nó nhảy theo.

Cách hiện tại em viết vba thì nó nhảy ra số hẳn ô B68 luôn không có công thức nên mỗi lần thay đỗi số liệu thì chạy lại

Sub TaoName_Thep()
    Dim Lr As Long
    Lr = Sheets("........").Range("A" & Rows.Count).End(xlUp).Row
    Dulieu.Range("A57:O" & Lr).Name = "Name_Thep"

End Sub

www.giaiphapexcel.com/diendan/threads/l%E1%BA%A5y-v%E1%BB%8B-tr%C3%AD-v%C3%B9ng-ch%E1%BB%8Dn-t%E1%BA%A1o-v%C3%B9ng-ch%E1%BB%8Dn-m%E1%BB%9Bi-cho-%C3%B4-trong-excel.163391/