Tải kết quả xổ số miền Bắc về Excel

lehung208 · 12/7/21

Chào các cao nhân ạ.
Rất cảm ơn tác giả đã chi sẻ file.
E có tải về và đang tập làm quen. File ở #51 của tác giả CHAOQUAY
E có thắc mắc nhỏ muốn hỏi các cao nhân ạ.
Sau khi load xong dữ liệu từ 1/1/2005 đến nay.
e tự lệnh =IF(WEEKDAY(A1,1)=1,CN,T &WEEKDAY(A1,1)) để tạo thứ cho cột B ( e có tải về mà k hiện các thứ trong tuần như của tác giả được)
sau đó em tìm các ngày nghỉ tết, nghỉ dịch không quay để thêm vào như hình 1.
rồi em dùng lọc filter để chọn các Thứ trong tuần ra cột dọc (phía bên phải)
nhưng bị lỗi không đúng theo các thứ mà em đã tạo ở cột B (bị lệch tuần)
Lỗi như hình 2 em chụp.
Mong các cao nhân chỉ giáo ạ.

CHAOQUAY · 12/7/21

lehung208 đã viết:
Chào các cao nhân ạ.
Rất cảm ơn tác giả đã chi sẻ file.
E có tải về và đang tập làm quen. File ở #51 của tác giả CHAOQUAY
E có thắc mắc nhỏ muốn hỏi các cao nhân ạ.
Sau khi load xong dữ liệu từ 1/1/2005 đến nay.
e tự lệnh =IF(WEEKDAY(A1,1)=1,CN,T &WEEKDAY(A1,1)) để tạo thứ cho cột B ( e có tải về mà k hiện các thứ trong tuần như của tác giả được)
sau đó em tìm các ngày nghỉ tết, nghỉ dịch không quay để thêm vào như hình 1.
rồi em dùng lọc filter để chọn các Thứ trong tuần ra cột dọc (phía bên phải)
nhưng bị lỗi không đúng theo các thứ mà em đã tạo ở cột B (bị lệch tuần)
Lỗi như hình 2 em chụp.
Mong các cao nhân chỉ giáo ạ.

Về bổ sung ngày tháng, bạn tải file tại bài 51, chạy "thongketheodong_" ( có gạch ngang ).
Xem thử ra sao rồi hãy tính

lehung208 · 12/7/21

CHAOQUAY đã viết:
Về bổ sung ngày tháng, bạn tải file tại bài 51, chạy "thongketheodong_" ( có gạch ngang ).
Xem thử ra sao rồi hãy tính

sau khi em dùng file của bài #51, thì lúc đầu tải về có sẵn cột thứ. (cột ngày thì hiện ok rồi ạ)
sau khi cập nhật và nhấn tkdong thì quay sang sheet Data thì mất dữ liệu thứ ạ! (cột ngày vẫn ok)
Cứ mỗi lần cập nhật và tkdong thì mất luôn cả dữ liệu những ngày không quay mà em tự thêm vào, và lệnh tạo thứ e thêm nữa. (E k biết gì về code để chỉnh sửa module trong file của anh)
Anh có thể hỗ trợ code thêm lệnh thứ và lệnh load những ngày không quay thêm vào file được không ạ?

CHAOQUAY · 13/7/21

lehung208 đã viết:
sau khi em dùng file của bài #51, thì lúc đầu tải về có sẵn cột thứ. (cột ngày thì hiện ok rồi ạ)
sau khi cập nhật và nhấn tkdong thì quay sang sheet Data thì mất dữ liệu thứ ạ! (cột ngày vẫn ok)
Cứ mỗi lần cập nhật và tkdong thì mất luôn cả dữ liệu những ngày không quay mà em tự thêm vào, và lệnh tạo thứ e thêm nữa. (E k biết gì về code để chỉnh sửa module trong file của anh)
Anh có thể hỗ trợ code thêm lệnh thứ và lệnh load những ngày không quay thêm vào file được không ạ?

File bài 51 bạn làm chưa đúng, phải chạy sub "thongkeTheodong_", không phải bấm nút, thì sẽ thấy kết quả thứ ngày tháng
---

File dưới đây đã hiệu chỉnh code hiển thị cả ngày nghỉ không quay như ý của bạn, bấm nút là được.
Hỏi riêng nhé bạn: Những ngày nghỉ thì ghi ngày tháng vào để dùng vào việc gì vậy?

lehung208 · 13/7/21

CHAOQUAY đã viết:
File bài 51 bạn làm chưa đúng, phải chạy sub "thongkeTheodong_", không phải bấm nút, thì sẽ thấy kết quả thứ ngày tháng
---

File dưới đây đã hiệu chỉnh code hiển thị cả ngày nghỉ không quay như ý của bạn, bấm nút là được.
Hỏi riêng nhé bạn: Những ngày nghỉ thì ghi ngày tháng vào để dùng vào việc gì vậy?

Cảm ơn bác đã hỗ trợ.
E tải về load xong nhưng click nút tktheo dòng thì báo lỗi ạ. (Hình 1. 2)
Hình 3 là những ngày nghỉ của trong tuần, e tự tạo cột để tiện theo dõi.
Nếu lấy dữ liệu không ghi những ngày nghỉ thì bị lệch tuần ạ.
Về mấy cái gọi là module hay code là e mù tịt ạ.

CHAOQUAY · 13/7/21

lehung208 đã viết:
Cảm ơn bác đã hỗ trợ.
E tải về load xong nhưng click nút tktheo dòng thì báo lỗi ạ. (Hình 1. 2)
Hình 3 là những ngày nghỉ của trong tuần, e tự tạo cột để tiện theo dõi.
Nếu lấy dữ liệu không ghi những ngày nghỉ thì bị lệch tuần ạ.
Về mấy cái gọi là module hay code là e mù tịt ạ.

Thử file dưới xem sao

lehung208 · 13/7/21

CHAOQUAY đã viết:
Thử file dưới xem sao

Chuẩn rồi bác.
Nhưng sao e load thấy nó nặng hơn các file trước nhỉ? toàn báo not responding thôi, phải đợi 1 lúc nó mới hết lag. (e coppy cái module của file cũ của bác ở bài #51 sang file mới của bác ở bài #66 được không ạ? tại e thấy cái capnhat ở bài #51 load nhanh hơn bài #66 ạ.)
Cái bảng thống kê tuần của e ở trên, bác có code nào để lấy tổng 2 số cuối không ạ.
chẳng hạn như hôm nay: 41507 -> 7

CHAOQUAY · 13/7/21

lehung208 đã viết:
Chuẩn rồi bác.
Nhưng sao e load thấy nó nặng hơn các file trước nhỉ? toàn báo not responding thôi, phải đợi 1 lúc nó mới hết lag. (e coppy cái module của file cũ của bác ở bài #51 sang file mới của bác ở bài #66 được không ạ? tại e thấy cái capnhat ở bài #51 load nhanh hơn bài #66 ạ.)
Cái bảng thống kê tuần của e ở trên, bác có code nào để lấy tổng 2 số cuối không ạ.
chẳng hạn như hôm nay: 41507 -> 7

Bạn cứ thử thôi, không được lại quay về file cũ.
Phần cập nhật không thay đổi gì hết nhé bạn, hay là khi đó máy bạn mở thêm chương trình gì khác?
Thống kê tổng hiệu hay chẵn lẻ, bóng đồ đơn giản thôi bạn. Có cái là để vài ngày nữa rảnh mới viết được

thanhhn_ht · 14/7/21

cho mình xin file cập nhật kết quả miền bắc qua mạng chay chuẩn

lehung208 · 14/7/21

CHAOQUAY đã viết:
Bạn cứ thử thôi, không được lại quay về file cũ.
Phần cập nhật không thay đổi gì hết nhé bạn, hay là khi đó máy bạn mở thêm chương trình gì khác?
Thống kê tổng hiệu hay chẵn lẻ, bóng đồ đơn giản thôi bạn. Có cái là để vài ngày nữa rảnh mới viết được

Vâng bác.
Cái gì có sẵn là em coppy - paste xem nó có chạy không. nếu không là backup lại ngay.
Cái code kia lúc nào rãnh bác viết cũng được ạ.

Bài đã được tự động gộp: 14/7/21

thanhhn_ht đã viết:
cho mình xin file cập nhật kết quả miền bắc qua mạng chay chuẩn

bài #51 của bác CHAOQUAY nhé. load siêu nhanh, chuẩn đét

CHAOQUAY · 14/7/21

lehung208 đã viết:
Vâng bác.
Cái gì có sẵn là em coppy - paste xem nó có chạy không. nếu không là backup lại ngay.
Cái code kia lúc nào rãnh bác viết cũng được ạ.

Bài đã được tự động gộp: 14/7/21

bài #51 của bác CHAOQUAY nhé. load siêu nhanh, chuẩn đét

Thống kê tổng dùng code dưới đây. ( dùng cho file bài 51 hoặc 66 )
Bạn làm như sau:
copy code dưới đây -> mở file -> nhấn alt + F11 -> nhấn alt + I + M -> nhấn ctrl + V -> nhấn alt + Q.
Nhấn alt + F8 -> kích chạy macro có tên "thongkeTongDuoiGDB_"

Mã:

Option Explicit

Sub thongkeTongDuoiGDB_()
Dim Nguon
Dim Tieude
Dim Kq() As String
Dim rws
Dim i, j, k, x, z, t

Nguon = Sheet2.Range("A3", Sheet2.Range("C" & Rows.Count).End(xlUp))
rws = UBound(Nguon)
ReDim Kq(1 To rws / 7 + 1, 1 To 14)
k = 1
For i = 1 To rws
    t = Application.Weekday(CDate(Nguon(i, 1)), 1)
    If t = 1 Then
        t = 7
    Else
        t = t - 1
    End If
    t = t * 2 - 1
    If Nguon(i, 3) <> "" Then
        Kq(k, t) = Nguon(i, 3)
        x = Right(Nguon(i, 3), 1) * 1
        z = Mid(Nguon(i, 3), 4, 1) * 1
        Kq(k, t + 1) = (x + z) Mod 10
    End If
    If t = 13 Then k = k + 1
Next i

ReDim Tieude(1 To 14)
t = 2
For j = 1 To 14 Step 2
    If j = 13 Then
        Tieude(j) = "CN"
    Else
        Tieude(j) = "T" & t
        t = t + 1
    End If
Next j
With Sheet2
    .Range("AE3:AR" & rws + 2).ClearContents
    .Range("AE2").Resize(1, 14) = Tieude
    .Range("AE3").Resize(k, 14) = Kq
    .Range("AE2").Resize(k + 1, 14).Borders.LineStyle = 1
End With
End Sub

lehung208 · 16/7/21

CHAOQUAY đã viết:

Thống kê tổng dùng code dưới đây. ( dùng cho file bài 51 hoặc 66 )
Bạn làm như sau:
copy code dưới đây -> mở file -> nhấn alt + F11 -> nhấn alt + I + M -> nhấn ctrl + V -> nhấn alt + Q.
Nhấn alt + F8 -> kích chạy macro có tên "thongkeTongDuoiGDB_"

Mã:

Option Explicit

Sub thongkeTongDuoiGDB_()
Dim Nguon
Dim Tieude
Dim Kq() As String
Dim rws
Dim i, j, k, x, z, t

Nguon = Sheet2.Range("A3", Sheet2.Range("C" & Rows.Count).End(xlUp))
rws = UBound(Nguon)
ReDim Kq(1 To rws / 7 + 1, 1 To 14)
k = 1
For i = 1 To rws
    t = Application.Weekday(CDate(Nguon(i, 1)), 1)
    If t = 1 Then
        t = 7
    Else
        t = t - 1
    End If
    t = t * 2 - 1
    If Nguon(i, 3) <> "" Then
        Kq(k, t) = Nguon(i, 3)
        x = Right(Nguon(i, 3), 1) * 1
        z = Mid(Nguon(i, 3), 4, 1) * 1
        Kq(k, t + 1) = (x + z) Mod 10
    End If
    If t = 13 Then k = k + 1
Next i

ReDim Tieude(1 To 14)
t = 2
For j = 1 To 14 Step 2
    If j = 13 Then
        Tieude(j) = "CN"
    Else
        Tieude(j) = "T" & t
        t = t + 1
    End If
Next j
With Sheet2
    .Range("AE3:AR" & rws + 2).ClearContents
    .Range("AE2").Resize(1, 14) = Tieude
    .Range("AE3").Resize(k, 14) = Kq
    .Range("AE2").Resize(k + 1, 14).Borders.LineStyle = 1
End With
End Sub

quá tuyệt bác ạ. Chạy chuẩn đét không lỗi lầm. ảnh e load lên đây
Nhưng có chút thắc mắc cụ ạ:
Sau khi e nhấn cập nhật lấy dữ liệu xong, sau đó thống kê. thì hiện bảng ok.
E đặt lệnh chạy macro mới thì hiện ra bảng tổng cùng sheet với tkdong.
nhưng chỉ cần nhấn cập nhật và tkdong lại là mất bảng tổng. lúc đấy lại phải Alt F8 lại để chạy macro bác ạ.

CHAOQUAY · 16/7/21

lehung208 đã viết:
quá tuyệt bác ạ. Chạy chuẩn đét không lỗi lầm. ảnh e load lên đây
Nhưng có chút thắc mắc cụ ạ:
Sau khi e nhấn cập nhật lấy dữ liệu xong, sau đó thống kê. thì hiện bảng ok.
E đặt lệnh chạy macro mới thì hiện ra bảng tổng cùng sheet với tkdong.
nhưng chỉ cần nhấn cập nhật và tkdong lại là mất bảng tổng. lúc đấy lại phải Alt F8 lại để chạy macro bác ạ.

Nhấn alt + F11 -> tìm sub "thongkeTheodong_themNgayNghi" -> tìm dòng "End Sub" dưới cùng ->
Thay thế "End Sub" thành 2 dòng như dưới đây

Mã:

Call thongkeTongDuoiGDB_
End Sub

lehung208 · 16/7/21

CHAOQUAY đã viết:
Nhấn alt + F11 -> tìm sub "thongkeTheodong_themNgayNghi" -> tìm dòng "End Sub" dưới cùng ->
Thay thế "End Sub" thành 2 dòng như dưới đây

Mã:

Call thongkeTongDuoiGDB_ End Sub

Quá tuyệt vời ông mặt trời bác ạ. Gửi bác triệu like :3 tất tay lô 14 đi bác

doccohaiau · 8/9/21

E đào chút ạ.
Có bác nào có code lấy bên minhngoc.net ko ạ?
Chia sẻ cho e với ạ. Bên ketqua1.net miền trung nam dữ liệu sai nhiều quá.
Chính xác là bị thiếu. lúc thì thiếu giải, thiếu số

leadlong1422 · 8/9/21

doccohaiau đã viết:
E đào chút ạ.
Có bác nào có code lấy bên minhngoc.net ko ạ?
Chia sẻ cho e với ạ. Bên ketqua1.net miền trung nam dữ liệu sai nhiều quá.
Chính xác là bị thiếu. lúc thì thiếu giải, thiếu số

bạn chứng minh ngày nào bị sai để mình thử check lại xem

doccohaiau · 8/9/21

leadlong1422 đã viết:
bạn chứng minh ngày nào bị sai để mình thử check lại xem

Cái kết quả m sửa rồi :v
Nhưng mà ví dụ nhé.
24-07-2020 10MZ-2MZ-4MZ-5MZ-6MZ-8MZ
03-10-2020 4QL-2QL-13QL-7QL-11QL-15QL
31-01-2021 11XS-10XS-3XS-6XS-7XS-1XS
15-03-2021 8ZR-13ZR-15ZR-9ZR-6ZR-1ZR

Điển hình nhất là ở miền nam. cái giai đoạn đầu tầm từ năm 2009-2017. gđb nó có 6 số nhưng toàn cắt thành 5 số là dễ nhận biết nhất.
Còn miền bắc từ 2005 - 2021 cũng có vài lần sai (thiếu) giai đoạn này tổng vị trí ở miền bắc là 107. còn trước đó thì ít hơn t ko nói. chỉ là gợi ý cho b khi kiểm tra cơ bản thôi

(Mà hình như còn có ngày bị lặp lại kết quả ngày trước. t ko nhớ chính xác cái này. vì ko nhớ cái này là t check ở phôi bên ketqua hay bên khác

)
đây là ví dụ:

Kết Quả Xổ Số Bạc Liêu Hôm Nay ngày 28-08-2012

XSBL - SXBL - xổ số Bạc Liêu, trực tiếp xổ số bạc liêu hom nay. Kết quả xổ số bạc liêu thu 3 hang tuan . KQXS Bac Lieu, ket qua xsbl, thong ke xsbl.

ketqua1.net

Kết Quả Xổ Số Bạc Liêu Hôm Nay ngày 18-04-2024 - Ketqua.net

XSBL - SXBL - xổ số Bạc Liêu, trực tiếp xổ số bạc liêu hom nay. Kết quả xổ số bạc liêu thu 3 hang tuan . KQXS Bac Lieu, ket qua xsbl, thong ke xsbl.

ketqua1.net

...........

Xuân Voi · 8/9/21

doccohaiau đã viết:
Cái kết quả m sửa rồi :v
Nhưng mà ví dụ nhé.
24-07-2020 10MZ-2MZ-4MZ-5MZ-6MZ-8MZ
03-10-2020 4QL-2QL-13QL-7QL-11QL-15QL
31-01-2021 11XS-10XS-3XS-6XS-7XS-1XS
15-03-2021 8ZR-13ZR-15ZR-9ZR-6ZR-1ZR

Điển hình nhất là ở miền nam. cái giai đoạn đầu tầm từ năm 2009-2017. gđb nó có 6 số nhưng toàn cắt thành 5 số là dễ nhận biết nhất.
Còn miền bắc từ 2005 - 2021 cũng có vài lần sai (thiếu) giai đoạn này tổng vị trí ở miền bắc là 107. còn trước đó thì ít hơn t ko nói. chỉ là gợi ý cho b khi kiểm tra cơ bản thôi
(Mà hình như còn có ngày bị lặp lại kết quả ngày trước. t ko nhớ chính xác cái này. vì ko nhớ cái này là t check ở phôi bên ketqua hay bên khác )
đây là ví dụ:

Kết Quả Xổ Số Bạc Liêu Hôm Nay ngày 28-08-2012

XSBL - SXBL - xổ số Bạc Liêu, trực tiếp xổ số bạc liêu hom nay. Kết quả xổ số bạc liêu thu 3 hang tuan . KQXS Bac Lieu, ket qua xsbl, thong ke xsbl.

ketqua1.net

Kết Quả Xổ Số Bạc Liêu Hôm Nay ngày 18-04-2024 - Ketqua.net

XSBL - SXBL - xổ số Bạc Liêu, trực tiếp xổ số bạc liêu hom nay. Kết quả xổ số bạc liêu thu 3 hang tuan . KQXS Bac Lieu, ket qua xsbl, thong ke xsbl.

ketqua1.net

...........

Đài miền nam và miền trung những ngày nghỉ mới đây mà trên web vẫn để kết quả của những lần quay trước thì code của bác CHAO QUAY chưa bẫy lỗi... Nhé

doccohaiau · 8/9/21

xuantuong.ktv đã viết:
Đài miền nam và miền trung những ngày nghỉ mới đây mà trên web vẫn để kết quả của những lần quay trước thì code của bác CHAO QUAY chưa bẫy lỗi... Nhé

m lấy theo đài cần gì bẫy lỗi b ơi

. b dùng region tab chứ m chỉ dùng tab thôi. Nhưng bên ketqua1 dữ liệu ko chính xác.

Mã:

.Open "GET", "http://ketqua1.net/xo-so-AN-GIANG.php?ngay=" & A_UPDATE_HNI.Range("J3"), False
            .send
            Do While .readyState <> 4
                DoEvents
            Loop
            html.body.innerHTML = .responseText
            Set resT = html.getElementById("result_tab_AG")
            ReDim result(1 To 10, 1 To 8) As String

CHAOQUAY · 9/9/21

doccohaiau đã viết:
m lấy theo đài cần gì bẫy lỗi b ơi . b dùng region tab chứ m chỉ dùng tab thôi. Nhưng bên ketqua1 dữ liệu ko chính xác.

Mã:

.Open "GET", "http://ketqua1.net/xo-so-AN-GIANG.php?ngay=" & A_UPDATE_HNI.Range("J3"), False .send Do While .readyState <> 4 DoEvents Loop html.body.innerHTML = .responseText Set resT = html.getElementById("result_tab_AG") ReDim result(1 To 10, 1 To 8) As String

Vậy là đã giải quyết được chưa bạn

Tải kết quả xổ số miền Bắc về Excel

Thành viên mới

File đính kèm

Thành viên gắn bó

Thành viên mới

Thành viên gắn bó

File đính kèm

Thành viên mới

File đính kèm

Thành viên gắn bó

File đính kèm

Thành viên mới

File đính kèm

Thành viên gắn bó

Thành viên mới

Thành viên mới

Thành viên gắn bó

Thành viên mới

File đính kèm

Thành viên gắn bó

Thành viên mới

Thành viên chính thức

Thành viên mới

Thành viên chính thức

Thành viên mới

Thành viên chính thức

Thành viên gắn bó

Facebook

Group