Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
Dim DongCuoi1 As LongDim DongCuoi2 As LongDim WB1 As WorkbookDim DL As WorksheetsSet DL = ThisWorkbookSheets("Dulieu")Em
Dim DongCuoi1 As Long
Dim DongCuoi2 As Long
Dim WB1 As Workbook
Dim DL As Worksheets
Set DL = ThisWorkbook.Sheets("Dulieu")
Em chạy code đến dòng này đã bị lỗi "Subscrip out of range" là sao ạ
3 câu trả lời
239 lượt xem
vỗ tay
Chào bạn bạn có sheets tên là Dulieu không?
vỗ tay
Có thầy ạ, em sửa thành Set DL = Sheets("Dulieu") thì nó lại chạy, k hiểu bị làm sao ạ
vỗ tay
Bạn chú ý cú pháp này
Dim DL As Worksheets
từ Worksheet sẽ không có chữ s ở sau nhé.
Bạn viết Worksheets sẽ hiểu khác, nên code báo lỗi.
Khi viết Set DL = Sheets("Dulieu") nó được hiểu là sheet DuLieu có ở nhiều sheet khác nhau trên nhiều workboook (bởi không chỉ định workbook nào) nên vẫn chạy, nhưng về bản chất thì không đúng.
vỗ tay
Câu hỏi liên quan
Top
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