Tải kết quả xổ số 3 miền về excel

[doccohaiau]

Timer() Chạy tất cả miền Trung + Nam. 1h40p.
Nguyên file vừa chạy cho ai lười lúc này

 

[HeSanbi]

Timer() Chạy tất cả miền Trung + Nam. 1h40p.
Nguyên file vừa chạy cho ai lười lúc này

Bên này ứng dụng chạy vài giây xong, sao bạn không tham khảo. Mà chờ đến gần 2h dữ vậy.

Dò vé số 3 miền, và thu thập kết quả sổ xố siêu nhanh với Excel

*** Ứng dụng Bài viết giúp các bạn học và tham khảo code VBA hiệu quả *** Hôm nay tôi chia sẻ cho những ai đam mê mua vé số nhưng muốn dò vé số nhanh chóng với ứng dụng Excel, thì đã có ứng dụng dò kết quả xổ số 3 miền dưới đây giúp các bạn đơn giản hóa việc dò vé số cũng như thu thập kết quả...

www.giaiphapexcel.com

 

[doccohaiau]

Bên này ứng dụng chạy vài giây xong, sao bạn không tham khảo. Mà chờ đến gần 2h dữ vậy.

Dò vé số 3 miền, và thu thập kết quả sổ xố siêu nhanh với Excel

*** Ứng dụng Bài viết giúp các bạn học và tham khảo code VBA hiệu quả *** Hôm nay tôi chia sẻ cho những ai đam mê mua vé số nhưng muốn dò vé số nhanh chóng với ứng dụng Excel, thì đã có ứng dụng dò kết quả xổ số 3 miền dưới đây giúp các bạn đơn giản hóa việc dò vé số cũng như thu thập kết quả...

www.giaiphapexcel.com

m học hành vọc vạch là chính. nhìn code file đó tẩu hoả mất.
Với lại m chỉ cần dữ liệu. Còn mấy cái khác không cần. Xem code có hiểu gì đâu.
File của b đc down về từ hôm đăng có nhìn lướt qua .

 

[CHAOQUAY]

View attachment 266340
Timer() Chạy tất cả miền Trung + Nam. 1h40p.
Nguyên file vừa chạy cho ai lười lúc này

Có muốn tăng tốc về vài giây không bạn?

 

[doccohaiau]

Có muốn tăng tốc về vài giây không bạn?

Vài giây là vài bao nhiêu nhỉ. Đọc code lại không hiểu gì thì vui quá

 

[doccohaiau]

Sub ThietlapReg()
Set Reg = CreateObject("VbScript.RegExp")
Reg.Global = True
Reg.Pattern = "\d+"
End Sub

Kể mà rảnh rảnh thì có khi m lại ngứa tay build lại theo đài ý nhỉ.
Nhưng lại mất công đọc để hiểu

Cái Pattern này khoai thế Bạn. Chắc phải lượm lặt từng chữ một.
Để đâu đó lúc cần dùng thì nhìn lại.
May còn chưa toáy moáy vào file của Bác Hesanbi không thì ngủ mơ thấy ăn mì tôm cả đời.

 

[CHAOQUAY]

Cái Pattern này khoai thế Bạn. Chắc phải lượm lặt từng chữ một.
Để đâu đó lúc cần dùng thì nhìn lại.
May còn chưa toáy moáy vào file của Bác Hesanbi không thì ngủ mơ thấy ăn mì tôm cả đời.

Khoai sắn gì đâu, cơ bản mà bạn. Cái này dùng để tách chuỗi khi tên giải & kết quả bị dính liền.
Ví dụ như: rađêroài0880

 

[doccohaiau]

Khoai sắn gì đâu, cơ bản mà bạn. Cái này dùng để tách chuỗi khi tên giải & kết quả bị dính liền.
Ví dụ như: rađêroài0880

Nếu chỉ cơ bản như thế thì mình copy cho nhanh .
Ý mình muốn nói là vấn đề sử dụng cho sau này trong những trường hợp khác đó.
Mì tôm nhưng vẫn phải nghiên cứu. hic. Tại sơ bộ thì có vẻ đáp ứng được thứ mình cần
3 thứ chính đang cần: Liên quan đến Web, mảng, Xử lý dữ liệu.
Những thứ khác không phải cần chính thì nghiên cứu từ từ.

 

[msfbtvt]

Chào bác @CHAOQUAY

Lâu lâu e mới qay lại diễn đàn

Thấy bác có file mới mà hí hửng qá

Nhưng số e làm sao ấy, chạy vẫn ko dc

 

[CHAOQUAY]

Chào bác @CHAOQUAY

Lâu lâu e mới qay lại diễn đàn

Thấy bác có file mới mà hí hửng qá

Nhưng số e làm sao ấy, chạy vẫn ko dc

View attachment 269369

Báo lỗi thế nào bạn chụp hình gửi lên nhé

 

[msfbtvt]

Báo lỗi thế nào bạn chụp hình gửi lên nhé

Đây bác, làm phiền bác

 

[CHAOQUAY]

Đây bác, làm phiền bác

View attachment 269466

Bạn test thử sheet miền Bắc trong file dưới đây xem sao rồi nhắn lại.
Miền Trung, Nam chưa sửa

 

[msfbtvt]

Bạn test thử sheet miền Bắc trong file dưới đây xem sao rồi nhắn lại.
Miền Trung, Nam chưa sửa

E chạy thì nó ra lỗi y hệt ở bài trên e post bác ợ :v

 

[CHAOQUAY]

E chạy thì nó ra lỗi y hệt ở bài trên e post bác ợ :v

Test lại file này 1 lần nữa, vẫn sheet miền Bắc nhé bạn
Tường lửa (Firewall) máy bạn để như thế nào?

 

[msfbtvt]

Test lại file này 1 lần nữa, vẫn sheet miền Bắc nhé bạn
Tường lửa (Firewall) máy bạn để như thế nào?

firewall e đã thử tắt/ bật vẫn ko khác

còn file mới nhất chạy nó báo lỗi này bác ơi

 

[CHAOQUAY]

firewall e đã thử tắt/ bật vẫn ko khác

còn file mới nhất chạy nó báo lỗi này bác ơi


View attachment 269587

Có lẽ khả năng là lỗi do thư viện trong bộ office của bạn. Để xem có cách xử lý nào khác rồi sẽ nhắn lại bạn.

---
Bạn đang dùng bản office nào?

 

[msfbtvt]

Có lẽ khả năng là lỗi do thư viện trong bộ office của bạn. Để xem có cách xử lý nào khác rồi sẽ nhắn lại bạn.

---
Bạn đang dùng bản office nào?

Thank b, b nhiệt tình quá.

E dùng bản quyền chính thức office 365 bác ah

 

[phithuongbatphu86]

Test lại file này 1 lần nữa, vẫn sheet miền Bắc nhé bạn
Tường lửa (Firewall) máy bạn để như thế nào?

Bác có thể cho tôi xin địa chỉ email/ zalo/ SDT được ko? File trước đây bác viết giúp tôi chạy hay quá. tôi có nhu cầu nâng cấp 1 chút.thank bác

 

[hoangnt71466]

Miền Trung và Nam e test thấy chạy OK.
sao Miền Bắc em chạy nó hiện ntn ạ?

 

[tranhoainam9701]

Bác có thể cho tôi xin địa chỉ email/ zalo/ SDT được ko? File trước đây bác viết giúp tôi chạy hay quá. tôi có nhu cầu nâng cấp 1 chút.thank bác

Phi thương bất phú có thể cho xin số zalo để kết bạn không? tiện trao đổi vấn đề này vì tôi cũng đang nghiên cứu. số tôi là 0985.488.323