Lọc dl và trích xuất kq.xổ số mb
- Thread starter ducdungQN
- Ngày gửi
hoangminhtien
Thành viên gắn bó
- Tham gia
- 29/2/08
- Bài viết
- 1,685
- Được thích
- 2,226
- Nghề nghiệp
- Mechanical Engineering
bạn xem file có được không nhé!
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Tôi có nhận xét rằng:
- Kết quả xổ số trong sheet nhập đương nhiên phải được Format theo dạng TEXT (nếu không thì làm sao gõ được các số bắt đầu bằng Zero, ví dụ 00324)
- Và nếu bạn đồng ý với nhận xét của tôi ở trên thì bài toán này có thể giãi quyết bằng COUNTIF (nhanh hơn SUMPRODUCT rất nhiều)
vâng rất chính sác phải format ở dạng TEXT thì mới giải quyết được.
rất cảm ơn bạn đã giúp mình. nhưng có thể khắc phục bỏ cái cột phụ đi được ko bạn.
ở sheet 2 những cell nào ko có 1,2,3,4vv thì điền o vào nhé.
hãy giúp mình nhé, cảm ơn bạn rất nhiều
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Cái này thì thêm 1 hàm người dùng nữa là được
Format lại tất cả các công thức ở Sheet2 thành General là xong
Lần chỉnh sửa cuối:
thanhvien1802
Thành viên chính thức
- Tham gia
- 31/12/07
- Bài viết
- 64
- Được thích
- 17
Ý kiến phụ thêm:
Nếu trich Xổ số thì nên Copy cả vùng Kết quả Xổ sổ, rồi dùng hàm Mid để lọc ra 2 kết quả cuối của các giải để luôn được chính xác không nhầm lẫn vói ghi vào bằng tay. Và thật nhanh chóng, khỏe hơn nhiều.!
Mình thường dùng hàm Vlookup để dò tìm tù 00 đến 99 ..... Và Countif để đếm .....
Thân.
Nếu trich Xổ số thì nên Copy cả vùng Kết quả Xổ sổ, rồi dùng hàm Mid để lọc ra 2 kết quả cuối của các giải để luôn được chính xác không nhầm lẫn vói ghi vào bằng tay. Và thật nhanh chóng, khỏe hơn nhiều.!
Mình thường dùng hàm Vlookup để dò tìm tù 00 đến 99 ..... Và Countif để đếm .....
Thân.
Lần chỉnh sửa cuối:
sheet 2 ko hoạt động bạn ah. Bạn xem lại giúp mình nốt nhé.
nói thật về excel mình mới sử dụng còn dốt lắm, tự mình mò mẫm mãi mà cũng thấy mình chẳng biết gì cả. giúp mình lốt chỗ này với, cảm ơn bạn nhiều nhiều
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Cụ thể là chổ nào không hoạt động!
Bạn chú ý: Trong file có dùng macro nên bạn phải làm nhưng công việc dưới đây trước khi mở file nhé:
- Khởi động Excel
- Vào menu Tools\Macro\Security
- Trong Tab Security Level check vào mục Medium
- Đóng Excel
- Mở file của bạn và bấm vào nút Enable Macros
Còn gì trục trặc nữa bạn nói rõ hơn 1 chút nhé
trước hết xin cảm ơn bạn đã vất vả vì giúp mình, thực sự là mình ko giám làm phiền bạn nữa, nhưng mình loay hoay mãi mà ko biết tại sao sheet 2 lại ko chạy. công thức mình đã coppy xuống hết các dòng tiếp theo mà nó ko cập nhật DL từ sheet 1. sheet 3 thì chạy tốt. Mình làm như bạn hướng dẫn rồi vẫn ko chạy. Thôi bạn cố giúp mình nhé
Chân thành cảm ơn bạn
mình mới cài winrar để lén lại, bây giờ OK bạn tải về giải lén xem lại giúp mình nhé.
có gì ko phải thì bảo mình nhé. chân thành cảm ơn bạn
Chân thành cảm ơn bạn
mình mới cài winrar để lén lại, bây giờ OK bạn tải về giải lén xem lại giúp mình nhé.
có gì ko phải thì bảo mình nhé. chân thành cảm ơn bạn
Chỉnh sửa lần cuối bởi điều hành viên:
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Tôi vừa xem qua rồi
như đã nói ở bài trước: Dử liệu nhập bạn phải Format theo dạng TEXT mới được nha!
Chú ý: Dấu hiệu để bạn nhận biết số trong cell là TEXT khi bạn nhìn thấy góc trái trên của cell có dấu tam giác màu xanh lá
Tôi vừa mới cải tiến file 1 tí... Hy vọng với file mới này, dù bạn có Format ở sheet nhập liệu kiểu gì thì kết quả vẩn chính xác!
Thử xem!
Chỉnh sửa lần cuối bởi điều hành viên:
mình ko biết nói gì hơn, bạn thực sự là một người nhiệt tình và rất giỏi.
mình đã tét thử chạy tốt rồi.
cảm ơn bạn nhiều lắm
Chúc Bạn luôn luôn gặp nhiều may mắn trong cuộc sống.
Bạn ơi lại làm phiền bạn lần nữa rồi, chiều nay down về tét thử mới được 3 hàng thấy chạy chuẩn. Nhưng khi nhập DL của ngày tiếp theo thì lại thấy lỗi. Mình xem rất kĩ thấy công thức vẫn đúng mà ko hiểu sao..........
mình xem đi xem lại sheet 1 nhập DL rất đúng nhưng sheet 2 lấy DL ko dủ cụ thể là chỉ được 25 giải. sheet 3 bị bỏ 2 cột G và M. giải thứ 4 của giải 7 ko được cập nhật vào.
bạn xem lại giúp mình nhé. Mình ngồi từ tối đến bây giờ mà ko sao sửa đựoc bạn ah, có thể lỗi ở macro.
cảm ơn bạn nhiều nhiều.
Chỉnh sửa lần cuối bởi điều hành viên:
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Đúng là làm xong lại phát sinh thêm mấy lổi khác, bạn chú ý nha:
- Với File mới bạn không cần phải Format TEXT gì cả, chỉ cần copy dử liệu dán vào thôi
- File củ của bạn sở dỉ bị lổi là do các số nhập có ký tự lạ phía sau... ví dụ số 12345 nhưng đàng sau số 5 cố 1 khoảng trắng (CHAR(160) ) ---> Tôi đã xử lý tình huống này rồi
(Tuy nhiên vẩn chưa biết trong tương lai còn thứ nào khác không nữa)
Ẹc... Ẹc...
Tôi thấy khi chuyển Sh nó chạy chậm lắm, mà có phải là thống kê theo 00, 01,...99 theo ngày của các giải không. Và trên diễn đàn cũng có file này mà, thầy Voda có viết code. Tôi quên mất link nên up file vậy.
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Vấn đề chậm ở đây là do tôi dùng sự kiện Worksheet_Deactivate
Lý do là:
- Vùng nhập liệu trong file của tác giả được copy từ nguồn nào đó và Format lung tung: 1 vài cell Format Number, 1 vài cell được Format Text... thậm chí 1 vài cell còn chứa ký tự đặc biệt (CHAR(160) )
- Vì lẽ đó tôi muốn khi chuyển qua sheet khác thì sheet nhập liệu phải được chuyển toàn bộ sang dạng TEXT...
---> Đó cũng là lý do mà tôi mở Topic này:
Dùng code thế nào để chuyển giá trị NUMBER thành TEXT
xin cảm ơn bạn ndu và tất cả các bạn đã tham gia góp ý. Ứng dụng đang được đưa vào dùng thử, hiện tại chưa phát hiện ra lỗi phát sinh nhưng có 1 vấn đề khi chuyển sheet thì chạy hơi chậm, mong bạn và các bạn khắc phục lỗi trên hộ mình với.
chân thành cảm ơn các bạn
chân thành cảm ơn các bạn
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Thật ra chính tôi cũng chưa hài lòng về file mà tôi đang làm giúp bạn!
Hiện tại cách tối ưu nhất tôi vẩn còn đang suy nghĩ, tuy nhiên có thể sửa lại cho nó nhanh hơn 1 tí
Bạn mở file kiểm tra lại thử nhé
boyxin
Members actively
- Tham gia
- 10/3/08
- Bài viết
- 1,664
- Được thích
- 2,335
Sửa code tại sheet1:
nhưng phải thêm On Error Resume Next (không biết On Error Resume Next có gây ra sai sót gì không - các bạn kiểm tra lại số liệu)
PHP:
Private Sub Worksheet_Deactivate()
Dim Rng As Range, Clls As Range, Temp As Variant
Set Rng = [A1].CurrentRegion
On Error Resume Next
For Each Clls In Rng.Offset(1, 1).SpecialCells(2, 1)
Clls.NumberFormat = "@"
Clls = Format(Replace(Clls, Chr(160), ""), "@")
Next
End SubGiờ thì chuyển qua lại giữa các sheet không bị ngừng, nghẽn nữa rồi
Lần chỉnh sửa cuối:
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,952
Ẹc... Ẹc... Sửa thế thì ... tèo luôn chứ nhanh gì
Vì:
- Vùng nhập có thể là số
- Vùng nhập có thể là Text
- Vùng nhập có thể chứa ký tự đặc biệt
Chính vì lẽ đó chỉ quét các cell chứa Number thôi chưa đủ ---> Phải quét toàn bộ vùng có dử liệu rồi xem trong đó có các ký tự đặc biệt hay không, nếu có thì Clear mấy ký tự này đi
Đó là lý do tại sao có dòng:
Như vậy đấy
Bài viết mới nhất
- Question
- Question
- Đã giải quyết
- Question
