Tạo bảng Excel tổng hợp lấy dữ liệu từ các file đơn lẻ

[HieuCD]

Dạ đúng với ý em rồi ạ. Em cám ơn thầy nhiều ạ. Em không inbox riêng được cho thầy, không biết thầy có thể nhắn cho em xin số điện thoại hoặc email không ạ, em muốn cám ơn thầy cốc cafe ạ ^^

Giúp được bạn là mình vui rồi, gởi hình cốc cà phê bốc khói lên diễn đàn là mình ấm lòng rồi

 

[TongDe]

Giúp được bạn là mình vui rồi, gởi hình cốc cà phê bốc khói lên diễn đàn là mình ấm lòng rồiView attachment 252766

Giúp được bạn là mình vui rồi, gởi hình cốc cà phê bốc khói lên diễn đàn là mình ấm lòng rồiView attachment 252766

Have a delicious coffee cup !

 

[huonglien1901]

Giúp được bạn là mình vui rồi, gởi hình cốc cà phê bốc khói lên diễn đàn là mình ấm lòng rồiView attachment 252766

Em gửi Anh nơi xứ lạnh! Mong Anh cảm nhận sự ấm áp.

 

[HieuCD]

Have a delicious coffee cup !

Em gửi Anh nơi xứ lạnh! Mong Anh cảm nhận sự ấm áp.
View attachment 252768

Cám ơn các bạn nhiều

 

[hoangluongvinh]

@HieuCD thầy ơi em muốn nhờ thầy thêm chút nữa ạ Em muốn code tonghop khi nhặt cột số tiền lãi sang thì nó được tự động làm tròn lên đến hàng nghìn được không ạ (hiện tại em làm thủ công bằng hàm ROUNDUP(lãi, -3) ở các file T1, T2... rồi mới chạy code tổng hợp

 

[Hoàng Tuấn 868]

@HieuCD thầy ơi em muốn nhờ thầy thêm chút nữa ạ.

Yên tâm đi, thầy vẫn đang mong hình cốc cà phê của bạn mà.

 

[HieuCD]

@HieuCD thầy ơi em muốn nhờ thầy thêm chút nữa ạ Em muốn code tonghop khi nhặt cột số tiền lãi sang thì nó được tự động làm tròn lên đến hàng nghìn được không ạ (hiện tại em làm thủ công bằng hàm ROUNDUP(lãi, -3) ở các file T1, T2... rồi mới chạy code tổng hợp

Chỉnh lại lệnh trong vòng for

          Arr(i, 1) = i
          Arr(i, 2) = Darr(i, 1)
          Arr(i, 3) = Darr(i, 2)
          Arr(i, 4) = Darr(i, 3)
          If Dic.exists(Arr(i, 4)) Then Arr(i, 5) = Dic.Item(Arr(i, 4))
          Arr(i, 6) = Darr(i, 5)
          Lai = Application.Round(Darr(i, 8), -3)
          Arr(i, 7) = Lai
          Arr(R + 1, 6) = Arr(R + 1, 6) + Darr(i, 5)
          Arr(R + 1, 7) = Arr(R + 1, 7) + Lai
        Next i

 

[hoangluongvinh]

Yên tâm đi, thầy vẫn đang mong hình cốc cà phê của bạn mà.

vâng bác. Mình cũng muốn gửi bằng cách khác mà không được.

@HieuCD hi vọng là thầy có thói quen dùng coffee ạ. Như này chắc trông ngon mắt còn hương vị thì em chưa biết