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á.

Chương trình hội viên Gitiho

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

480+ khóa học

15 Danh mục theo kỹ năng, ngành nghề

Năng lực Lõi, Năng lực Chuyên môn, Năng lực Bổ trợ, Năng lực Quản lý

Khám phá ngay

2000+ đã đăng ký

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

83 khóa học Tin học văn phòng

85 khóa học Kỹ năng mềm

29 khóa học Ngoại ngữ

Khám phá ngay

500+ đã đăng ký

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

  1. Trang chủ
  2. Hỏi đáp
  3. Trang chủ
  4. Hỏi đáp
Lưu Văn Tuấn
Lưu Văn Tuấn
Thảo luận 1 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 68 lượt xem

Làm thế nào để khắc phục lỗi Run-time error trong VBA Excel?

Làm thế nào để khắc phục lỗi Run-time error trong VBA Excel? Em cứ gặp lỗi này hoài ạ.

Thảo luận 1 câu trả lời
Lượt xem 68 lượt xem
Vỗ tay vỗ tay
Chia sẻ
Lưu Văn Tuấn 10:10 - Oct 29, 2022

Bạn thử như sau 

Workbooks("Book3.xlsm").sheets("Data").range(…).value = Workbooks("Book1.xlsx")….

Vỗ tay vỗ tay
Câu hỏi liên quan
Thầy cho E hỏi với ạ, e viết đoạn code cho dữ liệu vào workbook tổng như sau nhưng ko chạy đc Dim DongCuoi_WB02 As Long DongCuoi_WB02=Workbooks("book2").Sheets("sheet1").range("A" & Rows.count).end(xlup).row KhoangCach_WB02=DongCuoi_WB2-2+1 Dim DongCuoi_WB04=Workbooks("book4").sheets("data").range("A"&...
workbooks("book2") Workbooks("book4") Không nên dùng trực tiếp như thế này. Bạn nên đặt biến đại diện cho các workbook này, sau đó viết theo biến sẽ đỡ bị sai. Viết trực tiếp như thế không đúng. Phải chỉ rõ book2.xlsx hay book2.xlsm? book2 này...
Thưa thầy, tôi thêm một số tên vào book 1 nhưng ở book 4 không lưu được đầy đủ và đếm dòng cuối của book 4 là 10 và book 1 là 14. code tôi viết dưới đây thầy xem sai ở đâu ạ! Sub GopDuLieu_02() Dim DongCuoi_wb1 As Long DongCuoi_wb1 = Workbooks("book1").Sheets("sheet1").Range("A"...
Em copy code VBA từ file Excel này sang file Excel khác nhưng bị lỗi không chạy được. Code của em đây ạ: Sub LayDuLieuDoanhthu_MTD() Workbooks.Open "C:\Users\HaNS\Dropbox\Temp\01-Ha_Weekly_Monthly_Report\CTTT_MTD.xlsx" Dim DongCuoi As Long DongCuoi = Workbooks("CTTT_MTD.xlsx").Sheets("Sheet1").Range("A"...
Sub Gopdulieu_04() 'Noi cho du lieu 'Workbooks("Book10").Sheet1.Range("A2:C4").Value 'Noi nhan du lieu 'Workbooks("Book13").Sheet2.Range("A2:C").Value Workbooks("Book13").Sheets("Data").Range("A2:C4").Value = _ Workbooks("Book10").Sheets("Sheet1").Range("A2:C4").Value 'gop du lieu book 11 Dim dongdau_Wb11...
Mình làm y hệt hướng dẫn của Thầy nhưng bị lỗi . Sub MergeWBs() Workbooks("TH_Merge WBs").Sheets("Data").Range("A2:C4").Value = _ Workbooks("Book1").Sheets("Sheet1").Range("A2:C4").Value End Sub Nhờ AD sửa giúp mình ạ. Cám ơn AD.
Sao clip này bị lỗi suốt thế nhỉ? cứ nói được 1 câu lại bị dừng
Làm sao thêm nút xóa để gộp dữ liệu hoàn toàn mới vào bảng dữ liệu
Thầy cho em hỏi, em vào đâu để đưa được những cái biểu tượng ở phía bên phải trên cùng. Ví dụ như là em muốn chuyển các đoạn code thành chú thích mà không phải đi tích từng dấu phẩy phía trên các dòng lệnh ạ?
Thầy cho em hỏi, em viết code để nhập dữ liệu từ work book3 vào work book 4 khi chạy thì ra sai KQ, không biết có bị thiếu chỗ nào ko ạ? Dim dongcuoi_wb3 As Long dongcuoi_wb3 = Workbooks("Book3").Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row Dim dongdau_wb3...
Scroll Top Top

Hỗ trợ khách hàng

VỀ GITIHO

hợp tác và liên kết

Tải App Gitiho

Kết nối với chúng tôi

Địa chỉ văn phòng: Phòng 302, tầng 3, Tòa nhà Tây Hà, KĐT mới Phùng Khoang, Phường Trung Văn, Quận Nam Từ Liêm, Thành phố Hà Nội, Việt Nam
© 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