Kết quả tìm kiếm cho từ khóa: in phiếu thu

Tôi chưa áp code bạn @HUONGHCKT vô nhưng tôi nghĩ nếu làm đúng bài là sẽ chủ động xoá số phiếu của từng ứng viên chứ không xoá chung.

Dùng lệnh If Sha.Name Like "Group*" Then Sha.Delete cho đơn giản chứ nhỉ

Tôi dùng đoạn code này thấy nó xóa được toàn bộ các Shape đã được tính số phiếu Sub Xoa() Dim i&, t&, k&, n&, m&, p& Dim Sha As Object On Error Resume Next For Each Sha In ActiveSheet.Shapes Sha.Select 'MsgBox Sha.Name If Sha.Name = "Group1" Then t = t + 1 If Sha.Name = "Group2" Then k = k + 1...

Thử code này xem như thế nào nhé. Tôi chỉ biết tạo ra mấy cái shape này nhưng xoá nó thì chưa nghĩ ra cách :D.

Bạn nên tải file thực tế lên chứ file như bài #1 có khi làm xong bạn không sử dụng được trên file thực tế đâu.

Sheet quy ước chỉ là 1 sheet trong file thôi, mình có sheet tổng hợp những phiếu bầu trúng, sau đó căn cứ theo sheet quy ước để có 1 sheet tổng hợp số phiếu bầu trúng của từng người như hình 5 trong tệp đính kèm mình gửi chỉ khác là mình muốn hiển thị theo dạng đường thẳng truyền thống các cụ đã...

Hay quá hè. Lẽ ra từ hình đếm ra số phiếu rồi ghi kết quả, còn đây làm ngược lại

cái nay thì phải dùng code VBA thôi, Bạn cần xác nhận lại xem số phiếu tối đa bao nhiêu - ví dụ 100 phiếu thì cái hình biểu diễn dài lắm đấy

Chủ thớt phải có qui ước gì thêm về dòng cột hiển thị chứ gặp ứng cử viên được bầu 700 phiếu thì nó dài sọc.

Cái này giống đếm phiếu bầu cử nhỉ. :) Bây giờ có nhiều áp nhập kết quả kiểm phiếu luôn rồi mà bạn.

Nhờ các anh chị em trong diễn đàn hỗ trợ giúp ạ! Mình muốn biểu diễn các số đếm theo các hình vẽ như trong file mẫu để biểu diễn sô phiếu bầu trúng thông qua sheet quy ước. Hiện tại do cột B mình vẽ từ các shape nên không thể dùng hàm để truy suất được. Mong mọi người hỗ trợ. Mình xin cảm ơn ạ!

Em muốn anh chị em giúp e: chuyển file dữ liệu sang phiếu điều tra để in toàn bộ ạ!

Cách 1. Dùng Sumif, sumifs điều kiện Số xe hoặc số phiếu hoặc đơn vị <>0 (các điều kiện này hàng cộng ngày không có) Cách 2. Dùng subtotal cho các dòng cộng ngày và cộng lũy kế.

Bạn đã có đáp án rồi. Tuy nhiên do làm rồi lên cứ đăng lên đây 1 cách làm khác để bạn hoặc các bạn khác tham khảo. Khi bạn click vào 1 trong các ô M7:M9/Sh IN AUTO==> 1 datavalidation sẽ cho bạn lựa chọn: cái dataVali....này được nạp vào các nameRange ngay khi mở file hoặc khi bạn gõ hoặc thay...

đúng rồi ak. em cảm ơn ạ.

Vẫn là file hôm nọ đó hả bạn: ChatGPT sửa lại: Sub PhanBo_FIFO_CungSheet_Final_V5() On Error GoTo ErrHandler Application.ScreenUpdating = False Application.EnableEvents = False Dim ws As Worksheet Set ws = ThisWorkbook.ActiveSheet ' --- Cấu hình --- Dim startRow As...

Bạn Vinh đã được tôi hỗ trợ qua Ultraview và đã thành công.

Em cần giúp đỡ. Hiện nay em đang được giao nhiệm vụ in phiếu điều tra của các thôn trên phần mềm pcgd.vn. Em đã tải về file của bác HUONGHCKT nhưng không làm được ạ. Em không biết về VBA, mong bác giúp em. Em xin gửi file phổ cập 1 thôn em cần in, bác chỉ giúp em ạ!Em xin cảm ơn.

Bạn thử này xem sao nhé. =DROP(REDUCE(0,SORT(UNIQUE('Ban Hang'!D4:D43)),LAMBDA(x,v,VSTACK(x,UNIQUE(CHOOSECOLS(FILTER('Ban Hang'!D4:G43,'Ban Hang'!D4:D43=v),1,4))))),1) 1761018555 Đó theo kiểu REDUCE nếu còn thêm điều kiện gì khác nữa. Còn bình thường thì này thôi mà...

Dạ đại loại là mình chỉ muốn lọc dữ liệu trùng của tên hàng trong cùng phiếu xuất thôi á chứ không lọc trùng của tất cả. mình gửi file kết qua mong muốn nhờ bạn xem giúp nha 1761018008