bth8320
Thành viên mới
- Tham gia
- 24/11/07
- Bài viết
- 44
- Được thích
- 6
- Nghề nghiệp
- Kỹ sư tư vấn giám sát
Chào cả nhà.
Mình có vấn đề này cần nhờ cả nhà giúp.
Mình muốn tổng hợp số liệu từ các book 1~9 vào file TONGHOP.
Tham khảo trên diễn đàn mình thấy sử dụng marco4 giải quyết được vấn đề này.
Mình đã giải quyết được việc lấy dữ liệu ở cell A1 vào file tổng hợp(Button 1).
Vấn đề nảy sinh là khi mình muốn đếm tổng các số ở cột A của từng file(Button 2). và đưa vào cột D.
Lúc này kết quả trả về 1 trong khi thực tế trong từng file(Book1~9) là khác 1,
Code1:
For i = 2 To j + 1
strPath = Range("A" & i)
strFile = Range("B" & i)
strSheet = "Sheet1"
strRng = [a1]
strRef = "'" & strPath & "[" & strFile & "]" & strSheet & "'!" & Range(strRng).Address(, , 2)
Range("D" & i) = ExecuteExcel4Macro("COUNTA(strRef)")
Mình đã tham khảo thêm trên Stack Overflow thì code đếm tổng tương tư(Chỉ áp dụng cho từng sheet) thì kết quả lại đúng:
Code2:
Range("e" & i) = ExecuteExcel4Macro("COUNTA('C:\Users\Administrator\Desktop\New folder\[ Book1.xlsx ]Sheet1'!R1C1:R1000C1)").
Nhờ cả nhà xử lý giúp mình code 1 với.
Chi tiết xin xem file đính kèm
Trân trọng.
Mình có vấn đề này cần nhờ cả nhà giúp.
Mình muốn tổng hợp số liệu từ các book 1~9 vào file TONGHOP.
Tham khảo trên diễn đàn mình thấy sử dụng marco4 giải quyết được vấn đề này.
Mình đã giải quyết được việc lấy dữ liệu ở cell A1 vào file tổng hợp(Button 1).
Vấn đề nảy sinh là khi mình muốn đếm tổng các số ở cột A của từng file(Button 2). và đưa vào cột D.
Lúc này kết quả trả về 1 trong khi thực tế trong từng file(Book1~9) là khác 1,
Code1:
For i = 2 To j + 1
strPath = Range("A" & i)
strFile = Range("B" & i)
strSheet = "Sheet1"
strRng = [a1]
strRef = "'" & strPath & "[" & strFile & "]" & strSheet & "'!" & Range(strRng).Address(, , 2)
Range("D" & i) = ExecuteExcel4Macro("COUNTA(strRef)")
Mình đã tham khảo thêm trên Stack Overflow thì code đếm tổng tương tư(Chỉ áp dụng cho từng sheet) thì kết quả lại đúng:
Code2:
Range("e" & i) = ExecuteExcel4Macro("COUNTA('C:\Users\Administrator\Desktop\New folder\[ Book1.xlsx ]Sheet1'!R1C1:R1000C1)").
Nhờ cả nhà xử lý giúp mình code 1 với.
Chi tiết xin xem file đính kèm
Trân trọng.
