cái nay thì phải dùng code VBA thôi,
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ụ đã làm thay cho các nét "/" và chữ "x"
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.
Mình cũng quy ước như vậy mà
Mình đang rất quan tâm và mong nhận được sự hỗ trợ bạn à. Cho mình hỏi thêm 5 hình vẽ sẵn như bạn nói là mình chèn từ ký tự hay mình vẫn phải vẽ từ shape sau đó ghép lại cho phù hợp để đưa ra các con số thế bạn?
XIn hỏi chủ bài đăng đã tải thử file mình làm và thử chưa? có vấn đề gì không từ đó mới tiếp tục câu chuyện được?
.
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ếuThử 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
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
If Sha.Name = "Group3" Then n = n + 1
If Sha.Name = "Group4" Then m = m + 1
If Sha.Name = "Group5" Then p = p + 1
If t > 1 Then Sha.Delete
If k > 1 Then Sha.Delete
If n > 1 Then Sha.Delete
If m > 1 Then Sha.Delete
If p > 1 Then Sha.Delete
Next Sha
End Sub
Dùng lệnh If Sha.Name Like "Group*" Then Sha.Delete cho đơn giản chứ nhỉ
Gợi ý cách xoá. Khi tạo shape hãy ghi lại tên shape hoặc tên group lưu vào chỗ nào đó trong sheet. Khi xoá thì tìm đến đúng chỗ đó lấy thông tin shape để xoá
Tôi nghĩ do cái thiết kế của chủ thớt cũng đã cố định số cột của mỗi ứng viên là 5 cột nên có thể chỉ định Cell bắt đầu để từ đó tính ra range cần xoá. Nhưng tôi không biết các thuộc tính của Range hay shape mà có thể từ range suy ra shape bên trong nó không?
Tôi thử thêm 2 dòng sau vào chỗ tương ứng trong code của bạn:
Sub XoaPhieu()
Dim sCell As Range, Shp As Shape, sName$
Set sCell = Application.InputBox("Kich chon ô dau tiên chua ten ung cu vien", Type:=8)
sName = sCell.Value
For Each Shp In Sheet1.Shapes
If Shp.Name Like sName & "*" Then Shp.Delete
Next
End SubShape.TopLeftCell anh. Trong code của em có xóa shape theo hàng đấy
Tại sắp đến bầu cử rồi nên nhìn file của chủ thớt tôi thấy giống những cái phiếu ghi kết quả kiểm phiếu thủ công trước đây. Các phiếu bầu được phân loại và chia thành 10 cho dễ đếm. Số ứng cử viên thường là 5 nên dàn hàng ngang là được. Có những điểm bầu cử số lượng phiếu lớn nên số phiếu mỗi người có thể lên đến con số 500, 1000...
Tính năng tự động sắp xếp shape của bác hay thật.
Đó là ký tự chứ không phải shape đâu bạn.
Nếu là ký tự thì quá hay rồi. Không cần xử lý nhiều như shape. Trước tôi chỉ biết xài có font Marlet cho một số icon, còn biểu tượng này thì thua.
Sub XoaShape()
On Error GoTo EH
Dim sCell As Range, shp As Shape, col As Long
Set sCell = Application.InputBox("Kich chon ô dâu tiên chua ten Ung Cu Vien", "Chon ô", Type:=8)
col = sCell.Column
For Each shp In ThisWorkbook.Sheets("KiemPhieu").Shapes
If shp.TopLeftCell.Column >= col And shp.TopLeftCell.Column <= col + 4 Then shp.Delete
Next
EH:
Exit Sub
End Sub
