Nguyễn Bảo Vinh
Nguyễn Bảo Vinh
Thảo luận 2 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 250 lượt xem

tí ạ Ví dụ ở đây chỗ Tên hàng mỗi loại trái cây em tạo 1 sheet riêng

Thầy ơi cho em hỏi tí ạ. Ví dụ ở đây chỗ Tên hàng, mỗi loại trái cây em tạo 1 sheet riêng luôn, và khi chọn loại trái cây nào thì data sẽ được thêm vào sheet tương tứng thì nên làm thế nào được ạ:


Thảo luận 2 câu trả lời
Lượt xem 250 lượt xem
Vỗ tay vỗ tay
Nguyễn Bảo Vinh 09:04 - Apr 03, 2021

Bạn có thể làm thêm 1 bảng tham chiếu để biết tên nào ứng với Sheet nào.

Khi chọn tên tại ô A3, bạn có thể dùng hàm vlookup để biết tên Sheet tại 1 ô khác (ví dụ ô H3)

Sau đó trong code Lưu dữ liệu bạn làm như sau:

Sub Luu_Ket_Qua()
Dim TenSheet as String
TenSheet = Sheets("ThemMoi").Range("H3").Value
Dim DongCuoi as Long
DongCuoi = Sheets(TenSheet).Range("A" & Rows.Count).End(xlUp),Row
Sheets(TenSheet).Range("A" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("A3").Value
Sheets(TenSheet).Range("B" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("E3").Value
Sheets(TenSheet).Range("C" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("A6").Value
Sheets(TenSheet).Range("D" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("C6").Value
Sheets(TenSheet).Range("E" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("E6").Value
End Sub
Vỗ tay vỗ tay
Nguyễn Bảo Vinh 14:04 - Apr 03, 2021

Em đã thử và thành công, cảm ơn thầy ạ.

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông