Ha Lien
Ha Lien
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 122 lượt xem

Tại sao đoạn Code này lại báo lỗi #1004 ạ ( phần bài tập 4049 quan ly thu

Tại sao đoạn Code này lại báo lỗi #1004 ạ: ( phần bài tập 4049 - quan ly thu chi)

Sub chuyenDL()

    Dim DC As Long

        DC = Sheets("Data_ThuChi").Cells(Rows.Count, 1).End(xlUp).Row

        Sheets("Data_ThuChi").Range("a:" & DC + 1).Value = _

        Sheets("Form").Range("C6").Value

        

        Sheets("Data_ThuChi").Range("b:" & DC + 1).Value = _

        Sheets("Form").Range("C8").Value

        Sheets("Data_ThuChi").Range("c:" & DC + 1).Value = _

        Sheets("Form").Range("E8").Value

        Sheets("data_thuchi").Range("d:" & DC + 1).Value = _

        Sheets("Form").Range("C10").Value

        Sheets("data_thuchi").Range("e:" & DC + 1).Value = _

        Sheets("Form").Range("C12").Value

End Sub 

Thảo luận 1 câu trả lời
Lượt xem 122 lượt xem
Vỗ tay vỗ tay
Ha Lien 13:09 - Sep 07, 2021

Bạn viết code cho đối tượng Range chưa đúng. Dấu hai chấm chỉ sử dụng khi dùng cho 1 vùng ô chứ không phải 1 ô.

Sheets("Data_ThuChi").Range("a:" & DC + 1).Value

Phải sửa thành
Sheets("Data_ThuChi").Range("a" & DC + 1).Value


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