Theo dõi kết quả xổ số! (1 người xem)

[anhtuan1066]

Tôi dc 1 bạn nhờ làm giúp file theo dỏi kết quả xổ số! Tôi post lên cho các bạn tham khảo và đóng góp ý kiến, vì tôi cảm thấy chưa thật hải lòng lắm
File có 4 sheet:
-Sheet DATA dùng đễ nhập liệu (hiện nay số liệu là giả lập)
-Sheet FIND1 : Đễ xuất ra kết quả của 1 đài nào đó hoặc 1 ngày nào đó theo yêu cầu
-Sheet FIND2: Làm 2 yêu cầu: cho biết số nào chưa sổ trong khoảng thời gian nào đó (10 ngày, 15 ngày, 20 ngày hoặc 30 ngày trước)... Và nó còn cho biết 1 số nào đó đã từng xổ ra ở đài nào trong thời gian nào...
-Sheet CALC dùng đễ đặt các công thức tính toán
Mời các bạn tham khảo và cho ý kiến đóng góp nha!
Tôi đang từ từ hoàn thiện, nhưng do ko rành về vụ xổ số này nên ko biết có gì bất ổn ko
Mến
ANH TUẤN

 

[ThuNghi]

File hay rồi còn muốn làm gì nữa, mỗi ng thích làm 1 style. Dùng sumproduct nhanh hơn công thức mảng.
Phải chi có dl thật, làm 1 phát có tiền nhậu nhỉ.
Sẽ hòan thiện theo cách khác.

 

[anhtuan1066]

Tại vì trong này dử liệu ko nhiều.. bạn tính xem 1 năm là 365 ngày nhé... vị chi cũng chỉ có 365 dòng dử liệu thôi...
Nói thật lúc đầu cũng định dùng SUMPRODUCT mà sao nó ko ra.. (chẳng biết sai chổ nào)... mà thời gian thì gấp.. tôi túm dc em nào cho ra kết quả là đưa vô liền... Hic...
ThuNghi thử xem thay công thức mãng ấy bằng SUMPRODUCT thì sẽ như thế nào? Đầu óc tôi đang rối, ko nghĩ ra dc
Mến
ANH TUẤN

 

[ThuNghi]

Xin các bạn chú ý trong file này: có quá nhiều cột phụ... Ý tôi muốn hỏi xem có ai có thể cải tiến và giảm bớt cột phụ dc ko?
Nói chung là cải tiến lại càng đơn giản càng tốt
Cám ơn các bạn
ANH TUẤN

Bác xem có thể nghiên cứu gì? Đúng ra dùng vlookup nhưng thói quen nên dùng index.

 

[dutrungkien]

Tôi rất lý thú với chương trình Xổ số 2007 của hai bạn Anh Tuấn và Thu Nghi, nó giúp cho tôi hiểu thêm nhiều về Excel (mà tôi rất thích và đang mày mò tìm hiểu). Dựa vào bảng tính của các bạn, tôi đă thử thay thế các đài và các lô sổ số cho phù hợp với khu vực Miền Trung+Tây Nguyên nhưng không biết tính sao cho chính xác. Mong các bạn ra tay "phù phép" giúp cho. Xin cảm ơn nhiều. (file kèm theo)

 

[dutrungkien]

Đúng như bạn nói tôi đă Format theo dạng số và đă nhận đúng kết quả rồi. Riêng ở các ô những số chưa về; Các ô những số về nhiều nhất và ô số lần xuất hiện lại cho kết quả hình như không đúng. Mong bạn hướng dẫn giúp cho. Cảm ơn bạn nhiều.

 

[anhtuan1066]

Vậy bạn tham khảo file này xem có chổ nào sai sót ko nha!

 

[anhtuan1066]

Cảm ơn bạn nó chạy rất đẹp. Nếu bạn tính thêm cho NHỮNG SỐ RA NHIỀU NHẤT trong thời gian trên thì thật tuyệt vời!...Lại mong bạn ra tay...
Thân.

Cái này dễ mà... Cái vụ "SỐ RA NHIỀU NHẤT" là của ThuNghi thêm vào... còn file này là file gốc của tôi đã dc cải tiến... Vậy thì bạn cứ tải 2 file về... Copy công thức của ThuNghi mà gắn vào... Nếu trong công thức cũa ThuNghi có Name nào đó chưa định nghĩa thì bạn tự định nghĩa lấy!
Còn có tí xíu nữa thôi, tôi nghĩ nó cũng.. ko dễ nhưng cũng.. ko quá khó... Cố lên bạn ơi... (nếu trong vòng 1 tuần nữa mà vẫn ko làm ra thì lúc đó hẳn tính)...
Tôi thấy file của bạn, ở bên trong nội dung bạn của đã tự biết cách thay thế này nọ đấy! Vậy là tốt rồi... Hi... hi... Tự cải biên và biến cái người khác thành của mình nó.. đã lắm.. Cho dù nó có tệ hơn của người thì ít nhất nó cũng có công sức của ta trong đó... Đúng ko?
ANH TUẤN

 

[dutrungkien]

Mong bạn đừng phật lòng do cái sự kém hiểu biết của tôi…Excel bao la quá mà tôi lại thiếu cả một kiến thức cơ bản về nó (tiếp xúc chưa lâu, mày mò tự học) những gì mới mẻ mọi người đă qua, tôi học tập theo dù chưa hiểu được nhiều…Năng nhặt chặt bị mà!...Vài lời tự bạch, bạn cười nhỏ thôi, rồi tiếp tục đưa tay ra trợ giúp cho tôi bạn nhé!...
Theo lời khuyên của bạn, tôi cũng đă mày mò đưa "những số về nhiều nhất" của bạn ThuNghi vào, trong đó có một công thức rất lạ đối với tôi: =COUNTIF(KetQuaOFF;"*"&$AD2). Hàm COUNTIF thì tôi có hiểu sơ qua rồi, còn các đối số (KetQuaOFF;"*"&$AD2) thì đành chịu, nhất là dấu "*" . Mong bạn hướng dẫn giúp cho về cú pháp lẫn ý nghĩa (càng cụ thể càng tốt bạn nhé!) cảm ơn bạn nhiều.

 

[anhtuan1066]

Về công thức =COUNTIF(KetQuaOFF;"*"&$AD2) tôi xin giãi thích đại khái như sau: Nó đếm xem trong mãng KetQuaOFF có bao nhiêu em có phần "đuôi" giống với cell AD2.. lấy ví dụ AD2 có giá trị =56, vậy những em gọi là có phần "đuôi' giống với 56 sẽ có dạng xxx56, với xxx là số nào đó tùy ý... Cái dấu "*" chính là đại diện cho mấy em xxx đấy bạn à!
Giờ nhiệm vụ của bạn là hảy vào menu Insert\Name\Define xem thử ThuNghi đã đặt name KetQuaOFF tham chiếu đến địa chỉ cell nào rồi qua file của mình mà bắt chước...
Bạn cứ từ từ làm.. đến phút cuối cùng nếu vẫn ko ra thì tôi hứa sẽ giúp bạn.. hi... hi...
Với ThuNghi: Tôi phát hiện ra file của bạn có chút sai sót.. VD tìm số 90 trong khoảng thời gian 15 ngày, nó show ra trong danh sách bên dưới có cả những số ko phải là 90 đấy (VD là số 9027 của đài Nam Định ngày 16/10 và số 9051 đài Thủ Đô ngày 14/10)
Và ThuNghi cho hỏi: việc xác định "SỐ VỀ NHIỀU NHẤT" là dựa trên tiêu chí nào vậy?
ANH TUẤN

 

[dutrungkien]

Bạn Anh Tuấn thân.Thấy bạn và bạn Bắp nói chuyện mà tôi thèm quá!...hình như nó cũng có liên quan đến câu hỏi mà tôi muốn gởi đến bạn đây:Trong bảng tính của bạn ThuNghi khi nhập dữ liệu vào sheet DATA thì kết quả nhận được ở sheet FIND2 theo dạng ngày tháng, nếu chuyển qua dạng text thì nhận kết quả là dạng số (đúng theo yêu cầu). Vậy liệu nó có ảnh hưởng gì đến sự chính xác của toàn bảng tính hay không?
Thân gởi bạn ThuNghi: Bạn Anh Tuấn phát hiện ra trong file Xoso2007 có chút sai sót …Theo tôi có phải mình chỉ cần chuyển đổi hàm Left thành hàm Right là được phải không bạn? Tại sao bạn định dạng ngày tháng thì nó chạy ào ào…(nghĩa là xuất thành dạng số). Còn tôi bắt chước theo bạn thì y chang thì nó lại cho ra thời gian trôi mòn mỏi...Híc!...Có bí quyết nào chăng?...Xin lập lại câu hỏi của bạn Anh Tuấn: Cách để bạn tính các số về nhiều nhất là dựa trên tiêu chí nào? Mong tin bạn...

 

[anhtuan1066]

Bạn phát hiện như thế là đúng hướng rồi đó... Tôi cũng phát hiện ra Left, Right này tuy nhiên tôi cứ đễ đấy cho bạn tự mò vẫn khoái hơn, đúng ko? hi... hi...
Chú ý 1 điều nữa là: Dử liệu bên DATA phải dc format là TEXT... bạn thử nghĩ xem, đài xổ con 05.. nếu bạn format number thì làm sao bạn gõ vào dc số 05 đây?
Nói chung có 2 chú ý:
1> Sửa Left thành Right
2> Data luôn format TEXT
Gần tới đích rồi đấy! hi... hi...
Bạn thông cảm, ThuNghi dạo này làm Mod nên chắc bận rộn... Tôi cũng đang có câu hỏi mà có thấy trả lời đâu... Vì tôi vẫn chưa hiểu dc ThuNghi dựa trên tiêu chí gì đễ xuất ra số về nhiều nhất! Như thế nào thì gọi là NHIỀU?
Bạn cứ bình tỉnh nhé...
ANH TUẤN

 

[ThuNghi]

Vì tôi vẫn chưa hiểu dc ThuNghi dựa trên tiêu chí gì đễ xuất ra số về nhiều nhất! Như thế nào thì gọi là NHIỀU?

Trong sh Find2
- AE1=MAX(SoLan) số lần ra nhiều nhất
-AH2=IF(TYPE(MATCH($AE$1,OFFSET(SoLan,$AH1,0),0)+$AH1)=16,"",MATCH($AE$1,OFFSET(SoLan,$AH1,0),0)+$AH1)
tìm dòng có AE1
- AJ2=IF($AH2="","",INDEX(LIST,$AH2)) cái này dễ rồi

Dử liệu bên DATA phải dc format là TEXT... bạn thử nghĩ xem, đài xổ con 05.. nếu bạn format number thì làm sao bạn gõ vào dc số 05 đây?

Cái này chưa hiểu yêu cầu. if có vấn đề gì bạn định dạnh số trong find2 là general là OK.
To: anhtuan1066: Lúc này đang àlm báo cáo.

 

[ThuNghi]

MAX(SoLan)

Ra nhiều nhất trong những lần ra, có thể quy định thế nào là nhiều mà. Cụ thể trong sốn lần/số ngày.

 

[dutrungkien]

Bạn Anh Tuấn thân
Thấy bà con mình chúc mừng bạn lên sao, tôi rất vui. Ba sao là thượng tá, là tương đương với cấp Sư đó...ghê chưa?...(Chữ Sư viết hoa, vì vậy gánh sẽ nặng hơn...Bạn có lo không?...) Cám ơn sự gợi ý của bạn về cách nhập DATA rồi tạo ra ComboBox và các dữ liệu đi kèm, tôi đang tim hiểu về nó và thử lập một file mới với ý tưởng là tìm kiếm bằng Combobox. Rất lý thú và phấn chấn…Lúc nào thành công tôi sẽ khoe bạn ngay. Và để thúc đẩy cho cái ngày "hí hố" đó của tôi sớm được đến gần...Giờ, tôi có một "vấn nạn" nữa mong bạn lại ra tay giúp đỡ.
Tôi có một danh sách chứa HỌ VÀ TÊN. Có hàm nào để xử lý khi gặp các tên trùng nhau (nằm rải rác trong danh sách) thì sẽ tự động tách riêng tên đó ra đồng thời tăng thêm 1 giá trị rồi gán vào với tên đó.
Ví dụ:
HỌ VÀ ĐỆM | TÊN
Nguyễn Hùng | Hùng
Lê văn Hùng | Hùng1
Vũ Trung Dũng | Dũng
Phan Huy Hùng | Hùng2
Trần Văn Dũng | Dũng1
Đinh Hùng | Hùng3
Đỗ Hùng | Hùng4
Nguyễn Dũng | Dũng2
v.v…
Mong bạn "nghiên cứu" dùm cho. Cám ơn rất nhiều và…chờ mong tin bạn.

 

[dutrungkien]

Thật tuyệt vời! Cái file hovaten mà trong đó có các hàm không tên bạn cho...Nó xuất hiện thứ tự và nghiêm túc, vẫy chào ta, đẹp như những bản tình ca...chưa đủ phải thi vị hoá rằng đẹp như những hàng quân giữa mùa xuân…Tôi…đă quá…nguồn cảm hứng chợt đến, lập tức áp dụng ngay, cố gắng thực hiện file này kịp thời "khoe" bạn mà không để ý đến thời gian đă quá nữa đêm rồi. Có lẽ tôi màu mè nên file hơi nặng, bạn cố gắng nhọc nhằn tải về bạn nhé. Mong được bạn góp ý. Thân.

 

[anhtuan1066]

Ái chà... Hoàng tráng quá nhỉ? Hi.. hi... Thì ra bạn muốn tìm 1 người nào đó trong danh sách nhưng lại sợ trùng tên, đúng ko?
Theo tôi thì cách này chưa hay lắm... Như cty tôi chẳng hạn, có 20000 công nhân, nếu tìm theo kiểu đó thì.. chắc chết.. Hic... Thường thì người ta sẽ gán cho mỗi tên 1 ID... Khi tìm ta tìm theo ID, bảo đãm ko bao giờ trùng...
Có 1 điều bất tiện là khi dùng ComboBox tìm theo ID thì nó chỉ là những số là số, rất khó đoán dc ID này ăn với tên nào... Vì thế người ta sẽ dùng loại ComboBox khác (ComboBox trên thanh Control Toolbox.. cái bạn đang dùng là ComboBox trên thanh Form)... Loại ComboBox mà tôi đang nói có khả năng hiện ra 2 danh sách cùng 1 lúc: Vừa tên vừa ID...
Tôi làm 1 file loại này cho bạn tham khảo nha!
Mến
ANH TUẤN

 

[dutrungkien]

Hỏi Về Combobox Trong Excel 2007

Bạn Anh Tuấn thân.
Nhân dịp đầu năm mới thân chúc bạn và gia quyến luôn được mạnh khoẻ, bình an, gặp nhiều may mắn và niềm vui trong đời sống. Giờ, tôi đang có một “vấn đề” mong bạn hướng dẫn giúp cho:
Trước hết xin “khoe” với bạn tôi vừa chuyển qua tìm hiểu về Excel 2007. Sau khi cài đặt xong (bản tiếng việt) tôi mở file excel thì bị báo lỗi các macro bị vô hiệu hoá. Tôi đã vào tuỳ chọn excel/ Trung tâm tin cậy/ thiết đặt trung tâm tin cậy/ thiết đặt macro và chọn Cho phép tất cả các macro (Không được khuyến cáo; các mã nguy hiểm có thể chạy)…
Sau đó các macro trong Add-Ins đă chạy bình thường. Nhưng các ComboBox thì vẫn bị báo lỗi: “Do các thiết lập của bạn, macro đã bị vô hiệu hoá, để chạy macro bạn cần mở lại cửa sổ này, rồi chọn kích hoạt macro. Để xem thông tin thêm về macro bấm trợ giúp.” Tôi đã làm theo hướng dẫn nhưng các ComboBox vẫn không chạy được…có thiếu sót nào chăng?...Làm cách nào để kích hoạt macro?...Xin nói thêm tôi đă thử kiểm tra ở các máy khác thì nó vẫn chạy bình thường.
Mong các bạn tận tình hướng dẫn giúp cho. Xin cảm ơn bạn nhiều.

 

[edu8]

Tôi dc 1 bạn nhờ làm giúp file theo dỏi kết quả xổ số! Tôi post lên cho các bạn tham khảo và đóng góp ý kiến, vì tôi cảm thấy chưa thật hải lòng lắm
File có 4 sheet:
-Sheet DATA dùng đễ nhập liệu (hiện nay số liệu là giả lập)
-Sheet FIND1 : Đễ xuất ra kết quả của 1 đài nào đó hoặc 1 ngày nào đó theo yêu cầu
-Sheet FIND2: Làm 2 yêu cầu: cho biết số nào chưa sổ trong khoảng thời gian nào đó (10 ngày, 15 ngày, 20 ngày hoặc 30 ngày trước)... Và nó còn cho biết 1 số nào đó đã từng xổ ra ở đài nào trong thời gian nào...
-Sheet CALC dùng đễ đặt các công thức tính toán
Mời các bạn tham khảo và cho ý kiến đóng góp nha!
Tôi đang từ từ hoàn thiện, nhưng do ko rành về vụ xổ số này nên ko biết có gì bất ổn ko
Mến
ANH TUẤN

Em rất khoái cái thống kê này của bác, em đã cập nhật kết quả năm 2008 nhưng trong find2 nó thống kê không chính xác VD con 07 về ngày 25/2/2008 nhưng nó lại TK 20 ngày qua chưa ra. Bác làm ơn chính sửa hộ em chút. Tiện thể bác viết hộ em nốt 2 cái thống kê số và tháng nha. Xin đa tạ bác

 

[anhtuan1066]

Điều kiện tiên quyết đễ bảng tính cho kết quả đúng là bên sheet DATA, tất cả các cell nhập liệu phải dc Format Text...
Sửa lại cho bạn đây!
Mến
ANH TUẤN

 

[hnonline]

Sheet DATA cập nhật bằng tay hả bạn?
Sao kg làm cho nó lấy động từ trang web nào đó luôn

 

[hnonline]

TO : bác anhtuan1066 đồng hương góp ý cái này

Cái này mình lập trình lấy kết quả tự động từ XS Bình Dương
Format : Excel 2003
File có macro
Download : http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=10481&stc=1&d=1211271171
Các bạn lấy về và bun nén làm các thao tác sau:

Tool->macro->macros chọn GetLotteryResultVersion2 -> Run

Nhập ngày bắt đầu lấy kqxs măc định nó lấy 01/01/2008

Nhập đài cần lấy kqxs, mặc đinh lấy đài B.Dương

Ngồi chờ nó lấy tự động khoảng từ ngày bạn nhập bên trên đến ngày hiện tại trên hệ thống của bạn

Khi lấy xong nhấn CTRL A, chọn Data->fillter-> auto fillter

Tại Cột A bấm ô chọn và chọn "Tên giải"

Chọn Edit-> Delete

Chọn tiếp data->fillter->auto fillter

tại cột B nhấn combobox chọn custom và bấm OK

Chọn Menu Edit=> delete

Sau các thao tác trên ta đã có dữ liệu sạch chỉ có tên giải , kq và ngày xổ


Có những giải gồm nhiều dãy sắp cùng một hàng ngang nên làm tiếp cái này

Menu tool -> macro -> macros chọn "ReFix" -> Run

Kết quả sẽ cho ra từng dãy số nằm trên một row

sau đó các bạn muốn chặt 1 ,2 hay 3 số từ bên fảii sang để thống kê thì tùy các bạn,mình có viết sẵn mấy macro lấy 1 , 2 ,3 số từ bên fảii sang, để ở nhg cột riêng biệt

Sau đó dùng chức năng sort các bạn có thể thống kê được những số hay xổ nhất, cái dữ liệu này mà import vào MS access viết mấy câu SQL phục vụ cho nghiên cứu rất hay

----------------
Các bạn cứ thoải mái góp ý , để thêm tính năng thì cứ tự nhiên, hoặc y/c minh lấy kết quả của bất cứ đài nào

 

[Anti-Plus]

- Bro ơi macro của bro có thể áp dụng cho nhu cầu của mình có được không ?
- Theo hình ảnh minh họa bên dưới, thì từ ô E2 mình sẽ chạy macro của bro, sau khi Run xong sẽ xuất hiện hộp thoại & mình sẽ nhập vào là 20-may-2008 & 16:Bac Lieu, khi nhấp vào nút OK sẽ tự động cho kết quả đúng đài Bạc Liêu (20/05/2008) & kết quả này sẽ được tự động điền vào Insert Comment của ô E2 (như hình minh họa). Hiện tại không có macro này thì mình phải vào trang web xổ số Bình Dương xem kết quả đài Bạc Liêu (20/05/2008) & copy dữ liệu paste vào Comment của ô E2.

- Rất mong bro nghiên cứu giúp mình xem có thể áp dụng được với file của mình không nhé ... Xin cám ơn rất nhiều !

Mình có kèm theo file demo đó, bro download về nghiên cứu nhé.

 

[hnonline]

To Anti-Plus

File mà bạn yêu cầu, mình đã làm y như ý của bạn (download bên dưới)
Nếu bạn muốn insert kết quả của một ngày duy nhất và của một đài duy nhất vào một comment của một ô thì cứ để con trỏ tại ô bạn cần insert và bấm vào cái nút Lấy kết quả xổ số


Chạy xong sẽ có kq như bạn cần

Thân chào

 

[Anti-Plus]

- Cám ơn hnonline rất nhiều, kết quả thành công 100% như mong muốn.

- Bro ơi, có cách nào để tự động cho bo viền xung quanh comment tự ôm sát dữ liệu khi Run macro xong không ?

Thanks !

 

[hnonline]

OK, kg có gì mà làm kg được cả

Bạn lấy cái file mới về đi, bo góc cạnh và ôm sát hơn

 

[Anti-Plus]

hnonline ơi, sao nguyên cả khung viền của comment vẫn chưa sát với dữ liệu vậy, khung viền hiện tại vẫn còn rộng quá. Bro chỉnh giúp mình cho khung viền đừng rộng quá mà hãy sát với dữ liệu luôn & đồng thời bo viền đừng cong nhiều quá ... Thanks !

P/S: Mình hiểu tại sao khung viền không sát rồi, vì khi điền dữ liệu vào comment thì phía sau mỗi hàng đều xuất hiện 1 khoảng trống (có lẽ từ khoảng trống này nên khung viền không được ôm sát dữ liệu).

 

[Anti-Plus]

àh, bro hnonline ơi ... bro giúp mình tạo thêm bóng đỗ (Shadow) cho khung viền Comment nữa nhé. Thanks !

 

[hnonline]

OK, cải tiến

Không bị giật khi lấy kq
Trim khoảng trắng
Shaddow cho comment

à 2 button lọc kết quả và so sánh dùng thuật toán gì mà đọc khó hiểu quá vậy?
Cái so sánh kq thì hiểu là 2 con đã về hôm trước nếu hôm sau có về nữa thì đánh dấu đỏ. Còn cái lọc kết quả sao lại cho ra kq như thế ? Bạn giải thích hộ nhé

 

[Anti-Plus]

Còn cái lọc kết quả sao lại cho ra kq như thế ? Bạn giải thích hộ nhé

Cám ơn bro rất nhiều,

Lọc kết quả trong ứng dụng của mình ở đây dùng để: sẽ lọc trong Comment loại bỏ qua những số có 2 số cuối cùng là 1 (cụ thể là những cặp số : 01, 11, 21, 31, 41, 51, 61, 71, 81, 91) & 2 số cuối cùng là những số cặp lẻ (cụ thể là những cặp số : 11, 33, 55, 77, 99).

- Vd theo hình ảnh mình họa dưới đây thì ô B2 sẽ tự động lọc ra là : 19 25 19 45 63

 

[Anti-Plus]

OK, cải tiến

Không bị giật khi lấy kq
Trim khoảng trắng
Shaddow cho comment

Bro test lại giùm mình xem, cái chức năng Trim khoảng trắng mình vẫn chưa thấy tác dụng trong file demo bro đính kèm theo.

Mình Run thử thì trong Comment vẫn còn những khoảng trắng sau mỗi hàng.

 

[Anti-Plus]

OK, cải tiến

Không bị giật khi lấy kq
Trim khoảng trắng
Shaddow cho comment

Mình đã tìm ra cách xóa khoảng trắng trong Comment rồi bro ơi, dưới đây là code mình đã chỉnh sửa lại 1 chút.

Thanks !

Sub GetLotteryResultVersion2()
On Error GoTo ERH
    Dim strTP As String 'Ma tinh/thanh pho
    Dim strDateInput As String
 
    strDateInput = InputBox("Tu ngay : (la ngay bat dau lay ket qua xo so, nhap theo dang dd-MMM-yyyy" & vbCrLf & "VD : 01-Jan-2008" & vbCrLf & "Neu kg nhap se lay mac dinh la ngay 01-Jan-2008", "Tu ngay", "01-jan-2008")
 
    strTP = InputBox("Ma Tinh/Thanh Pho : chi tiet ma Tinh va ma Thanh Pho xem trong wwww.xosobinhduong.com.vn" & vbCrLf _
                    & "1 : Binh Duong" & vbCrLf _
                    & "9 : Vinh Long" & vbCrLf _
                    & "10: Tra Vinh" & vbCrLf _
                    & "11: Dong Nai" & vbCrLf _
                    & "12: Can Tho" & vbCrLf _
                    & "13: Soc Trang" & vbCrLf _
                    & "14: Ben Tre" & vbCrLf _
                    & "15: Vung Tau" & vbCrLf _
                    & "16: Bac Lieu" & vbCrLf _
                    & "17: Binh Thuan " & vbCrLf _
                    & "18: Tay Ninh" & vbCrLf _
                    & "19: An Giang" & vbCrLf _
                    & "20: TP.HCM" & vbCrLf _
                    & "21: Dong Thap" & vbCrLf _
                    & "22: Ca Mau" & vbCrLf _
                    & "23: Tien Giang" & vbCrLf _
                    & "24: Kien Giang" & vbCrLf _
                    & "25: Binh Phuoc" & vbCrLf _
                    & "27: Hau Giang" & vbCrLf _
                    & "......................" _
                    , "Ma Tinh/TP", "1") '1= Binh Duong
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.xosobinhduong.com.vn/Forms/XemKetQuaXoSo.aspx?Ngay=" & Format(strDateInput, "dd/mm/yyyy") & "&TP=" & strTP _
        , Destination:=Range("AA1"))
        .Name = "kqxs"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
 
   '================================================================
   Dim sComment As String
 
   sComment = Trim(Cells(2, "ab")) & Chr(10) _
                & Trim(Cells(3, "ab")) & Chr(10) _
                & Trim(Cells(4, "ab")) & Chr(10) _
                & Trim(Cells(5, "ab")) & Chr(10) _
                & Trim(Cells(6, "ab")) & Chr(10) _
                & Trim(Cells(7, "ab")) & Chr(10) _
                & Trim(Cells(8, "ab")) & Chr(10) _
                & Trim(Cells(9, "ab")) & Chr(10) _
                & Trim(Cells(10, "ab"))
 
   Dim nRow As Integer
 
   With ActiveCell
        nRow = .Row
 
        .ClearComments
        .AddComment
        With .comment
            .Visible = True
            .Text Text:=sComment
            .Shape.Select True
 
            With Selection
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlTop
                .ReadingOrder = xlContext
                .Orientation = xlHorizontal
                .Font.FontStyle = "Bold"
                .Font.Size = 10
            End With
            .Shape.AutoShapeType = msoShapeRectangle
            .Shape.Shadow.Visible = msoTrue
            .Shape.TextFrame.AutoSize = True
            .Visible = False
        End With
 
    End With
 
    '================================================================
    Application.ScreenUpdating = False
    Range("AA1:AC10").Select
    Selection.EntireColumn.Delete
 
 
    '================================================================
 
    Range("E" & nRow, "E" & nRow).Select
 
 
    Exit Sub
ERH:
    MsgBox Err.Description, vbOKOnly
End Sub

 

[nhatminh_fff]

Em muốn: 1 hàm tự lọc ra 2 số cuối - để lấy kết quả lô mà
1 hàm đếm các giá trị vừa lọc được - để xem trong tháng (hoặc tuần) con nào hay về
Bác nào có Kết Quả Xổ Số từ năm 2007 đến giờ cho em với

Đúng là cái em đang tìm http://www.giaiphapexcel.com/forum/showthread.php?t=10290
cám ơn Bác: anhtuan1066

 

[hnonline]

Mình đã sửa theo ý ANTI Plus

 

[hung007007]

Pác hnonline ơi! Pác giúp em cái vụ lấy kết quả xổ số tự động của đài Hà Nọi có được không?
www.xosothudo.com.vn

Bạn dùng cái XSBD, vào code, sửa như sau:
thêm
strTP = 53 trước strTP = InputBox ....
thêm ' vào đầu dòng strTP = InputBox .... để nó thành
' strTP = InputBox .....
thế là nó lấy KQXSMB

 

[emgaingayngo]

Sub refix bị đảo ngược KQXS

To Hnonline :

Chạy Sub Refix cho ra KQ bị ngược như sau
Bình Dương Ngày 11/07/2008 :
88 336 5276 7914 2553 8065 89519 67326 49606 96376 51022 18416 19165 28359 28344 53843 11230 64241

Kết quả đúng như sau :
Bình Dương
88 336 2553 7914 5276 8065 19165 18416 51022 96376 49606 67326 89519 28344-28359 53843 11230 64241

Mong bạn chỉnh lại cho chính xác. Thanks Much!

 

[emgaingayngo]

File dowload kqxs

Dựa vào bài của Hnonline mình đưa ra file dùng để dowload kqxs, các bạn xem và cho ý kiến!

 

[swordsman305]

Mong cac bác giúp đỡ

Bài này em ko được dùng cột phụ, VBA thì mù tịt nên chẳng bít đếm thế nào

 

[ndu96081631]

Bài này em ko được dùng cột phụ, VBA thì mù tịt nên chẳng bít đếm thế nào

C11 =SUMPRODUCT(($B$2:$B$10=1995)*(C$2:C$10="T"))

và

C12 =SUMPRODUCT(($B$2:$B$10=1995)*(C$2:C$10="G"))

Kéo fill 2 công thức này sang phải

 

[pnhuynh]

Xin chào các thành viên GPE . Mình có file thống kê XS tính bằng những hàm đơn giản theo đây và muốn nhờ các cao thủ chỉ giúp công thức tính số ngày chưa ra trên cột AL , trong file này có thể thay thế hàm nào khác để cho kết quả như trong sheet1 không ? các bác có cao kiến hay chỉ giúp nhé

Theo bảng dưới thống kê kq đài thủ đô trong 14 ngày liên tục , cột D là kết quả của ngày hôm qua , cột C có 100 hàng cho các số từ 00 đến 99 ( chỉ lấy 2 số cuối của mỗi giải ) , cột B là tổng số lần xuất hiện trong 14 ngày . mình muốn tính số ngày chưa ra ở cột A như kết quả trong bảng , Các bác có công thức tính được thì chỉ giúp mình nhé .
thanks

 

[pnhuynh]

Upload file lên được rùi , các bạn xem và cho ý kiến nhé .

 

[khd]

To Anti-Plus
Chào Hnonline
Mình thấy hnonline gửi file hay quá mình chưa có kiến thức nhiều về excel, mình muốn nhờ Hnonline làm giúp mình 1 file gồm có 3 sheet để thống kê kết quả xổ số Miền bắc cụ thể :sheet1 dùng để cập nhật tất cả các kết quả xổ xố miền bắc từ ngày đến ngày( do mình lựa chọn), những dữ liệu của ngày sau thì được cập nhật nối tiếp vào dữ liệu đã được lấy. ví dụ đã chọn từ 01/01/2008 đến ngày 24/10/2008 thì ngày 25/10/2008 chỉ cập nhật tiếp thêm 1 ngày vào cuối dữ lliệu sheet 1. Sheet 2 lấy kết quả của 2 số cuối giải đặc biệt từ sheet 1 trong đó phân tích các đầu và đít 2 số cuối giải đặc biệt (xố đề).số lần xuất hiện của các số đầu , số lần xuất hiện của các số đuôi( Từ 0,1...9), khoảng cách các ngày của số đầu đó, trung bình khoảng bao nhiêu ngày lại xuất hiện,số ngày max mới xuất hiện, ngày xuất hiện gần đây nhất.
sheet 3 lấy tất cả 2 số cuối của tất các các giải từ ngày đến ngày ( tựn lựa chọn) sẽ lấy từ sheet1 và phân tích thành các số từ 00,01 ...99 đã xuất hiện bao lần trong khoảng thời gian đó, lần xuất hiện gần đây nhất, và khoảng cách ngày xuất hiện cực đai VD số 16 xuất hiện ngày 01/10/2008 số 16 lại xuất hiện 25/10/2008 khoảng thời gian đó =25/10/2008-01/10/2008 =24 và số ngày lướn nhất đã xuất hiện.mình gửi file kèm

 

[son.0985221400]

Dựa vào bài của Hnonline mình đưa ra file dùng để dowload kqxs, các bạn xem và cho ý kiến!

Bài này hay đó, nhưng làm sao để lấy được kết quả mới hơn? bạn shảe mà dấu công thức thì hơi buồn.

Nhưng qua nghiên cứu thì mình thấy khi lấy kết quả lần đầu thì ok không có gì phải phàn nàn, nhưng nếu muốn cập nhật kết quả cho lần sau thì tạo các cột cập nhật mới, mà không nối tiếp được các dòng hôm trước, có ai đó có thể sửa mình cái vụ này, hơi tịt về ecel cũng như VB.
Đợi tin sớm.

 

[remix_dj]

Cho hỏi cách dùng với ! Tôi là newbiew

 

[nanabi]

TO : bác anhtuan1066 đồng hương góp ý cái này

Cái này mình lập trình lấy kết quả tự động từ XS Bình Dương
Format : Excel 2003

Bác anh tuấn ơi thế giờ em muốn làm macro lấy số liệu giá vàng theo ngày có được không

 

[cavoixanh_1234]

Tôi thì ko biết lập trình nhưng món lô đề cũng máu thấy anh em tự viêt đươc chương trình thống kê nên cũng muốn mạn phép nhờ anh em giup giùm tôi cái:
- Tôi có file Kết quả nhập bằng Accset bây giờ tôi muốn từ file Data nay tôi có thể thống kê dạng như
VD: - vào ngày 22 hàng tháng có con nào hay về
- vào thứ Năm hàng tuần thì có con nào hay về
2 lua chon thống kê này là riêng biệt. Nhờ các chuyên gia giúp cho

 

[thanglt90]

Lại xổ số nữa nè

Thật thú vị không thể bỏ qua..

 

[lucky9999]

Các bạn có thể làm được thêm phần dự đoán như đánh thử không. VD soi cầu hôm đó có 10 con, đánh thử 10 con lô ăn 1 con và con đó nhân với số tiền, tương tự như đề, có tổng số tiền được. thanks

 

[SA_DQ]

Ý kiến 1: File của bạn cần tái cầu trúc

Upload file được rùi, các bạn xem và cho ý kiến nhé .

Vì nếu bạn để như hiện nay, thì chưa được năm bạn đã kiệt quệ tài nguyên về cột để bố trí dữ liệu.
(Hãy xem file đính kèm)

Option Explicit
Sub LastDay()
 Dim Rng As Range, Cls As Range, sRng As Range
 
 Set Cls = Selection
 If Intersect(Cls, Range("AN2:AN101")) Is Nothing Or Cls.Count > 1 Then Exit Sub
 Set Rng = Range("L2:AL" & [Z65500].End(xlUp).Row)
 Set sRng = Rng.Find(Cls.Value, , xlValues, xlWhole, xlByRows)
 If Not sRng Is Nothing Then
   Cls.Offset(, 1).Value = [B2].Value - Cells(sRng.Row, "B").Value
 End If
End Sub

Lưu í:
Mình đã gán tổ hợp fím cho macro;
Bạn bấm chuột chọn 1 ô có dữ liệu số trên cột 'AN' & bấm đồng thời {CTRL}+{SHIFT}+L

(*) Cột 'B' fải có ngày theo định dạng của bọn Mẽo nha! (Muốn nó hiển thị ngày hệ Fáp bạn tự ên nhé)
(*) Nhập mới dữ liệu vô hàng thứ hai của CSDL (Việc này có thể được hỗ trợ bỡi macro luôn)

 

[boyxin]

Thống kê 2 số cuối từ kết quả XS

Thấy nhiều người quan tâm đến vấn đề này . boyxin chầu rìa tý nhé . Gọi là có món quà nhỏ để ra mặt với toppic

post xong bài mới nhìn ra đây là BOX hàm và công thức thế mà lại gửi VBA (Nhờ MOD remove bài này nhé)

 

[boyxin]

Thêm sheet liệt kê 2 số cuối của giải đặc biệt trong năm

 

[DIEUTHUYEN]

Bác Boyxin đã về viết Marco cho vấn đề này rồi à, hôm nào bác lên Hà Nội gọi cho em nhé, anh em ta cafe, cafao tí nhỉ

 

[boyxin]

Thêm sheet liệt kê 2 số cuối của giải đặc biệt trong năm

Thêm đoạn code này sẽ thống kê những số (đề) chưa xuất hiện lần nào trong năm

Set Rng = [B3].Resize(31, 12)
    For num = 0 To 99
        If WorksheetFunction.CountIf(Rng, num) = 0 Then
            i = i + 1: Cells(i + 10, 15) = i
            Cells(i + 10, 16) = num
        End If
    Next

----------------------

Bác Boyxin đã về viết Marco cho vấn đề này rồi à, hôm nào bác lên Hà Nội gọi cho em nhé, anh em ta cafe, cafao tí nhỉ

Okie, tối mai (thứ 2: 12-7-2010) được không?

 

[congthanh6868]

Bác Boyxin đã về viết Marco cho vấn đề này rồi à, hôm nào bác lên Hà Nội gọi cho em nhé, anh em ta cafe, cafao tí nhỉ

Bạn còn tham gia diễn đàn không? Mình đang nghiên cứ vụ lô đề này và cũng áp dụng excel tính toán được tí chút. Nếu bạn vẫn cón hứng thú vụ này thì chúng ta hẹn cafe cà fáo để trao đổi kinh nghiệm. Mình ở đường Bạch Đằng, HN, làm việc tại Hai Bà Trưng.
Cám ơn bạn

 

[khoqua27]

bạn cố gắng hoàn thiện nha. hay lắm. nếu xong gửi cho tham khảo.

 

[kynx_vn]

Mình đã tìm ra cách xóa khoảng trắng trong Comment rồi bro ơi, dưới đây là code mình đã chỉnh sửa lại 1 chút.

Thanks !

Sub GetLotteryResultVersion2()
On Error GoTo ERH
    Dim strTP As String 'Ma tinh/thanh pho
    Dim strDateInput As String
 
    strDateInput = InputBox("Tu ngay : (la ngay bat dau lay ket qua xo so, nhap theo dang dd-MMM-yyyy" & vbCrLf & "VD : 01-Jan-2008" & vbCrLf & "Neu kg nhap se lay mac dinh la ngay 01-Jan-2008", "Tu ngay", "01-jan-2008")
 
    strTP = InputBox("Ma Tinh/Thanh Pho : chi tiet ma Tinh va ma Thanh Pho xem trong wwww.xosobinhduong.com.vn" & vbCrLf _
                    & "1 : Binh Duong" & vbCrLf _
                    & "9 : Vinh Long" & vbCrLf _
                    & "10: Tra Vinh" & vbCrLf _
                    & "11: Dong Nai" & vbCrLf _
                    & "12: Can Tho" & vbCrLf _
                    & "13: Soc Trang" & vbCrLf _
                    & "14: Ben Tre" & vbCrLf _
                    & "15: Vung Tau" & vbCrLf _
                    & "16: Bac Lieu" & vbCrLf _
                    & "17: Binh Thuan " & vbCrLf _
                    & "18: Tay Ninh" & vbCrLf _
                    & "19: An Giang" & vbCrLf _
                    & "20: TP.HCM" & vbCrLf _
                    & "21: Dong Thap" & vbCrLf _
                    & "22: Ca Mau" & vbCrLf _
                    & "23: Tien Giang" & vbCrLf _
                    & "24: Kien Giang" & vbCrLf _
                    & "25: Binh Phuoc" & vbCrLf _
                    & "27: Hau Giang" & vbCrLf _
                    & "......................" _
                    , "Ma Tinh/TP", "1") '1= Binh Duong
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.xosobinhduong.com.vn/Forms/XemKetQuaXoSo.aspx?Ngay=" & Format(strDateInput, "dd/mm/yyyy") & "&TP=" & strTP _
        , Destination:=Range("AA1"))
        .Name = "kqxs"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
 
   '================================================================
   Dim sComment As String
 
   sComment = Trim(Cells(2, "ab")) & Chr(10) _
                & Trim(Cells(3, "ab")) & Chr(10) _
                & Trim(Cells(4, "ab")) & Chr(10) _
                & Trim(Cells(5, "ab")) & Chr(10) _
                & Trim(Cells(6, "ab")) & Chr(10) _
                & Trim(Cells(7, "ab")) & Chr(10) _
                & Trim(Cells(8, "ab")) & Chr(10) _
                & Trim(Cells(9, "ab")) & Chr(10) _
                & Trim(Cells(10, "ab"))
 
   Dim nRow As Integer
 
   With ActiveCell
        nRow = .Row
 
        .ClearComments
        .AddComment
        With .comment
            .Visible = True
            .Text Text:=sComment
            .Shape.Select True
 
            With Selection
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlTop
                .ReadingOrder = xlContext
                .Orientation = xlHorizontal
                .Font.FontStyle = "Bold"
                .Font.Size = 10
            End With
            .Shape.AutoShapeType = msoShapeRectangle
            .Shape.Shadow.Visible = msoTrue
            .Shape.TextFrame.AutoSize = True
            .Visible = False
        End With
 
    End With
 
    '================================================================
    Application.ScreenUpdating = False
    Range("AA1:AC10").Select
    Selection.EntireColumn.Delete
 
 
    '================================================================
 
    Range("E" & nRow, "E" & nRow).Select
 
 
    Exit Sub
ERH:
    MsgBox Err.Description, vbOKOnly
End Sub

Cám ơn các ACE rất nhiều, cho minh hỏi chỉnh code thế nào để:
1. Lấy được KQXS MB và các đài đã định sẵn. ( Chứ không chỉ lấy KQ riêng của 1 đài)
2. Tách được số hàng trăm vào riêng 1 cột. VD: số 123456, mình chi muốn lấy số 4 thôi.
Cám ơn các anh chị em rất nhiều

 

[kynx_vn]

Bạn dùng cái XSBD, vào code, sửa như sau:
thêm
strTP = 53 trước strTP = InputBox ....
thêm ' vào đầu dòng strTP = InputBox .... để nó thành
' strTP = InputBox .....
thế là nó lấy KQXSMB

Cám ơn bạn, tuy nhiên chỉ lấy được đài MB, còn các đài khác thì không lấy được. Bạn có cách nào không. Và bạn có thể viết thêm code để mình tách số hàng trăm của 1 dãy số được không. Ví duh số 123456 mình cần lấy số 4. Cám ơn bạn

 

[buonchet]

TO : bác anhtuan1066 đồng hương góp ý cái này

Cái này mình lập trình lấy kết quả tự động từ XS Bình Dương
Format : Excel 2003
File có macro
Download : http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=10481&stc=1&d=1211271171
Các bạn lấy về và bun nén làm các thao tác sau:

Tool->macro->macros chọn GetLotteryResultVersion2 -> Run

Nhập ngày bắt đầu lấy kqxs măc định nó lấy 01/01/2008

Nhập đài cần lấy kqxs, mặc đinh lấy đài B.Dương

Ngồi chờ nó lấy tự động khoảng từ ngày bạn nhập bên trên đến ngày hiện tại trên hệ thống của bạn

Khi lấy xong nhấn CTRL A, chọn Data->fillter-> auto fillter

Tại Cột A bấm ô chọn và chọn "Tên giải"

Chọn Edit-> Delete

Chọn tiếp data->fillter->auto fillter

tại cột B nhấn combobox chọn custom và bấm OK

Chọn Menu Edit=> delete

Sau các thao tác trên ta đã có dữ liệu sạch chỉ có tên giải , kq và ngày xổ


Có những giải gồm nhiều dãy sắp cùng một hàng ngang nên làm tiếp cái này

Menu tool -> macro -> macros chọn "ReFix" -> Run

Kết quả sẽ cho ra từng dãy số nằm trên một row

sau đó các bạn muốn chặt 1 ,2 hay 3 số từ bên fảii sang để thống kê thì tùy các bạn,mình có viết sẵn mấy macro lấy 1 , 2 ,3 số từ bên fảii sang, để ở nhg cột riêng biệt

Sau đó dùng chức năng sort các bạn có thể thống kê được những số hay xổ nhất, cái dữ liệu này mà import vào MS access viết mấy câu SQL phục vụ cho nghiên cứu rất hay

----------------
Các bạn cứ thoải mái góp ý , để thêm tính năng thì cứ tự nhiên, hoặc y/c minh lấy kết quả của bất cứ đài nào

chào bác anhtuan1066!em làm theo hướng dẫn Tool->macro->macros chọn GetLotteryResultVersion2 -> Run.nhưng cái bảng macro của em chỉ có run_cancel_step into,còn các phần phía dưới không hiện chữ đen mà trắng.em ấn run thì nó ra cái bảng thông báo macros are disabled because the security level is set to high and a digitally signed trusted certificate is not attached to the macro.to run the macros,change the security level to alower setting(not recommended),or request the macros be signed by the author using a certificate issued by a Certificate Authority. em phải là thế nào để cho nó chạy được ạ?xin cảm ơn bác!

 

[37t2ty]

mong mọi ngươiif giúp đỡ, exxcel mình có mầy mò, nhưng còn kém.

thank.

 

[37t2ty]

mong mọi ngươiif giúp đỡ, exxcel mình có mầy mò, nhưng còn kém.

thank.View attachment GIÚP TÔI,.rar

 

[37t2ty]

View attachment GIÚP TÔI,.xlsxmong mọi ngươiif giúp đỡ, exxcel mình có mầy mò, nhưng còn kém.<br>
<br>
thank.View attachment 115272

 

[37t2ty]

hãy chỉ giúp tôi cách nào, để tôi có thể tự mình làm được,
cảm ơn.

 

[ChanhTQ@]

hãy chỉ giúp tôi cách nào, để tôi có thể tự mình làm được,
cảm ơn.

Trước tiên bạn cần giúp mọi người hiểu được bạn!

Mình đọc & đối chiếu hoài mà chả tẹo nào hiểu; Bỡi thế nên đã . . . . . bye!

 

[chaukimsa]

hihi

 

[chaukimsa]

hihi

 

[tuananh292863]

TO : bác anhtuan1066 đồng hương góp ý cái này

Cái này mình lập trình lấy kết quả tự động từ XS Bình Dương
Format : Excel 2003
File có macro
Download : http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=10481&stc=1&d=1211271171
Các bạn lấy về và bun nén làm các thao tác sau:

Tool->macro->macros chọn GetLotteryResultVersion2 -> Run

Nhập ngày bắt đầu lấy kqxs măc định nó lấy 01/01/2008

Nhập đài cần lấy kqxs, mặc đinh lấy đài B.Dương

Ngồi chờ nó lấy tự động khoảng từ ngày bạn nhập bên trên đến ngày hiện tại trên hệ thống của bạn

Khi lấy xong nhấn CTRL A, chọn Data->fillter-> auto fillter

Tại Cột A bấm ô chọn và chọn "Tên giải"

Chọn Edit-> Delete

Chọn tiếp data->fillter->auto fillter

tại cột B nhấn combobox chọn custom và bấm OK

Chọn Menu Edit=> delete

Sau các thao tác trên ta đã có dữ liệu sạch chỉ có tên giải , kq và ngày xổ


Có những giải gồm nhiều dãy sắp cùng một hàng ngang nên làm tiếp cái này

Menu tool -> macro -> macros chọn "ReFix" -> Run

Kết quả sẽ cho ra từng dãy số nằm trên một row

sau đó các bạn muốn chặt 1 ,2 hay 3 số từ bên fảii sang để thống kê thì tùy các bạn,mình có viết sẵn mấy macro lấy 1 , 2 ,3 số từ bên fảii sang, để ở nhg cột riêng biệt

Sau đó dùng chức năng sort các bạn có thể thống kê được những số hay xổ nhất, cái dữ liệu này mà import vào MS access viết mấy câu SQL phục vụ cho nghiên cứu rất hay

----------------
Các bạn cứ thoải mái góp ý , để thêm tính năng thì cứ tự nhiên, hoặc y/c minh lấy kết quả của bất cứ đài nào

anh ơi có thể lâý kết quả xổ số miền bắc không anh
cảm ơn anh

 

[HungQuoc49]

anh ơi có thể lâý kết quả xổ số miền bắc không anh
cảm ơn anh

Dùng cái này xem thế nào

 

[delicatept]

Các anh GPE có thể giúp em lấy kết quả 1 lần 3 đài từ trang web http://www.kqxs.vn/mien-nam được không anh!
file này của anh hnonline đó! chỉ lấy được 1 đài từ kết quả của trang xosobinhduong.vn thoi!
Em thành thật cảm ơn nhiều!

 

[tuananh292863]

Các anh GPE có thể giúp em lấy kết quả 1 lần 3 đài từ trang web http://www.kqxs.vn/mien-nam được không anh!
file này của anh hnonline đó! chỉ lấy được 1 đài từ kết quả của trang xosobinhduong.vn thoi!
Em thành thật cảm ơn nhiều!

Về cách lấy kết quả thì tui là gà trong ecxel nhưng cũng có võ riêng của mình, chia sẻ cho bạn. Bạn thử tìm hiểu về hàm "mid" xem. tôi làm riêng 1 bảng tính để tách 107 số ra thành từng ô rồi copy dữ liệu sang bảng tính khác để tính. chỉ cần copy và pase thôi bạn thử xem sao

 

[tuananh292863]

cần giúp so sánh dữ liệu hai hàng bất kỳ có khả năng lấp khoảng trống cho nhau cao

Như tiêu đề mình muốn nhờ các cao thủ giải giúp mình bài toán này với. Mình có một bảng tính ở bên dưới theo dõi 5672 cầu. Ở shet (cầu báo trúng trượt) thể hiện số 1 hoặc 0 tương ứng trúng hay trượt, nếu không có màu hiện lên thì các bạn fomat shet tự tô màu với điều kiện >0 là nhìn rất rõ chu kì của các cầu. và mình muốn nhờ các bạn tìm hai cầu bất kỳ, thỏa mã điều kiện, cứ cầu này sịt thì cầu kia lại nổ (nổ cả hai càng ngon). và tỷ lệ bù đắp cho nhau là cao nhất trong 5672 cầu đó. cảm ơn mọi ngườ trước. các bác giả được bài này thì chia sẻ cho mình nhé cảm ơn

 

[tuananh292863]

file

đây ạ các bác giả giúp em

 

[SA_DQ]

Như tiêu đề mình nhờ các cao thủ giải bài toán này với:
Mình có một bảng tính ở bên dưới theo dõi 5672 cầu. Ở shet (cầu báo trúng trượt) thể hiện số 1 hoặc 0 tương ứng trúng hay trượt, nếu không có màu hiện lên thì các bạn fomat shet tự tô màu với điều kiện >0 là nhìn rất rõ chu kì của các cầu. và mình muốn nhờ các bạn tìm hai cầu bất kỳ, thỏa mã điều kiện, cứ cầu này sịt thì cầu kia lại nổ (nổ cả hai càng ngon). và tỷ lệ bù đắp cho nhau là cao nhất trong 5672 cầu đó. cảm ơn mọi ngườ trước. các bác giả được bài này thì chia sẻ cho mình nhé cảm ơn

Thứ nhất, chưa thấy cái bảng tính mà bạn đề cập;

Thứ hai: Hình như bạn xài ngoại ngữ Ma Cao; Sẽ có ít người trên diễn đàn tuyền về Excel hiểu được bạn thông qua ngôn ngữ loại này.

Thứ ba: Chúc bạn nhiều thành công!

 

[tuananh292863]

Đây bạn ơi. tui thì không biết ngoại ngữ nên bạn thông cảm hiiiiiiii

 

[nguyenthuy13388]

Tôi dc 1 bạn nhờ làm giúp file theo dỏi kết quả xổ số! Tôi post lên cho các bạn tham khảo và đóng góp ý kiến, vì tôi cảm thấy chưa thật hải lòng lắm
File có 4 sheet:
-Sheet DATA dùng đễ nhập liệu (hiện nay số liệu là giả lập)
-Sheet FIND1 : Đễ xuất ra kết quả của 1 đài nào đó hoặc 1 ngày nào đó theo yêu cầu
-Sheet FIND2: Làm 2 yêu cầu: cho biết số nào chưa sổ trong khoảng thời gian nào đó (10 ngày, 15 ngày, 20 ngày hoặc 30 ngày trước)... Và nó còn cho biết 1 số nào đó đã từng xổ ra ở đài nào trong thời gian nào...
-Sheet CALC dùng đễ đặt các công thức tính toán
Mời các bạn tham khảo và cho ý kiến đóng góp nha!
Tôi đang từ từ hoàn thiện, nhưng do ko rành về vụ xổ số này nên ko biết có gì bất ổn ko
Mến
ANH TUẤN

Bác cho EM hỏi ở sheet "Find2". khi Em chọn dữ liệu trong ô"G7", làm thế nào dữ liệu ở bảng bên dưới( vùng từ "A13:AC37) lại tự động thêm hoặc bớt dữ liệu dc nhỉ???
ai biết làm cái này chỉ Em với

 

[Pthanhbinhxd]

mình muốn nhập kết quả xổ số như thế này
Mình muốn nhập số lần xuất hiện của 1 số ở bảng kết quả xổ số, VD như số 19 xuất hiện 1 lần nhập số 1 vào ô (W,4), số 26 xuất hiện 2 lần nhập số 2 vào ô (AD,4) …

 

[giangleloi]

mình muốn nhập kết quả xổ số như thế này
Mình muốn nhập số lần xuất hiện của 1 số ở bảng kết quả xổ số, VD như số 19 xuất hiện 1 lần nhập số 1 vào ô (W,4), số 26 xuất hiện 2 lần nhập số 2 vào ô (AD,4) …

Bạn xem thử file này coi sao:

 

[duyhut]

Thấy nhiều người quan tâm đến vấn đề này . boyxin chầu rìa tý nhé . Gọi là có món quà nhỏ để ra mặt với toppic

post xong bài mới nhìn ra đây là BOX hàm và công thức thế mà lại gửi VBA (Nhờ MOD remove bài này nhé)

thank bạn

 

[phuong_vietpr]

các bạn có thể nghiên cứu file này của mình chuyên về Lô tô thần chưởng.

https://secufiles.com/In9/Payza_ban_sach.xls

https://secufiles.com/In9/Payza_ban_sach.xls

 

[duyprint]

Mình không có thời gian nghiên cứu.Bạn nào có file thống kê chạy tốt, nhập dữ liệu đơn giản thì bán cho mình nhé.(cầu trúng, trượt, cầu đơn, kép) lh 0982004242

 

[lvlove00]

ai giúp mình với

mình muốn lấy gan cực đại tại miền nam tại trang http://www.minhngoc.net.vn thì mình làm như thế nào vậy????bạn nào giúp mình với

 

[lvlove00]

anh oi giúp em làm cái file có thể thống kê được gan trên trang minhngoc được ko anh

 

[longmth]

Có ai còn hứng thú với cái này nữa không vậy ???????????

 

[SA_DQ]

Chuyển qua XS điện toán đi bạn & chào tạm biệt!

 

[quang021192]

Em có cái file Thống kê bạc nhớ theo giải. Anh nào xem giúp em với ạ

 

[phamconghung]

chuyện đã cũ lắm rồi nhưng xin hỏi bác nào có dữ liệu KQXS miền bắc (tất cả các giải) qua nhiều năm (càng nhiều càng tốt) thì cho mình xin với

 

[CHAOQUAY]

chuyện đã cũ lắm rồi nhưng xin hỏi bác nào có dữ liệu KQXS miền bắc (tất cả các giải) qua nhiều năm (càng nhiều càng tốt) thì cho mình xin với

Đây bạn.
Kết quả miền Bắc từ 1/1/2005 tới 13/6/2020, đã loại bỏ ngày nghỉ tết & dịch COVID19.
Nghe nói có bảng số liệu từ năm 2000 nhưng khoảng từ 2000 tới 2004 mức độ tin cậy không cao nên không thống kê.
Có lẽ 5565 ngày trong file cũng đã là quá đủ.

 

[SA_DQ]

Đây bạn.

& nên chúc rằng thì là mà "Khởi nghiệp thành công, bán nhà lầu cất chòi canh nữa!"

 

[phamconghung]

Đây bạn.
Kết quả miền Bắc từ 1/1/2005 tới 13/6/2020, đã loại bỏ ngày nghỉ tết & dịch COVID19.
Nghe nói có bảng số liệu từ năm 2000 nhưng khoảng từ 2000 tới 2004 mức độ tin cậy không cao nên không thống kê.
Có lẽ 5565 ngày trong file cũng đã là quá đủ.

đa tạ bác, thật là tốt quá đi. Đa tạ, đa tạ

 

[phamconghung]

Đây bạn.
Kết quả miền Bắc từ 1/1/2005 tới 13/6/2020, đã loại bỏ ngày nghỉ tết & dịch COVID19.
Nghe nói có bảng số liệu từ năm 2000 nhưng khoảng từ 2000 tới 2004 mức độ tin cậy không cao nên không thống kê.
Có lẽ 5565 ngày trong file cũng đã là quá đủ.

em đã dùng xử lý được dữ liệu, một kết quả rất tốt với nhu cầu của em.
Có cái lạ là em thấy của bác update đến tận ngày hôm qua, hệ thống của bác chi tiết quá, chắc bác là chuyên gia trong ngành à.

 

[CHAOQUAY]

em đã dùng xử lý được dữ liệu, một kết quả rất tốt với nhu cầu của em.
Có cái lạ là em thấy của bác update đến tận ngày hôm qua, hệ thống của bác chi tiết quá, chắc bác là chuyên gia trong ngành à.

Chuyên gia có lẽ là hơi quá nhưng quan tâm tới mảng này thì có bạn ah.

 

[VetMini]

& nên chúc rằng thì là mà "Khởi nghiệp thành công, bán nhà lầu cất chòi canh nữa!"

Cái này bạn nói với chủ thớt chứ. Những người khác chỉ hùa theo thôi.

 

[phamconghung]

Chuyên gia có lẽ là hơi quá nhưng quan tâm tới mảng này thì có bạn ah.

hì hì, mạn phép xin được show kết quả cho đến thời điểm hiện tại của mình năm nay.
Với dữ liệu của bạn thì cũng cố cho mình thêm 1 phương án mới, có thể sẽ khả thi hơn, cuối năm nay có thể mình sẽ report lại kết quả từ phương án đó tại post này.
(Bảng dưới là dòng tiền thật của mình đó)

 

[CHAOQUAY]

hì hì, mạn phép xin được show kết quả cho đến thời điểm hiện tại của mình năm nay.
Với dữ liệu của bạn thì cũng cố cho mình thêm 1 phương án mới, có thể sẽ khả thi hơn, cuối năm nay có thể mình sẽ report lại kết quả từ phương án đó tại post này.
(Bảng dưới là dòng tiền thật của mình đó)

6 tháng tăng gần 2 lần dòng tiền, có vẻ tốt đấy bạn.

 

[leongnam]

các anh ơi, e muốn tự làm 1 file nhập liệu số của người chơi dạng: lo 40 50 50 60 20x5 40 20 60 90 66 77x10........ làm sao cho thứ 1, báo lỗi khi sai cú pháp, 2 thống kê được tổng điểm đánh, tổng điểm ăn, tổng điểm của từng đầu số, anh nào làm về cái này rồi chỉ giùm em với cho em mở mang đầu óc, em cảm ơn ạ.

 

[CHAOQUAY]

các anh ơi, e muốn tự làm 1 file nhập liệu số của người chơi dạng: lo 40 50 50 60 20x5 40 20 60 90 66 77x10........ làm sao cho thứ 1, báo lỗi khi sai cú pháp, 2 thống kê được tổng điểm đánh, tổng điểm ăn, tổng điểm của từng đầu số, anh nào làm về cái này rồi chỉ giùm em với cho em mở mang đầu óc, em cảm ơn ạ.

Có lẽ bạn gửi lên vài mẫu trong đó có cái lỗi & không lỗi cho dễ xử lý

 

[leongnam]

Có lẽ bạn gửi lên vài mẫu trong đó có cái lỗi & không lỗi cho dễ xử lý

chào anh. ý em là e nhận được tin nhắn từ khách dạng lô thì cú pháp thường sẽ là: lo 20 40 50x5 (nghĩa là: lô 20 đánh 5 điểm, số 40 đánh 5 điểm, số 50 đánh 5 điểm) số trong chuỗi bắt buộc phải có 2 số nếu 1 số hoặc 3 số (1 hoặc 123) thì sẽ báo lỗi để tránh cộng nhầm ý ạ, em sẽ có 1 cột số từ 00-99, nếu cú pháp đúng theo tin nhắn trên công thức sẽ cho 5 điểm về hàng lần lượt của 20 40 50, tin nhắn có thể dài vd: 20 40 50x5 21 33 55 66 99 91x10...... mình định nghĩa sao cho công thức hiểu cứ sau dấu "x" thì là kết thúc 1 chuỗi và bắt đầu đếm chuỗi mới để lần lượt trả số điểm về các ô số tương ứng từ 00-99. cảm ơn anh đã dành thời gian giúp e ạ

 

[CHAOQUAY]

chào anh. ý em là e nhận được tin nhắn từ khách dạng lô thì cú pháp thường sẽ là: lo 20 40 50x5 (nghĩa là: lô 20 đánh 5 điểm, số 40 đánh 5 điểm, số 50 đánh 5 điểm) số trong chuỗi bắt buộc phải có 2 số nếu 1 số hoặc 3 số (1 hoặc 123) thì sẽ báo lỗi để tránh cộng nhầm ý ạ, em sẽ có 1 cột số từ 00-99, nếu cú pháp đúng theo tin nhắn trên công thức sẽ cho 5 điểm về hàng lần lượt của 20 40 50, tin nhắn có thể dài vd: 20 40 50x5 21 33 55 66 99 91x10...... mình định nghĩa sao cho công thức hiểu cứ sau dấu "x" thì là kết thúc 1 chuỗi và bắt đầu đếm chuỗi mới để lần lượt trả số điểm về các ô số tương ứng từ 00-99. cảm ơn anh đã dành thời gian giúp e ạ

Bài này chắc là làm được.
Bạn gửi 1 file giả định với vài dòng mẫu lên cho nhanh có kết quả

 

[leongnam]

Bài này chắc là làm được.
Bạn gửi 1 file giả định với vài dòng mẫu lên cho nhanh có kết quả

anh xem file đính kèm giúp em, hàng ngày e phải nhập thủ công vào các hàng từ 00-99 tương ứng với số điểm khách đánh, vừa lâu, hoa mắt, lại hay bị sai, với e cũng chưa biết cách lưu lại dữ liệu này theo ngày gói trong 1 file để dễ dàng theo dõi theo tên từng khách hàng đánh, ngày, tổng từng các khách hàng đánh trong ngày, cả phần rss kết quả tự động về e thấy các anh làm được ở trên, e tải file đó về thì excel của em các hàng công cụ bên trên trắng xoa không thấy gì và không dùng được e đang xài office 2016 không biết có ảnh hưởng gì không? mong anh xem và giúp đỡ em ạ, cảm ơn anh.

 

[CHAOQUAY]

anh xem file đính kèm giúp em, hàng ngày e phải nhập thủ công vào các hàng từ 00-99 tương ứng với số điểm khách đánh, vừa lâu, hoa mắt, lại hay bị sai, với e cũng chưa biết cách lưu lại dữ liệu này theo ngày gói trong 1 file để dễ dàng theo dõi theo tên từng khách hàng đánh, ngày, tổng từng các khách hàng đánh trong ngày, cả phần rss kết quả tự động về e thấy các anh làm được ở trên, e tải file đó về thì excel của em các hàng công cụ bên trên trắng xoa không thấy gì và không dùng được e đang xài office 2016 không biết có ảnh hưởng gì không? mong anh xem và giúp đỡ em ạ, cảm ơn anh.

Bạn muốn tách số liệu cột B sheet2, điền vào cột P sheet1?

 

[leongnam]

Bạn muốn tách số liệu cột B sheet2, điền vào cột P sheet1?

cái đó em dùng hàm counif ok rồi anh, mỗi lần có kết quả e copy cái bảng kết quả vào sheet2 là tự động hiện kết quả ở ô P của sheet1, cái e cần là e có tin nhắn khách nhắn tới vd: lo 27 70 54 06 19 76x20 87 64x10 84 18x60 38 34 63 16x40 83 71 29 40x30 37 40 58 72 25 52x10 37x40 83x25 45 38 37 36 27x15 35 25 23 20 17x5 12 13 23 21 43 33 31 34x20 96 97 92 86x10 52 59 58 69 72 74 51x10 (thì các dữ liệu này nó tự tách chuỗi và nhảy vào ô tương ứng hoặc chúng tự cộng lại với nhau ra tổng là được ạ.

kiểu như file link youtube này anh nè:

anh xem từ phút 4:30