Trong khi chờ các giải pháp khác thử thm khảo code trong file đính kèm sau:
Khi click chọn 1 mã trong list ở ô F1 thì đã có kết quả: Ô F10 là chạy sub , Ô G10 là hàm UDF
Khi thêm hoặc bớt dữ liệu của cột A /sh TH thì List ở F1/sh Phieu cũng sẽ thay đổi theo.
Hy vọng giúp được bạn.
Bạn có thể thử nghiệm với con macro sự kiện này ở trang 'Phieu'
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [f1]) Is Nothing Then
Dim StrC As String: Dim Rws As Long, J As Long
Dim Sh As Worksheet, Arr()
Set Sh =...
Đầu năm em xin Chúc toàn thể Thầy cô, anh chị và các bạn Một năm mới nhiều
SỨC KHOẺ - HẠNH PHÚC
AN KHANG – THỊNH VƯỢNG
*****************
Em xin Thầy, cô, anh chị và các bạn tạo code Ghi chú giúp em như sau
Ở Sheet Phieu, khi em nhập số phiếu tại ô F1 (ví dụ: 1/1)
thì code sẽ tham chiếu sheet TH...
dạ em cám ơn chị ạ
1765528784
Chị ơi em có File này nữa chị xem giúp em với ạ
Em có 1 File ex rất mong các anh chị giúp em để em có thể tách dòng tự động tại sheet: KET QUA TRA VE bằng cách lấy dữ liệu từ sheet DỮ LIỆU
Khi nhập dữ liệu vào ô Trang bên sheet DỮ LIỆU
Thì kết sheet KET QUA...
Ý bạn là thanh ngang nào? cho ký hiệu các số?
Mấy ký hiệu số đếm này nó cũng là dạng qui ước làm dấu đó giờ,mọi người cũng quen tay rồi bạn (đặc biệt trong kiểm phiếu ghi kết quả bằng tay xuống giấy).
Cũng còn nhiều kiểu khác nhưng không quen.
Nếu phiếu nào đó có số lượng dòng nhiều hơn 10 dòng thì sao? (tức là phần dữ liệu lọc được là 1 số lớn khi paste sẽ bị đè lên dòng tổng cộng)
Giải pháp của tôi là khi số dòng lọc được <=100 dòng thì vẵn paste vào mẫu phiếuIN Auto. các dòng trống phía dưới sẽ được ẩn. Khi chuyển sang file pdf...
Tôi đã sửa code để các hình nó canh đều các bên dựa theo kích thước Cell. Tôi không dùng code tự động reszie hình theo Cell của bạn kéo dãn dòng vì nó sẽ kéo theo một đống code lằng nhằng để xác định lại shape nào là shape nằm đầu Cell, shape nào nằm kế nó (vd: số 7 - shape 5 nằm cột 1, shape 2...
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...
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 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...