Chuyển đổi cách trình bày từ sheet dữ liệu sang sheet Báo cáo

[Nguyễn Hồng Quang]

Mình có 1 file dữ liệu kế toán. Nay mình muốn trình bày lại dữ liệu này. Mình đã thử dùng Pivot tuy nhiên Ngoài cách dùng Pivot Table
Xin các anh, chị và các bạn hỗ trợ giải pháp/ phương án/cách thức để Từ cách trình bày của sheet Dữ liệu chuyển thành cách trình bày bên sheet Báo cáo

chú thích: lý do không muốn dùng pivot vì khi dùng pivot thì thứ tự cột theo mong muốn là (Nhập hàng, Trả hàng, Thanh toán) bị pivot đổi thành (Nhập hàng, Thanh toán, Trả hàng) và 1 số dòng ngày tháng bị để trống (ví dụ ngày 26/03/2019) và khi pivot bị hiện các cột grand total (không cần thiết)
Mình đang sử dụng Excel 2010
Chi tiết xem file gửi kèm
xin cảm ơn

 

[leonguyenz]

Mình có 1 file dữ liệu kế toán. Nay mình muốn trình bày lại dữ liệu này. Mình đã thử dùng Pivot tuy nhiên Ngoài cách dùng Pivot Table
Xin các anh, chị và các bạn hỗ trợ giải pháp/ phương án/cách thức để Từ cách trình bày của sheet Dữ liệu chuyển thành cách trình bày bên sheet Báo cáo

chú thích: lý do không muốn dùng pivot vì khi dùng pivot thì thứ tự cột theo mong muốn là (Nhập hàng, Trả hàng, Thanh toán) bị pivot đổi thành (Nhập hàng, Thanh toán, Trả hàng) và 1 số dòng ngày tháng bị để trống (ví dụ ngày 26/03/2019) và khi pivot bị hiện các cột grand total (không cần thiết)
Mình đang sử dụng Excel 2010
Chi tiết xem file gửi kèm
xin cảm ơn

Các vấn đề được nếu có hướng giải quyết mà:
- Sắp xếp lại các cột: chuột phải tên cột > Move
- Ngày tháng để trống: Design > Report Layout > Repeat All Item Labels
- Bỏ Grand Total: Design > Grand Totals > Off for Rows and Columns

 

[Nguyễn Hồng Quang]

Các vấn đề được nếu có hướng giải quyết mà:
- Sắp xếp lại các cột: chuột phải tên cột > Move
- Ngày tháng để trống: Design > Report Layout > Repeat All Item Labels
- Bỏ Grand Total: Design > Grand Totals > Off for Rows and Columns

Cảm ơn anh leonguyenz đã giúp bổ sung phần kiến thức mà em còn u mê. 3 gạch đầu dòng của anh đã xử lý pivot ra đúng mong muốn của em hơn. Tuy nhiên , nếu được em cũng rất mong nhận được thêm phương án tạo báo cáo bằng VBA.

 

[tam888]

Cảm ơn anh leonguyenz đã giúp bổ sung phần kiến thức mà em còn u mê. 3 gạch đầu dòng của anh đã xử lý pivot ra đúng mong muốn của em hơn. Tuy nhiên , nếu được em cũng rất mong nhận được thêm phương án tạo báo cáo bằng VBA.

VBA thì bạn viết code thôi, mắc đâu lại hỏi...
Vì thấy bạn là thành viên kỳ cựu rồi , nên đưa ra tư vấn vậy. Hy vọng là làm tốt

 

[hocexcel_1991]

Mình có 1 file dữ liệu kế toán. Nay mình muốn trình bày lại dữ liệu này. Mình đã thử dùng Pivot tuy nhiên Ngoài cách dùng Pivot Table
Xin các anh, chị và các bạn hỗ trợ giải pháp/ phương án/cách thức để Từ cách trình bày của sheet Dữ liệu chuyển thành cách trình bày bên sheet Báo cáo

chú thích: lý do không muốn dùng pivot vì khi dùng pivot thì thứ tự cột theo mong muốn là (Nhập hàng, Trả hàng, Thanh toán) bị pivot đổi thành (Nhập hàng, Thanh toán, Trả hàng) và 1 số dòng ngày tháng bị để trống (ví dụ ngày 26/03/2019) và khi pivot bị hiện các cột grand total (không cần thiết)
Mình đang sử dụng Excel 2010
Chi tiết xem file gửi kèm
xin cảm ơn

Làm theo hướng dẫn bài #2

 

[Nguyễn Hồng Quang]

Làm theo hướng dẫn bài #2

Cảm ơn bạn hocexcel_1991.Mình đã xem file bạn làm; Nhờ bạn chỉ giúp mình cách bỏ dấu - ở các dòng, và bỏ cột blank ở cuối bảng pivot

 

[leonguyenz]

Dấu cột (blank): Nhấp vào Loại 1, chọn dấu xổ xuống như Filter và bỏ chọn Blank.
Bỏ dấu +/- : Trên Tab Analyze hoặc Options > bỏ chọn +/- Buttons

 

[Nguyễn Hồng Quang]

VBA thì bạn viết code thôi, mắc đâu lại hỏi...
Vì thấy bạn là thành viên kỳ cựu rồi , nên đưa ra tư vấn vậy. Hy vọng là làm tốt

Cảm ơn anh tam888 đã góp ý. Phần code VBA em vẫn còn hạn chế về kiến thức nên chưa nghĩ ra phương án để bắt đầu.
Rất mong nhận được giúp đỡ và cũng là cơ hội để em được học hỏi thêm

 

[tam888]

Cảm ơn anh tam888 đã góp ý. Phần code VBA em vẫn còn hạn chế về kiến thức nên chưa nghĩ ra phương án để bắt đầu.
Rất mong nhận được giúp đỡ và cũng là cơ hội để em được học hỏi thêm

học luôn từ cách đọc và viết cho chính mình, bắt đầu từ
Sub ...........(
Funtion ........(

 

[Ba Tê]

Mình có 1 file dữ liệu kế toán. Nay mình muốn trình bày lại dữ liệu này. Mình đã thử dùng Pivot tuy nhiên Ngoài cách dùng Pivot Table
Xin các anh, chị và các bạn hỗ trợ giải pháp/ phương án/cách thức để Từ cách trình bày của sheet Dữ liệu chuyển thành cách trình bày bên sheet Báo cáo

chú thích: lý do không muốn dùng pivot vì khi dùng pivot thì thứ tự cột theo mong muốn là (Nhập hàng, Trả hàng, Thanh toán) bị pivot đổi thành (Nhập hàng, Thanh toán, Trả hàng) và 1 số dòng ngày tháng bị để trống (ví dụ ngày 26/03/2019) và khi pivot bị hiện các cột grand total (không cần thiết)
Mình đang sử dụng Excel 2010
Chi tiết xem file gửi kèm
xin cảm ơn

- Ý bạn muốn làm bằng VBA?
- Kết quả giống như sheet "Báo cáo"?
- Bạn xác nhận kết quả dòng 34 sheet "Báo cáo" so với dòng 59, 60 có chính xác không?

 

[Nguyễn Hồng Quang]

- Ý bạn muốn làm bằng VBA?
- Kết quả giống như sheet "Báo cáo"?
- Bạn xác nhận kết quả dòng 34 sheet "Báo cáo" so với dòng 59, 60 có chính xác không?

Dòng 33 sheet "Báo cáo" em bị sai. Em cảm ơn anh đã chỉ sai. Em rà soát lại thì dòng 79 cũng bị lỗi tương tự
Em gửi lại file đã sửa 2 lỗi trên
Em muốn làm ra kết quả như sheet Báo cáo bằng VBA, rất mong anh giúp đỡ

 

[Ba Tê]

Dòng 33 sheet "Báo cáo" em bị sai. Em cảm ơn anh đã chỉ sai. Em rà soát lại thì dòng 79 cũng bị lỗi tương tự
Em gửi lại file đã sửa 2 lỗi trên
Em muốn làm ra kết quả như sheet Báo cáo bằng VBA, rất mong anh giúp đỡ

Bạn xem file.

 

[Nguyễn Hồng Quang]

Bạn xem file.

Em đang ra ngoài , tối về em xem file sau anh nhé. Cảm ơn anh

 

[Nguyễn Hồng Quang]

Bạn xem file.

Anh ơi, thật tuyệt vời, Code ra đúng như ý rồi.
Cho em hỏi anh thêm chút xíu là. Nếu ở sheet Data em dùng cột phụ (cột I) để định mã nhóm nghiệp vụ là NK,XK,BN,PC
thì trong code em điều chỉnh dòng

sArr = Sheets("Data").Range("A5", Sheets("Data").Range("A5").End(xlDown)).Resize(, 7).Value

thành

sArr = Sheets("Data").Range("A5", Sheets("Data").Range("A5").End(xlDown)).Resize(, 9).Value

sửa số 7 thành số 9
và điều chỉnh dòng

CoL = Dic.Item(Left(sArr(I, 7), 2))

thành

CoL = Dic.Item(Left(sArr(I, 9), 2))

sửa số 7 thành số 9
Trường hợp em dùng cột phụ như đã nêu trên thì; Ngoài 2 dòng này trong code em có phải điều chỉnh thêm dòng nào nữa không anh?
Em đã làm thử cách trên vào file thì thấy ra kết quả đúng, nhưng do kiến thức về code hạn chế nên em nhờ anh xem thêm giúp

 

[Ba Tê]

Anh ơi, thật tuyệt vời, Code ra đúng như ý rồi.
Cho em hỏi anh thêm chút xíu là. Nếu ở sheet Data em dùng cột phụ (cột I) để định mã nhóm nghiệp vụ là NK,XK,BN,PC
thì trong code em điều chỉnh dòng

sArr = Sheets("Data").Range("A5", Sheets("Data").Range("A5").End(xlDown)).Resize(, 7).Value

thành

sArr = Sheets("Data").Range("A5", Sheets("Data").Range("A5").End(xlDown)).Resize(, 9).Value

sửa số 7 thành số 9
và điều chỉnh dòng

CoL = Dic.Item(Left(sArr(I, 7), 2))

thành

CoL = Dic.Item(Left(sArr(I, 9), 2))

sửa số 7 thành số 9
Trường hợp em dùng cột phụ như đã nêu trên thì; Ngoài 2 dòng này trong code em có phải điều chỉnh thêm dòng nào nữa không anh?
Em đã làm thử cách trên vào file thì thấy ra kết quả đúng, nhưng do kiến thức về code hạn chế nên em nhờ anh xem thêm giúp

Kết quả đúng thì cứ xài, nhưng: Nếu cột phụ (I) đã định mã gồm 2 ký tự, vì thế trong Code không cần phải Left(sArr(I, 9), 2).
Thay Left(sArr(I, 9),2) bằng sArr(I, 9) là được.

 

[Nguyễn Hồng Quang]

Kết quả đúng thì cứ xài, nhưng: Nếu cột phụ (I) đã định mã gồm 2 ký tự, vì thế trong Code không cần phải Left(sArr(I, 9), 2).
Thay Left(sArr(I, 9),2) bằng sArr(I, 9) là được.

Cảm ơn anh. Chúc anh ngày vui.
Sau khi tỉa tót hoa lá cành cho thành bonsai, em xin mạn phép anh Ba Tê, để chia sẻ tới các bạn làm kế toán nào có nhu cầu chuyển đổi 1 dạng dữ liệu công nợ với Nhà cung cấp sang dạng báo cáo theo nhóm nghiệp vụ.
Xin mời các bạn xem trong file gửi kèm
Hy vọng, GPE là nơi giúp các bạn kế toán tìm ra ít, nhiều giải pháp cho công việc áp lực này