Tải kết quả xổ số miền Bắc về Excel (2 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
Status
Không mở trả lời sau này.
C

CHAOQUAY

Thành viên gắn bó
Tham gia
24/8/18
Bài viết
2,234
Được thích
2,746
Để chạy được file này, cần làm như sau:
Nhấn alt+F11
Nhấn alt+T+R -> tìm & tích chọn các mục như hình trong sheet "Hd" -> OK -> alt+Q.
Chuyển sang sheet "capnhat", thực hiện theo hướng dẫn bên trong.
---
File này lấy kết quả miền Bắc từ trang ketqua.net.
Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không thống kê.
 

File đính kèm

CHAOQUAY đã viết:
Để chạy được file này, cần làm như sau:
Nhấn alt+F11
Nhấn alt+T+R -> tìm & tích chọn các mục như hình trong sheet "Hd" -> OK -> alt+Q.
Chuyển sang sheet "capnhat", thực hiện theo hướng dẫn bên trong.
---
File này lấy kết quả miền Bắc từ trang ketqua.net.
Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không thống kê.
Nhấp chuột vào đây để mở rộng...
Hay quá, không biết có xổ số miền nam không bạn.
 
CHAOQUAY đã viết:
Đợt này hơi bận, sắp tới rảnh sẽ làm miền trung & miền nam luôn thể
Nhấp chuột vào đây để mở rộng...
Cám ơn tác giả.

Có 1 bug nhỏ là khi gặp ngày không sổ xố. Ví dụ trong tháng 4 vừa qua. Trang kết quả sổ xố vẫn hiện 31/3/2020. Cho nên maxNgay không nhảy. thành ra script cứ tải hoài ngày 1/4/2020 đến vô tận.
Để giải quyết, mình cho result (1,1) thành ngày (bằng J3). Và dời td đầu tiên qua result (1,2) thì không bị vướng nữa.
Cái này có lợi là mình có 2 cell chứa date để sau này compare. Nếu không match thì coi như ngày đó không xổ và xóa ra khỏi database.

Mình thích miền nam nên chỉnh thành miền nam.

Mã: 
# add thêm ngày vào result(1,2)

                For Each resR In resT.Rows
                    
                    
                    If i = 1 Then
                        
                        result(1, 1) = Sheet1.Range("J3")
                        j = 1
                        For Each cll In resR.Cells
                            
                            If j = 1 Then
                                firstLine = cll.innerText
                                
                                namLoc = InStr(1, firstLine, vbNewLine)
                                result(i, j + 1) = Right(firstLine, Len(firstLine) - namLoc - 1)
                                
                                
                            Else
                                result(i, j + 1) = cll.innerText


                                j = j + 1
                            End If
                        Next cll ......

File Miền Nam mình lấy mọi đài cho vào database, sau này dùng hàm filter nó sau.

Miền trung thì chỉ cần đổi

Mã: 
.Open "GET", "http://ketqua.net/xo-so-mien-nam.php?ngay=" & Sheet1.Range("J3"), False

thành
.Open "GET", "http://ketqua.net/xo-so-mien-trung.php?ngay=" & Sheet1.Range("J3"), False
 

File đính kèm

nimbus99 đã viết:
Cám ơn tác giả.

Có 1 bug nhỏ là khi gặp ngày không sổ xố. Ví dụ trong tháng 4 vừa qua. Trang kết quả sổ xố vẫn hiện 31/3/2020. Cho nên maxNgay không nhảy. thành ra script cứ tải hoài ngày 1/4/2020 đến vô tận.
Để giải quyết, mình cho result (1,1) thành ngày (bằng J3). Và dời td đầu tiên qua result (1,2) thì không bị vướng nữa.
Cái này có lợi là mình có 2 cell chứa date để sau này compare. Nếu không match thì coi như ngày đó không xổ và xóa ra khỏi database.

Mình thích miền nam nên chỉnh thành miền nam.

Mã: 
# add thêm ngày vào result(1,2)

                For Each resR In resT.Rows
                   
                   
                    If i = 1 Then
                       
                        result(1, 1) = Sheet1.Range("J3")
                        j = 1
                        For Each cll In resR.Cells
                           
                            If j = 1 Then
                                firstLine = cll.innerText
                               
                                namLoc = InStr(1, firstLine, vbNewLine)
                                result(i, j + 1) = Right(firstLine, Len(firstLine) - namLoc - 1)
                               
                               
                            Else
                                result(i, j + 1) = cll.innerText


                                j = j + 1
                            End If
                        Next cll ......

File Miền Nam mình lấy mọi đài cho vào database, sau này dùng hàm filter nó sau.

Miền trung thì chỉ cần đổi

Mã: 
.Open "GET", "http://ketqua.net/xo-so-mien-nam.php?ngay=" & Sheet1.Range("J3"), False

thành
.Open "GET", "http://ketqua.net/xo-so-mien-trung.php?ngay=" & Sheet1.Range("J3"), False
Nhấp chuột vào đây để mở rộng...
Từ ngày 1/4 đến 22/4 miền Bắc nghỉ dịch covid19, đến ngày 23/4 lại có trở lại. Trong những ngày nghỉ, dòng cuối sẽ hiển thị chuỗi ngày tháng nối liền, hết ngày nghỉ sẽ lại chạy bình thường. Trên máy tôi chạy không bị lặp vô tận bạn ah.

---
Cám ơn bạn đã bổ sung miền Trung & miền Nam
 
CHAOQUAY đã viết:
Từ ngày 1/4 đến 22/4 miền Bắc nghỉ dịch covid19, đến ngày 23/4 lại có trở lại. Trong những ngày nghỉ, dòng cuối sẽ hiển thị chuỗi ngày tháng nối liền, hết ngày nghỉ sẽ lại chạy bình thường. Trên máy tôi chạy không bị lặp vô tận bạn ah.

---
Cám ơn bạn đã bổ sung miền Trung & miền Nam
Nhấp chuột vào đây để mở rộng...
Đúng rồi, miền Bắc không có cho kết quả nếu không xổ, chỉ có 1 dòng thông báo.
Miền Trung và miền Nam thì trang web nào (như minhngoc cũng vậy) đều để kết quả ngày cũ 31/3, nên mới bị loop.
 
Chào bác e chạy thì bị lỗi này, mong bác bác chỉ giáo ạ

1620448645620.png
 
@CHAOQUAY:
Bạn có thể chia sẻ cho mình biết nguyên tắc chung để cập nhật dữ liệu từ 1 bảng số liệu trên 1 trang web vào bảng tính excel ?
 
CHAOQUAY đã viết:
Bạn chạy file nào & thời gian tải kết quả trong khoảng nào để kiểm tra
Nhấp chuột vào đây để mở rộng...
Bác ơi e chạy file đầu tiên của bác ở đầu bài viết

1620664086368.png

E chọn cái ngày này đổi từ 01-01-20 về 01-01-05

Khi ấn nút capnhat thì bảng báo lỗi như sau

Bác giúp e với ạ

1620664138232.png
 
baongocdaihocchuto đã viết:
@CHAOQUAY:
Bạn có thể chia sẻ cho mình biết nguyên tắc chung để cập nhật dữ liệu từ 1 bảng số liệu trên 1 trang web vào bảng tính excel ?
Nhấp chuột vào đây để mở rộng...
Bạn chưa biết gì về việc này?
Bài đã được tự động gộp:

msfbtvt đã viết:
Bác ơi e chạy file đầu tiên của bác ở đầu bài viết

View attachment 258418

E chọn cái ngày này đổi từ 01-01-20 về 01-01-05

Khi ấn nút capnhat thì bảng báo lỗi như sau

Bác giúp e với ạ
Nhấp chuột vào đây để mở rộng...
Máy tôi test bình thường, bạn gõ đủ 2005 xem sao rồi nhắn lại
 
Lần chỉnh sửa cuối:
@CHAOQUAY:
Mình chưa biết nên hỏi bạn, đâu có rảnh để hỏi chơi.
Mình thấy file cập nhật kết quả xổ số của bạn hay quá, muốn ứng dụng cho 1 trang web khác mà không biết bắt đầu từ đâu.
Bạn vui lòng chia sẻ nhé.
 
Lần chỉnh sửa cuối:
CHAOQUAY đã viết:
Để chạy được file này, cần làm như sau:
Nhấn alt+F11
Nhấn alt+T+R -> tìm & tích chọn các mục như hình trong sheet "Hd" -> OK -> alt+Q.
Chuyển sang sheet "capnhat", thực hiện theo hướng dẫn bên trong.
---
File này lấy kết quả miền Bắc từ trang ketqua.net.
Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không thống kê.
Nhấp chuột vào đây để mở rộng...
Sao không ngăn cập nhật màn hình để thực thi code cho nhanh bạn nhỉ?
 
Maika8008 đã viết:
Sao không ngăn cập nhật màn hình để thực thi code cho nhanh bạn nhỉ?
Nhấp chuột vào đây để mở rộng...
Cho đỡ nhàm chán đơn điệu thôi bạn
Bài đã được tự động gộp:

baongocdaihocchuto đã viết:
@CHAOQUAY:
Mình chưa biết nên hỏi bạn, đâu có rảnh để hỏi chơi.
Mình thấy file cập nhật kết quả xổ số của bạn hay quá, muốn ứng dụng cho 1 trang web khác mà không biết bắt đầu từ đâu.
Bạn vui lòng chia sẻ nhé.
Nhấp chuột vào đây để mở rộng...
Thời gian đầu tôi tìm hiểu về "xử lý chuỗi JSON" trên diễn đàn, bạn tìm kiếm thử xem
 
Lần chỉnh sửa cuối:
Bác @CHAOQUAY ạ E xóa dòng này đi thì chạy được nhưng kết quả chỉ dc giải đặc biệt và nhất

result(i, z + 1) = Mid(t, (z - 1) * eNs(i - 3) + 1, eNs(i - 3))

1622153132457.png
 
Đúng là minh cũng gặp lỗi này ấn vào debug thì nó báo dòng: result(i, z + 1) = Mid(t, (z - 1) * eNs(i - 3) + 1, eNs(i - 3))
mình tưởng là font ngày nhưng không phải ~~

msfbtvt đã viết:
Bác ơi e chạy file đầu tiên của bác ở đầu bài viết

View attachment 258418

E chọn cái ngày này đổi từ 01-01-20 về 01-01-05

Khi ấn nút capnhat thì bảng báo lỗi như sau

Bác giúp e với ạ

View attachment 258419
Nhấp chuột vào đây để mở rộng...
 
cuoi123 đã viết:
Đúng là minh cũng gặp lỗi này ấn vào debug thì nó báo dòng: result(i, z + 1) = Mid(t, (z - 1) * eNs(i - 3) + 1, eNs(i - 3))
mình tưởng là font ngày nhưng không phải ~~
Nhấp chuột vào đây để mở rộng...
Mình nghĩ là lỗi index khi list giá trị vào ô
Mà mình ko biết sửa :(
Chờ bác thớt hướng dẫn vậy :D
 

File đính kèm

nó báo lỗi này bác ạ
result(i, z + 1) = t

1622347091680.png
 
nimbus99 đã viết:
Cám ơn tác giả.

Có 1 bug nhỏ là khi gặp ngày không sổ xố. Ví dụ trong tháng 4 vừa qua. Trang kết quả sổ xố vẫn hiện 31/3/2020. Cho nên maxNgay không nhảy. thành ra script cứ tải hoài ngày 1/4/2020 đến vô tận.
Để giải quyết, mình cho result (1,1) thành ngày (bằng J3). Và dời td đầu tiên qua result (1,2) thì không bị vướng nữa.
Cái này có lợi là mình có 2 cell chứa date để sau này compare. Nếu không match thì coi như ngày đó không xổ và xóa ra khỏi database.

Mình thích miền nam nên chỉnh thành miền nam.

Mã: 
# add thêm ngày vào result(1,2)

                For Each resR In resT.Rows
                   
                   
                    If i = 1 Then
                       
                        result(1, 1) = Sheet1.Range("J3")
                        j = 1
                        For Each cll In resR.Cells
                           
                            If j = 1 Then
                                firstLine = cll.innerText
                               
                                namLoc = InStr(1, firstLine, vbNewLine)
                                result(i, j + 1) = Right(firstLine, Len(firstLine) - namLoc - 1)
                               
                               
                            Else
                                result(i, j + 1) = cll.innerText


                                j = j + 1
                            End If
                        Next cll ......

File Miền Nam mình lấy mọi đài cho vào database, sau này dùng hàm filter nó sau.

Miền trung thì chỉ cần đổi

Mã: 
.Open "GET", "http://ketqua.net/xo-so-mien-nam.php?ngay=" & Sheet1.Range("J3"), False

thành
.Open "GET", "http://ketqua.net/xo-so-mien-trung.php?ngay=" & Sheet1.Range("J3"), False
Nhấp chuột vào đây để mở rộng...
File miền Nam thống kê dòng không được bác ơi, bác giúp em với. Tks bác a.
 
yeuemuconlau đã viết:
Hóng, mình cũng lỗi tương tự, i sì phooc luôn
Nhấp chuột vào đây để mở rộng...
Đã sửa lỗi ...
Gửi cho anh chị em cùng niềm đam mê số học
Code đã chỉnh sửa và bẩy lỗi những ngày không về
Tải về vào Sheet "data" nhấn cập nhật là ok.
Cập nhật từ 2010 đến nay, Sẽ mất thời gian khá lâu nên ACE nên cập nhật vào lúc máy mình không làm gì nhé
Sau lần đầu thì hàng ngày cứ nhấn UPDATE là Ô XÌ KE.
 
Lần chỉnh sửa cuối:
xuantuong.ktv đã viết:
Gửi cho anh chị em cùng niềm đam mê số học
Code đã chỉnh sửa và bẩy lỗi những ngày không về
Tải về vào Sheet "data" nhấn cập nhật là ok.
Cập nhật từ 2010 đến nay, Sẽ mất thời gian khá lâu nên ACE nên cập nhật vào lúc máy mình không làm gì nhé
Sau lần đầu thì hàng ngày cứ nhấn UPDATE là Ô XÌ KE.
Nhấp chuột vào đây để mở rộng...
Thank bác nhiều ah
Máy e chạy thì nó báo lỗi này

MgPaste(Hg, Cot) = Mid(result(Ro, 2), Col, 4)

1623491476954.png
 

File đính kèm

Lần chỉnh sửa cuối:
nimbus99 đã viết:
Cám ơn tác giả.

Có 1 bug nhỏ là khi gặp ngày không sổ xố. Ví dụ trong tháng 4 vừa qua. Trang kết quả sổ xố vẫn hiện 31/3/2020. Cho nên maxNgay không nhảy. thành ra script cứ tải hoài ngày 1/4/2020 đến vô tận.
Để giải quyết, mình cho result (1,1) thành ngày (bằng J3). Và dời td đầu tiên qua result (1,2) thì không bị vướng nữa.
Cái này có lợi là mình có 2 cell chứa date để sau này compare. Nếu không match thì coi như ngày đó không xổ và xóa ra khỏi database.

Mình thích miền nam nên chỉnh thành miền nam.

Mã: 
# add thêm ngày vào result(1,2)

                For Each resR In resT.Rows
                   
                   
                    If i = 1 Then
                       
                        result(1, 1) = Sheet1.Range("J3")
                        j = 1
                        For Each cll In resR.Cells
                           
                            If j = 1 Then
                                firstLine = cll.innerText
                               
                                namLoc = InStr(1, firstLine, vbNewLine)
                                result(i, j + 1) = Right(firstLine, Len(firstLine) - namLoc - 1)
                               
                               
                            Else
                                result(i, j + 1) = cll.innerText


                                j = j + 1
                            End If
                        Next cll ......

File Miền Nam mình lấy mọi đài cho vào database, sau này dùng hàm filter nó sau.

Miền trung thì chỉ cần đổi

Mã: 
.Open "GET", "http://ketqua.net/xo-so-mien-nam.php?ngay=" & Sheet1.Range("J3"), False

thành
.Open "GET", "http://ketqua.net/xo-so-mien-trung.php?ngay=" & Sheet1.Range("J3"), False
Nhấp chuột vào đây để mở rộng...
chào anh. trang web thay đổi định dạng hay sao vậy mà file bị lỗi run time rồi ah. a sửa giúp em với
 

File đính kèm

  • Run-time error.png
    Run-time error.png
    99.6 KB · Đọc: 37
leadlong1422 đã viết:
chào anh. trang web thay đổi định dạng hay sao vậy mà file bị lỗi run time rồi ah. a sửa giúp em với
Nhấp chuột vào đây để mở rộng...
trang web ketqua.net đang bị khóa mà bác
Bài đã được tự động gộp:

bác @CHAOQUAY có thể sửa để lấy từ web khác không ạ. . . chứ web ketqua.net bị khóa rồi ạ
 
Lần chỉnh sửa cuối:
zPeterPan đã viết:
trang web ketqua.net đang bị khóa mà bác
Bài đã được tự động gộp:

bác @CHAOQUAY có thể sửa để lấy từ web khác không ạ. . . chứ web ketqua.net bị khóa rồi ạ
Nhấp chuột vào đây để mở rộng...
trang này uy tín lâu năm lắm rồi chắc là bảo trì thôi. em nghĩ nó không bị khoá đâu. mà mới bị khoá thôi, chắc được 3 ngày
 
zPeterPan đã viết:
ketqua.net giờ sửa thành ketqua1.net bác ạ
Nhấp chuột vào đây để mở rộng...
Nhấn alt+F11, kích đúp vào "A_Capnhat", tìm dòng trên thêm số 1 cho thành dòng dưới
Mã: 
'.Open "GET", "http://ketqua.net/xo-so-truyen-thong.php?ngay=" & Sheet1.Range("J3"), False
.Open "GET", "http://ketqua1.net/xo-so-truyen-thong.php?ngay=" & Sheet1.Range("J3"), False
 
Bác @CHAOQUAY bác có thể sửa định dạng cột A và cột B theo như hình được không ạ123.JPG
 
zPeterPan đã viết:
Bác @CHAOQUAY bác có thể sửa định dạng cột A và cột B theo như hình được không ạView attachment 261192
Nhấp chuột vào đây để mở rộng...
Bạn lấy đoạn code dưới đây thay thongkeTheodong
Mã: 
Sub thongkeTheodong_()
Dim Nguon
Dim Kq() As String
Dim d, m, y
Dim i, j, k, x, z, t
If Sheet1.Range("A2") = "" Then
    MsgBox "chua co du lieu nguon"
    Exit Sub
End If
Nguon = Sheet1.Range("A2", Sheet1.Range("A2").End(xlDown)).Resize(, 7)
ReDim Kq(1 To UBound(Nguon) / 10, 1 To 29)
For i = 1 To UBound(Nguon) Step 10
    k = k + 1
    
    t = Right(Application.Trim(Application.Clean(Right(Nguon(i, 1), Len(Nguon(i, 1)) - 22))), 10)
    y = Right(t, 4)
    m = Mid(t, 4, 2)
    d = Left(t, 2)
    
    Kq(k, 1) = DateSerial(y, m, d)
    
    j = Application.Weekday(Kq(k, 1), 1)
    Kq(k, 2) = IIf(j = 1, "CN", "T" & j)
    j = 2
    For x = i + 2 To i + 9
        For z = 2 To 7
            If Nguon(x, z) <> "" Then
                j = j + 1
                Kq(k, j) = Nguon(x, z)
            Else
                Exit For
            End If
        Next z
    Next x
Next i
With Sheet2
    .UsedRange.Clear
    .Range("A3").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
    .Range("A3").Resize(UBound(Kq), UBound(Kq, 2)).WrapText = 0
    .UsedRange.Columns.AutoFit
End With
Sheet2.Activate
End Sub
 
CHAOQUAY đã viết:
Bạn lấy đoạn code dưới đây thay thongkeTheodong
Mã: 
Sub thongkeTheodong_()
Dim Nguon
Dim Kq() As String
Dim d, m, y
Dim i, j, k, x, z, t
If Sheet1.Range("A2") = "" Then
    MsgBox "chua co du lieu nguon"
    Exit Sub
End If
Nguon = Sheet1.Range("A2", Sheet1.Range("A2").End(xlDown)).Resize(, 7)
ReDim Kq(1 To UBound(Nguon) / 10, 1 To 29)
For i = 1 To UBound(Nguon) Step 10
    k = k + 1
   
    t = Right(Application.Trim(Application.Clean(Right(Nguon(i, 1), Len(Nguon(i, 1)) - 22))), 10)
    y = Right(t, 4)
    m = Mid(t, 4, 2)
    d = Left(t, 2)
   
    Kq(k, 1) = DateSerial(y, m, d)
   
    j = Application.Weekday(Kq(k, 1), 1)
    Kq(k, 2) = IIf(j = 1, "CN", "T" & j)
    j = 2
    For x = i + 2 To i + 9
        For z = 2 To 7
            If Nguon(x, z) <> "" Then
                j = j + 1
                Kq(k, j) = Nguon(x, z)
            Else
                Exit For
            End If
        Next z
    Next x
Next i
With Sheet2
    .UsedRange.Clear
    .Range("A3").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
    .Range("A3").Resize(UBound(Kq), UBound(Kq, 2)).WrapText = 0
    .UsedRange.Columns.AutoFit
End With
Sheet2.Activate
End Sub
Nhấp chuột vào đây để mở rộng...
Kq(k, 2) = IIf(j = 1, "CN", "T" & j) bị lỗi dòng này bác ạ
 
CHAOQUAY đã viết:
Để chạy được file này, cần làm như sau:
Nhấn alt+F11
Nhấn alt+T+R -> tìm & tích chọn các mục như hình trong sheet "Hd" -> OK -> alt+Q.
Chuyển sang sheet "capnhat", thực hiện theo hướng dẫn bên trong.
---
File này lấy kết quả miền Bắc từ trang ketqua.net.
Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không thống kê.
Nhấp chuột vào đây để mở rộng...
Chỗ nút bấm ThongKeDong bị báo lỗi invalid dòng này là sao ạ
Kq(k, 1) = Application.Trim(Application.Clean(Right(Nguon(i, 1), Len(Nguon(i, 1)) - 22)))
 
zPeterPan đã viết:
Dạ file đây ạ. . .
Nhấp chuột vào đây để mở rộng...

Bạn sửa code trong file có giống như bài 41 ở trên đâu mà chạy đúng được.
Bạn chạy sub "thongkeTheodong_" trong file đính kèm, code copy y nguyên của bài 41. Tô màu, kẻ dòng bạn chủ động tự xử thêm
 

File đính kèm

CHAOQUAY đã viết:
Bạn sửa code trong file có giống như bài 41 ở trên đâu mà chạy đúng được.
Bạn chạy sub "thongkeTheodong_" trong file đính kèm, code copy y nguyên của bài 41. Tô màu, kẻ dòng bạn chủ động tự xử thêm
Nhấp chuột vào đây để mở rộng...
Bác có thể sửa giúp em để thống kê trong 1 khoảng thời gian nhất định được không ạ. . . ví dụ từ ngày 02/02/2012 đến ngày 15/06/2021 được không ạ. . . chứ thống kê về tận thời gian là 01/01/2005 thì nhiều quá ạ. . . sơ bộ nội dung kết quả là như đoạn code em hình dung ra đây ạ. . .
Mã: 
TuNgay = .Range("T2").Value
DenNgay = .Range("AB2").Value
If arr(i, j) > DenNgay Then GoTo Thoat
If arr(i, j) >= TuNgay And arr(i, j) <= DenNgay Then
Thì em không biết viết vào chỗ nào ạ. . . Bác có thể sửa giúp em được không ạ
1.JPG
 

File đính kèm

zPeterPan đã viết:
Bác có thể sửa giúp em để thống kê trong 1 khoảng thời gian nhất định được không ạ. . . ví dụ từ ngày 02/02/2012 đến ngày 15/06/2021 được không ạ. . . chứ thống kê về tận thời gian là 01/01/2005 thì nhiều quá ạ. . . sơ bộ nội dung kết quả là như đoạn code em hình dung ra đây ạ. . .
Mã: 
TuNgay = .Range("T2").Value
DenNgay = .Range("AB2").Value
If arr(i, j) > DenNgay Then GoTo Thoat
If arr(i, j) >= TuNgay And arr(i, j) <= DenNgay Then
Thì em không biết viết vào chỗ nào ạ. . . Bác có thể sửa giúp em được không ạ
View attachment 261412
Nhấp chuột vào đây để mở rộng...
Cụ thể là bạn định tính cho sheet nào
 
xuantuong.ktv đã viết:
Ok nhé tải về chạy bình thường

Thêm dữ liệu từ 01/01/2010 Của tất cả các đài miền nam cho đến ngày 11/06/2021 cho ai cần
miền trung data...
Nhấp chuột vào đây để mở rộng...
Cho mình xin file cập nhật kết quả MN và MT với bạn ơi. Mình muốn cập nhật từ năm 2008 bạn à. Thanks bạn nhiều nhé. file MB chạy ngon lắm
 
Bác nào có file kết quả Miền Nam và Miền Trung từ năm 2008 đến năm 2010 đã xếp theo dòng cho em xin với ạ? Em đang rất cần mà file của em chạy nó báo lỗi em không biết sửa. Mong các bác giúp em với. Em cảm ơn rất nhiều ạ!!!!
 
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 ạ.
 

File đính kèm

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 ạ.
Nhấp chuột vào đây để mở rộng...

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
 
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
Nhấp chuột vào đây để mở rộng...
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 ạ?
 
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 ạ?
Nhấp chuột vào đây để mở rộ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?
 

File đính kèm

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?
Nhấp chuột vào đây để mở rộng...
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 ạ. :D
 

File đính kèm

  • 2.png
    2.png
    273 KB · Đọc: 49
  • 1.png
    1.png
    259.6 KB · Đọc: 49
  • 3.png
    3.png
    490.4 KB · Đọc: 49
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 ạ. :D
Nhấp chuột vào đây để mở rộng...

Thử file dưới xem sao
 

File đính kèm

CHAOQUAY đã viết:
Thử file dưới xem sao
Nhấp chuột vào đây để mở rộng...
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
 

File đính kèm

  • 4.png
    4.png
    525.7 KB · Đọc: 33
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
Nhấp chuột vào đây để mở rộng...

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
 
cho mình xin file cập nhật kết quả miền bắc qua mạng chay chuẩn
 
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
Nhấp chuột vào đây để mở rộng...
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:

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
Nhấp chuột vào đây để mở rộng...
bài #51 của bác CHAOQUAY nhé. load siêu nhanh, chuẩn đét
 
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:


bài #51 của bác CHAOQUAY nhé. load siêu nhanh, chuẩn đét
Nhấp chuột vào đây để mở rộng...
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
 
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
Nhấp chuột vào đây để mở rộng...
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 ạ.
 

File đính kèm

  • 1.png
    1.png
    471.1 KB · Đọc: 64
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ấp chuột vào đây để mở rộng...

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
 
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
Nhấp chuột vào đây để mở rộng...
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
 
Lần chỉnh sửa cuối:
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 đã viết:
bạn chứng minh ngày nào bị sai để mình thử check lại xem
Nhấp chuột vào đây để mở rộng...
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 :D
(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 :D)
đây là ví dụ:
ketqua1.net

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 ketqua1.net
ketqua1.net

Kết Quả Xổ Số Bạc Liêu Hôm Nay ngày 24-09-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 ketqua1.net
...........
 
Lần chỉnh sửa cuối:
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 :D
(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 :D)
đây là ví dụ:
ketqua1.net

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 ketqua1.net
ketqua1.net

Kết Quả Xổ Số Bạc Liêu Hôm Nay ngày 24-09-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 ketqua1.net
...........
Nhấp chuột vào đây để mở rộng...
Đà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é
 
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é
Nhấp chuột vào đây để mở rộng...
m lấy theo đài cần gì bẫy lỗi b ơi :D. 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
 
doccohaiau đã viết:
m lấy theo đài cần gì bẫy lỗi b ơi :D. 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
Nhấp chuột vào đây để mở rộng...
Vậy là đã giải quyết được chưa bạn
 
CHAOQUAY đã viết:
Vậy là đã giải quyết được chưa bạn
Nhấp chuột vào đây để mở rộng...
Vì b rep vào vấn đề này nên m rep vấn đề này trước.
1.//. M thì dùng bình thường theo code của b. chỉ chỉnh sửa thêm chút vòng lặp ngày trên excel đó là vấn đề ko phải ngày nào cũng quay như miền bắc. nên minh thêm vài ô có như sau: để hạn chế vòng lặp đó là tính ngày tiếp theo dựa theo lịch quay bằng cách tính "Thứ hiện tại" (ở ô I2).
2.//. Vấn đề bài #75 ạ.
Vì dữ liệu ketqua1 ko có độ chính xác cao nên m ko muốn sử dụng ở đó. Và hiện đang muốn sử dụng ở minhngoc.net
Sau mò mẫm trên mạng có copy và chỉnh sửa được đoạn code sau
Mã: 
Option Explicit
Sub GetData_MinhNgoc()
    Dim http As New XMLHTTP60, html As New HTMLDocument
    Dim posts As Object, post As Object, elem As Object
    Dim row As Long, col As Long
    row = 5     'Tự đặt
    With http
        '.Open "GET", "https://www.minhngoc.net/ket-qua-xo-so/mien-trung/binh-dinh/26-08-2021.html", False
        .Open "GET", "https://www.minhngoc.net/ket-qua-xo-so/mien-trung/binh-dinh/" & MinhNgoc.Range("H3") & ".html", False
        .send
        html.body.innerHTML = .responseText
    End With
    Set posts = html.getElementsByClassName("box_kqxs_content")(0)
    With MinhNgoc
        For Each post In posts.Rows
            For Each elem In post.Cells
                col = col + 1: Cells(row + 1, col).NumberFormat = "@": Cells(row + 1, col) = elem.innerText
            Next elem
            col = 0
            row = row + 1
        Next post
    End With
End Sub

Nhưng mà đoạn này nó ko lấy được cả ngày.(Nếu dùng Class: "bkqtinhmiennam" thì có ngày nhưng xuất dữ liệu khá là xấu và lệch lạc.)
Và dữ liệu số ở mỗi giải sẽ được "Nối lại" chứ không phân tách thành Cột riêng.
Phần tiếp theo e chưa biết xử lý ra sao cả. vì code m toàn đi copy rồi sửa là chính. Nhiều đoạn ko có hiểu.
B (hoặc ai đó) có thể sửa tiếp giúp m được ko.
Cảm ơn mọi người!!!
 
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

mình chỉ đang phân tích đoán đuôi 2 số còn chưa có kết quả tốt. Những cái mã của kết quả này theo mih biết thì trúng thưởng ko cần so các mã này nữa r. chỉ cần trúng số thôi.
 
leadlong1422 đã viết:
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

mình chỉ đang phân tích đoán đuôi 2 số còn chưa có kết quả tốt. Những cái mã của kết quả này theo mih biết thì trúng thưởng ko cần so các mã này nữa r. chỉ cần trúng số thôi.
Nhấp chuột vào đây để mở rộng...
Đây chỉ là ví dụ cụ thể cho b thôi. Còn tại sao cái này t đưa lên vì t cũng có dùng cái này nữa. Vội vàng là lướt nhanh lấy chạm lọc cho 3 cửa.
B có thể kiểm tra 2 link ở miền nam làm ví dụ. chưa kể miền trung. chỉ lướt nhẹ vài năm là sai với thiếu loạn xạ lên. Do dữ liệu web ko phải dữ liệu Get nhé :D
 
doccohaiau đã viết:
Đây chỉ là ví dụ cụ thể cho b thôi. Còn tại sao cái này t đưa lên vì t cũng có dùng cái này nữa. Vội vàng là lướt nhanh lấy chạm lọc cho 3 cửa.
B có thể kiểm tra 2 link ở miền nam làm ví dụ. chưa kể miền trung. chỉ lướt nhẹ vài năm là sai với thiếu loạn xạ lên. Do dữ liệu web ko phải dữ liệu Get nhé :D
Nhấp chuột vào đây để mở rộng...
mình hiểu là ý bạn muốn chỉ cái sai data nhưng nếu tính chi ly hơn thì dữ liệu miền bắc trước 2017 là do mấy e gái xinh đẹp quay tay lồng ra số. Sau năm 2017 thì toàn bộ chuyển sang quay bằng máy hết, còn miền trung và nam thì mình ko biết. 2 nguồn tạo ra số đã khác nhau nên dữ liệu phân tích chỉ là có cái data để dựa vào thôi với những ai thik phân tích con số như mình. nhiều người phân tích theo sổ mơ, ngũ hành, lịch can chi đủ cả. Với mình thì phân tích xoso nó tạo đam mê với VBA chứ đánh vẫn trượt là chính
 
doccohaiau đã viết:
Vì b rep vào vấn đề này nên m rep vấn đề này trước.
1.//. M thì dùng bình thường theo code của b. chỉ chỉnh sửa thêm chút vòng lặp ngày trên excel đó là vấn đề ko phải ngày nào cũng quay như miền bắc. nên minh thêm vài ô có như sau: để hạn chế vòng lặp đó là tính ngày tiếp theo dựa theo lịch quay bằng cách tính "Thứ hiện tại" (ở ô I2).
2.//. Vấn đề bài #75 ạ.
Vì dữ liệu ketqua1 ko có độ chính xác cao nên m ko muốn sử dụng ở đó. Và hiện đang muốn sử dụng ở minhngoc.net
Sau mò mẫm trên mạng có copy và chỉnh sửa được đoạn code sau
Mã: 
Option Explicit
Sub GetData_MinhNgoc()
    Dim http As New XMLHTTP60, html As New HTMLDocument
    Dim posts As Object, post As Object, elem As Object
    Dim row As Long, col As Long
    row = 5     'Tự đặt
    With http
        '.Open "GET", "https://www.minhngoc.net/ket-qua-xo-so/mien-trung/binh-dinh/26-08-2021.html", False
        .Open "GET", "https://www.minhngoc.net/ket-qua-xo-so/mien-trung/binh-dinh/" & MinhNgoc.Range("H3") & ".html", False
        .send
        html.body.innerHTML = .responseText
    End With
    Set posts = html.getElementsByClassName("box_kqxs_content")(0)
    With MinhNgoc
        For Each post In posts.Rows
            For Each elem In post.Cells
                col = col + 1: Cells(row + 1, col).NumberFormat = "@": Cells(row + 1, col) = elem.innerText
            Next elem
            col = 0
            row = row + 1
        Next post
    End With
End Sub

Nhưng mà đoạn này nó ko lấy được cả ngày.(Nếu dùng Class: "bkqtinhmiennam" thì có ngày nhưng xuất dữ liệu khá là xấu và lệch lạc.)
Và dữ liệu số ở mỗi giải sẽ được "Nối lại" chứ không phân tách thành Cột riêng.
Phần tiếp theo e chưa biết xử lý ra sao cả. vì code m toàn đi copy rồi sửa là chính. Nhiều đoạn ko có hiểu.
B (hoặc ai đó) có thể sửa tiếp giúp m được ko.
Cảm ơn mọi người!!!
Nhấp chuột vào đây để mở rộng...
Không hiểu bạn lấy cả ngày là ntn? ngày là giá trị bạn truyền vào rồi còn gì.
 
quanluu đã viết:
Không hiểu bạn lấy cả ngày là ntn? ngày là giá trị bạn truyền vào rồi còn gì.
Nhấp chuột vào đây để mở rộng...
code trên tham số truyền vào ko có độ chính xác.
vì nếu như miền nam đang nghỉ quay chẳng hạn. nó vẫn get ra cái ngày cuối cùng quay rồi đưa vào.
Nó tương tự cái vấn đề bẫy lỗi khi nghỉ quay ý b.
 
doccohaiau đã viết:
code trên tham số truyền vào ko có độ chính xác.
vì nếu như miền nam đang nghỉ quay chẳng hạn. nó vẫn get ra cái ngày cuối cùng quay rồi đưa vào.
Nó tương tự cái vấn đề bẫy lỗi khi nghỉ quay ý b.
Nhấp chuột vào đây để mở rộng...
thế thì bạn thêm 1 điều kiện check thôi:
If html.getElementsByClassName("ngay")(0).getElementsByTagName("a")(0).innerText = Format(ngaycancheck, "dd/mm/yyyy") Then
' thuc hien code
end if
 
mọi người có thể tham khảo giúp mình về file này dc ko.mình ko biết tí gì?nhờ ae chỉ giúp giùm.này là mình bỏ tiền ra mua nhé ae
 

File đính kèm

quanluu đã viết:
thế thì bạn thêm 1 điều kiện check thôi:
If html.getElementsByClassName("ngay")(0).getElementsByTagName("a")(0).innerText = Format(ngaycancheck, "dd/mm/yyyy") Then
' thuc hien code
end if
Nhấp chuột vào đây để mở rộng...
m đang viết tách hẳn lại rồi. đang xử lý tách giải. :D. nhưng mà ko biết có bị dính loop khi ko.
Nếu ko được thì m sẽ tham khảo đoạn của b. Cảm ơn. Nhưng cái ngày kia nãy t viết nó ko có cho cái (0) vào được.
 
CHAOQUAY đã viết:
Bỏ tiền ra mua sao không kêu bên bán hướng dẫn sử dụng luôn thể vậy bạn?
Nhấp chuột vào đây để mở rộng...
có mình cũng biết sử dụng thôi.
thứ 1 là mình không hiểu cách hoạt động của nó thế nào?
thứ 2 là mình muốn nâng cấp nó theo công thức của mình?
mà giờ hiểu biết cũng có hạn thôi bạn.vì đam mê bộ môn này.nếu được thì cùng nhau phát triển thôi bạn.
mình cũng chơi thử rồi.nói chung là nó hay trượt khung ngày 3.
 
phuc1988 đã viết:
có mình cũng biết sử dụng thôi.
thứ 1 là mình không hiểu cách hoạt động của nó thế nào?
thứ 2 là mình muốn nâng cấp nó theo công thức của mình?
mà giờ hiểu biết cũng có hạn thôi bạn.vì đam mê bộ môn này.nếu được thì cùng nhau phát triển thôi bạn.
mình cũng chơi thử rồi.nói chung là nó hay trượt khung ngày 3.
Nhấp chuột vào đây để mở rộng...
Tức là bạn muốn làm rõ cách hoạt động của file trên đó à?
 
CHAOQUAY đã viết:
Để chạy được file này, cần làm như sau:
Nhấn alt+F11
Nhấn alt+T+R -> tìm & tích chọn các mục như hình trong sheet "Hd" -> OK -> alt+Q.
Chuyển sang sheet "capnhat", thực hiện theo hướng dẫn bên trong.
---
File này lấy kết quả miền Bắc từ trang ketqua.net.
Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không thống kê.
Nhấp chuột vào đây để mở rộng...
Tôi đã tích đủ theo hướng dẫn, để nguyên các mốc ngày như File Attach thì báo lỗi này.

Snag_9d839db.png
Snag_9d9586a.png

Tôi đang dùng excel 365 64bit.
cảm ơn anh.
 
@CHAOQUAY
@xuantuong.ktv
về vấn đề bẫy lỗi trên ketqua1.net thuật toán như sau: (ai cần thì làm nhé chứ m ko lấy bên ketqua1 :D)
1. Lấy ngày cuối cùng của các đài (dùng link ko có ngày nhé) gán vào 1 biến
2. Kiểm tra ngày max nếu = ngày cuối thì exit do

Mã: 
If CDate(Mid(ResGetN, 7, 10)) = MinhNgoc.Range("B11").Value Then Exit Do  '//////////////// thêm dòng này 
        Loop
   End With
End If
End Sub

Chỉ có sửa thế thôi
Vì cái này m tạo thử trên minhngoc nhưng cũng chỉ bỏ qua ngày cuối THEO ĐÀI như miền nam hiện nay.
Còn đoạn nghỉ ở giữa nghe hơi căng. Thuật toán có mà chưa biết viết code thế nào :D.
Khó quá có khi quay sang kiểu lấy THEO MIỀN xem :D
 
Status
Không mở trả lời sau này.

Bài viết mới nhất

T
  • Question Question
Code VBA tra cứu kết quả trả về mảng dữ liệu
    • Cười
Trả lời
10
Đọc
206
HUONGHCKT
H
S
Xin hỏi các pro. Em muốn copy các dữ liệu ô họ tên đã bị gộp từ B9 đến E9. Em muốn pass sang ô B9 (sheet mới).
Trả lời
0
Đọc
13
samthai8017
S
T
  • Question Question
Xin giúp em mã lệnh tổng hợp tự động lên bảng tổng hợp!
Trả lời
1
Đọc
23
Hoàng Tuấn 868
H
T
Nhờ anh chị tìm giúp nguyên nhân không nhảy dữ liệu Pivotable
Trả lời
0
Đọc
24
thuhacoicoi
T
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
4
Đọc
880
nguyendang95
N
Gà Công Nghệ
Nhờ anh chị chuyển hộ font chữ excel
Trả lời
2
Đọc
57
Gà Công Nghệ
Gà Công Nghệ
V
Quản lý xuất nhập vật tư trong kho (1 người xem)
Trả lời
19
Đọc
746
LOGANWover
L
phuongnam366377
Học C++ từ số 0 – Bài học đầu tiên
    • Cảm ơn
Trả lời
4
Đọc
336
phuongnam366377
phuongnam366377
F
Mấy cao thủ giúp dùm mình với. File excel bị lỗi mà mình không biết lỗi chỗ nào để sửa.
Trả lời
2
Đọc
92
firstbood
F
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
438
Đọc
58K
sát thủ uyên ương
S
X
Làm thế nào để ẩn "Blank" trong Pivot table (1 người xem)
    • Thích
Trả lời
15
Đọc
36K
nguyenngochieu761321
nguyenngochieu761321
H
Đánh số thự theo lượt
Trả lời
5
Đọc
145
hongminh_0306
H
D
XIN PHẦN MỀM XẾP TKB TIỂU HỌC BẰNG EXCEL
Trả lời
2
Đọc
197
danhpheo
D
A
  • Question Question
Copy 2 form sang file khác, có 1 form Show, 1 form không Show
Trả lời
2
Đọc
145
AnhThu-1976
A
R
Các bác có kinh nghiệm excel cho em xin công thức đánh số thứ tự theo ngày tháng này vợi ạ.
Trả lời
5
Đọc
213
truc.duong87
T
H
Tự động cập nhật dữ liệu từ 2 file word
Trả lời
1
Đọc
158
LOGANWover
L
N
Nhờ giúp Drop down list theo tỉnh xã mới. (1 người xem)
Trả lời
7
Đọc
343
ongke0711
ongke0711
E
VBA copy ô trong excel khi đang lọc filter
Trả lời
8
Đọc
208
eagle12
E
N
Không sử dụng được phím tắt Ctrl + Shift + mũi tên xuống
Trả lời
1
Đọc
3K
aFdangthacmac
A
L
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox
    • Cười
Trả lời
8
Đọc
453
ongke0711
ongke0711
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom