Sub DongCuoi() Dim DongCuoi As Long DongCuoi = Sheet2Range("A" & RowsCount)End(xlUp)Row

Sub DongCuoi()

Dim DongCuoi As Long

DongCuoi = Sheet2.Range("A" & Rows.Count).End(xlUp).Row

End Sub

Sub DienGiaTRi()

Sheet2.Range("A" & DongCuoi + 1).Value = Sheet3.Range("A1").Value

Sheet2.Range("B" & DongCuoi + 1).Value = Sheet3.Range("E3").Value

Sheet2.Range("C" & DongCuoi + 1).Value = Sheet3.Range("A6").Value

Sheet2.Range("D" & DongCuoi + 1).Value = Sheet3.Range("C6").Value

Sheet2.Range("E" & DongCuoi + 1).Value = Sheet3.Range("E6").Value

End Sub

Sub XoaDuLieu()

Sheet3.Range("A3:E3", "A6:E6").ClearContents

End Sub

Code của mình BT1 chương 7, khi chạy code nó báo "DongCuoi" là sao ạ

4 câu trả lời

107 lượt xem

vỗ tay

Nguyễn Thị Huyền 11:09 - Sep 20, 2021

Chào bạn ở trong sub của bạn không có dongcuoi nhé nên sẽ bị lỗi

vỗ tay

Nguyễn Thị Huyền 07:09 - Sep 21, 2021

vậy mình phải làm sao

vỗ tay

Nguyễn Thị Huyền 09:09 - Sep 21, 2021

Chào bạn bạn tạo ra biến dòng cuối ở các sub tương ứng nhé.

vỗ tay

Nguyễn Thị Huyền 08:10 - Oct 02, 2021

Bạn tổng hợp tất cả bước vào trong 1 sub là được: Định nghĩa biến - Gán biến - Nhập liệu - Xóa liệu - Báo Ok.

Có vậy khi gán marco cho 1 nút thì bấm nút mới chạy hết các chức năng này để done 1 cviec

vỗ tay