Nguyễn Thị Thanh Lan
Nguyễn Thị Thanh Lan
Thảo luận 2 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 263 lượt xem

Sub Luu_Du_Lieu()Dim DongCuoi As LongDongCuoi = Sheets("Data")Range("A" & RowsCount)End(xlUp)RowSheets("Data")Range("A"

Sub Luu_Du_Lieu()
Dim DongCuoi As Long
DongCuoi = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Data").Range("A" & DongCuoi + 1).Value = Sheets("Them moi").Range("A3").Value
Sheets("Data").Range("B" & DongCuoi + 1).Value = Sheets("Them moi").Range("E3").Value
Sheets("Data").Range("C" & DongCuoi + 1).Value = Sheets("Them moi").Range("A6").Value
Sheets("Data").Range("D" & DongCuoi + 1).Value = Sheets("Them moi").Range("C6").Value
Sheets("Data").Range("E" & DongCuoi + 1).Value = Sheets("Them moi").Range("E6").Value

End Sub

Sub Xoa_Du_Lieu()
Sheets("Them moi").Range("A3:C3,A6").ClearContents

End Sub
Sub Luu_Du_Lieu_Ket_Qua()
Call Luu_Du_Lieu
Call_Xoa_Du_Lieu
MsgBox "Luu Thanh Cong"
End Sub
Thảo luận 2 câu trả lời
Lượt xem 263 lượt xem
Vỗ tay vỗ tay
Nguyễn Thị Thanh Lan 08:07 - Jul 13, 2020
Chào bạn bạn có thể đẩy file lên được không?
Vỗ tay vỗ tay
Nguyễn Thị Thanh Lan 20:07 - Jul 17, 2020
chào thầy, em đã chạy code dx rồi ạ
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