Nhờ sửa hàm để liệt kê sang Sheet khác (1 người xem)

[kieuhuy_bmt]

Thân gửi các anh, chị trên GPE!
Tôi có bài mẫu của một tác giả trên diễn đàn GPE, mày mò để đưa phần "tổng hợp" phần này nó nằm cùng trang DATA, bây giờ muốn đưa chúng sang một sheet khác nhưng sửa hàm mãi mà không được.
Tôi gửi File nhờ các Bác xem và sửa chữa sao cho chúng "phần màu hồng trong sheet DATA" được tổng hợp ở Sheet "bao cao".
Nếu có thể các bác cho xin cách ấy bằng VBA thì tuyệt. Xin cảm ơn!

 

[kieuhuy_bmt]

Chưa thấy ai có ý kiến gì. Mong mọi người quan tâm giúp.

 

[Lê Duy Thương]

Giờ này mọi người đang trên đường đi làm.bạn chịu khó chờ lúc nữa thôi sẽ có người giúp.tôi dùng đt nên ko xem được file.

 

[kieuhuy_bmt]

Đây là tài liệu liệt kê bằng VBA!

Trong khi chờ đợi gửi các Bác tài liệu liệt kê bằng VBA của tác giả trên GPE. Nhưng do nó lọc cùng trang nên chưa vận dụng được khi phát triển thêm cột "bên phải". Nhờ các Bác sửa code lọc sang 1 sheet mới.

 

[hoamattroicoi]

Trong khi chờ đợi gửi các Bác tài liệu liệt kê bằng VBA của tác giả trên GPE. Nhưng do nó lọc cùng trang nên chưa vận dụng được khi phát triển thêm cột "bên phải". Nhờ các Bác sửa code lọc sang 1 sheet mới.

Sửa thế này được không bạn, tương tự cứ thế sửa thôi bạn nhé, thay đích kết quả là được.

 

[Ba Tê]

Thân gửi các anh, chị trên GPE!
Tôi có bài mẫu của một tác giả trên diễn đàn GPE, mày mò để đưa phần "tổng hợp" phần này nó nằm cùng trang DATA, bây giờ muốn đưa chúng sang một sheet khác nhưng sửa hàm mãi mà không được.
Tôi gửi File nhờ các Bác xem và sửa chữa sao cho chúng "phần màu hồng trong sheet DATA" được tổng hợp ở Sheet "bao cao".
Nếu có thể các bác cho xin cách ấy bằng VBA thì tuyệt. Xin cảm ơn!

Tôi làm theo bài đầu ở trên.
Thử xem.

 

[kieuhuy_bmt]

mình muốn sửa để phát triển thêm các cột sang bên phải

Cảm ơn các Bác. Trong code của hai Bác đã sửa!


Cần thay đổi thủ tục nào trong Code để nó tự động liệt kê (n) cột khi ta thêm các cột sang bên phải. Vậy mong mọi người giúp đỡ.

 

[Ba Tê]

Cảm ơn các Bác. Trong code của hai Bác đã sửa!


Cần thay đổi thủ tục nào trong Code để nó tự động liệt kê (n) cột khi ta thêm các cột sang bên phải. Vậy mong mọi người giúp đỡ.

Muốn thêm bi nhiêu cột thì thì thêm thử xem.

 

[vuoc2505]

nhờ mọi người giúp mình xử lý lỗi NAME voi

mình có file excel sử dụng bình thường nhưng khi gửi mail, hoặc chép qua USB thì bị mất liên kết, mình nhờ mọi người khắc phục giùm mình, nếu chuyển sang VB thi càng tốt, cảm ơn

 

[kieuhuy_bmt]

Muốn thêm bi nhiêu cột thì thì thêm thử xem.

Cảm ơn Bác BT!
Giả xử thay các cột ghi chú bằng các số liệu "kg phải là Tex" cần tính tổng của từng KH thì sửa chữa Code làm sao. Nếu có thể, tại các vị trí ấy có luôn hàm Sum thì tốt biết mấy. Bác giúp em luôn với.

 

[Ba Tê]

Cảm ơn Bác BT!
Giả xử thay các cột ghi chú bằng các số liệu "kg phải là Tex" cần tính tổng của từng KH thì sửa chữa Code làm sao. Nếu có thể, tại các vị trí ấy có luôn hàm Sum thì tốt biết mấy. Bác giúp em luôn với.

Đừng "giả sử" mà hãy "giả thiệt" đi.
Mỗi kiểu bố cục dữ liệu sẽ có 1 kiểu code khác nhau, đâu thể đoán trước mọi chuyện giả sử được. (giả xử càng hổng biết)
Hỏi bài kiểu bạn các TV GPE gọi là "hỏi nhỏ giọt", hay "hỏi cù nhây",... đưa 1 file giống thật lên một lần là xong lâu rồi.

 

[kieuhuy_bmt]

Đừng "giả sử" mà hãy "giả thiệt" đi.
Mỗi kiểu bố cục dữ liệu sẽ có 1 kiểu code khác nhau, đâu thể đoán trước mọi chuyện giả sử được. (giả xử càng hổng biết)
Hỏi bài kiểu bạn các TV GPE gọi là "hỏi nhỏ giọt", hay "hỏi cù nhây",... đưa 1 file giống thật lên một lần là xong lâu rồi.

Em làm Bác bực mình rồi. xin lỗi toàn thể mọi người!
File thật em gửi đây ạ. chuyển cột "ghi chú" ra ngoài cùng. Trong trường hợp thêm cột sẽ thêm cột trước cột ghi chú. Mong các Bác giúp đỡ.
"mắt kém nên bấm 2 lần gửi File, đã xóa 1 em"

 

[Ba Tê]

Em làm Bác bực mình rồi. xin lỗi toàn thể mọi người!
File thật em gửi đây ạ. chuyển cột "ghi chú" ra ngoài cùng. Trong trường hợp thêm cột sẽ thêm cột trước cột ghi chú. Mong các Bác giúp đỡ.
"mắt kém nên bấm 2 lần gửi File, đã xóa 1 em"

File đây, tôi chỉ làm đến chuyện kẻ khung, còn màu mè gì đó trong Conditional Formatting thì bạn tự làm nhé.
Tôi không thích màu mè lắm nên không làm cái này.

 

[kieuhuy_bmt]

File đây, tôi chỉ làm đến chuyện kẻ khung, còn màu mè gì đó trong Conditional Formatting thì bạn tự làm nhé.
Tôi không thích màu mè lắm nên không làm cái này.

Cãm ơn Bác BT từ đầu đến cuối!
Tổng con do chưa tính hết nên tổng lớn (chia 2) nên đang mâu thuẫn. Khi nào rảnh bác giúp nhé.

 

[Ba Tê]

Cãm ơn Bác BT từ đầu đến cuối!
Tổng con do chưa tính hết nên tổng lớn (chia 2) nên đang mâu thuẫn. Khi nào rảnh bác giúp nhé.

Úi cha! Làm lại vậy.
Đưa công thức vào luôn cho chắc.

 

[kieuhuy_bmt]

Xong rồi Bác BT! Khi nào lên rừng, bác ghé Buôn Ma Thuột uống cà phê với anh em nhé. ĐT của đệ đây 0903 576 874, Hẹn gặp lại Bác.

 

[coconga]

Thống kê tần số xuất hiện của mỗi mã số hàng hóa đã bán

Em có bài tập thông s kê nhờ anh chị giúp với:
Trong Sheets DATA có thống kê 30 Mã số hàng hóa (được đánh số lần lượt từ Mã số 1 đến mã số 30) mà công ty thống kê bán hàng trong một tháng của 30 đại lí, bây giờ em muốn thống kê sang sheets KETQUA với điều kiện là vùng (A5:AI35) với hàng tiêu đề ghi làn lượt 30 mã số hàng hóa; với cột tiêu đề ghi tên 30 đại lí; Đếm tất cả các mã số hàng hóa xuất hiện rồi ghi vào cột ứng với mã số đó; Tôi có ví dụ về kết quả cần được trong File nhờ anh em giúp đỡ với, nếu vba càng tốt, em cảm ơn nhiều.
Em ko biet cách tự tạo chủ đề thay chu đè này phù hợp em vào luôn, mong ac thong cảm

 

[kieuhuy_bmt]

Gửi bạn Coconga!
Bạn tạo ví dụ làm nhiều người kg rõ! Tiêu đề cột từ 1 đến 30; tiêu đề hàng cũng vậy. Mã số hàng lại từ 1 đến 30 (tất nhiên việc này ở ngoài thực tế nó có) nhưng để cho mọi người giúp bạn nên cho chúng khác nhau 1 chút để tránh nhầm lẫn. Mình xem thấy vậy nhé. (tên bạn gần giống tên sư phụ tôi trong GPE "Concogia"). Bài của bạn mình làm đến dại lý 4, các phần còn lại bạn phát triển thêm

 

[kieuhuy_bmt]

Gửi Cocoga.
File này nhẹ hơn

 

[Ba Tê]

Gửi Cocoga.
File này nhẹ hơn

Công thức ô B6 sửa thành =COUNTIF(OFFSET(Cot1;;ROWS($1:1);;1);B$5)
Copy xuống, ngang khỏi phải sửa công thức từng ô
Hoặc dùng thử Code này:

Public Sub GPE()
Dim sarr(), dArr(), I As Long, J As Long, Cot As Long
With Sheets("DATA")
    sarr = .Range(.[B5], .[B65000].End(xlUp)).Resize(, 30).Value
End With
ReDim dArr(1 To 30, 1 To 30)
For I = 1 To 30
    For J = 1 To 30
        If sarr(J, I) <> vbNullString Then Cot = sarr(J, I)
        dArr(I, Cot) = dArr(I, Cot) + 1
    Next J
Next I
With Sheets("GPE")
    .[F6].Resize(30, 30).Value = dArr
End With
End Sub

 

[kieuhuy_bmt]

Công thức ô B6 sửa thành =COUNTIF(OFFSET(Cot1;;ROWS($1:1);;1);B$5)
Copy xuống, ngang khỏi phải sửa công thức từng ô
Hoặc dùng thử Code này:

Public Sub GPE()
Dim sarr(), dArr(), I As Long, J As Long, Cot As Long
With Sheets("DATA")
    sarr = .Range(.[B5], .[B65000].End(xlUp)).Resize(, 30).Value
End With
ReDim dArr(1 To 30, 1 To 30)
For I = 1 To 30
    For J = 1 To 30
        If sarr(J, I) <> vbNullString Then Cot = sarr(J, I)
        dArr(I, Cot) = dArr(I, Cot) + 1
    Next J
Next I
With Sheets("GPE")
    .[F6].Resize(30, 30).Value = dArr
End With
End Sub

cãm ơn Bác BT! Lại học thêm dc chút nghề.
Em chưa giúp ai đc chút nào. Lần đầu tiên vận dụng những kiến thức trên GPE gửi cho "Cocoga" nhưng kg thấy bạn ấy ý kiến gì. he he...