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

[CHAOQUAY]

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

Bạn lấy đoạn code dưới đây thay thongkeTheodong

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

 

[zPeterPan]

Bạn lấy đoạn code dưới đây thay thongkeTheodong

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

Kq(k, 2) = IIf(j = 1, "CN", "T" & j) bị lỗi dòng này bác ạ

 

[CHAOQUAY]

Kq(k, 2) = IIf(j = 1, "CN", "T" & j) bị lỗi dòng này bác ạ

Bạn thửa thay dòng trên = cụm dưới xem sao.

'Kq(k, 2) = IIf(j = 1, "CN", "T" & j)
If j = 1 Then
    Kq(k, 2) = "CN"
Else
    Kq(k, 2) = "T" & j
End If

---
Máy tôi chạy không báo lỗi gì cả

 

[Phương Phương mito]

Để 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ê.

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)))

 

[CHAOQUAY]

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)))

Bạn chụp màn hình báo lỗi gửi lên xem sao

 

[zPeterPan]

Bạn thửa thay dòng trên = cụm dưới xem sao.

'Kq(k, 2) = IIf(j = 1, "CN", "T" & j)
If j = 1 Then
    Kq(k, 2) = "CN"
Else
    Kq(k, 2) = "T" & j
End If

---
Máy tôi chạy không báo lỗi gì cả

bị lỗibác ạ.Cột thứ ra toàn T29 thôi ạ

 

[CHAOQUAY]

View attachment 261244bị lỗibác ạ.Cột thứ ra toàn T29 thôi ạ

Bạn dùng file bài 1 hay là khác?

 

[zPeterPan]

Bạn dùng file bài 1 hay là khác?

FILE BÀI 1 ĐẤY Ạ

 

[CHAOQUAY]

FILE BÀI 1 ĐẤY Ạ

Bạn gửi file đã chèn code mới của bạn để sửa trực tiếp trên file cho nhanh

 

[zPeterPan]

Bạn gửi file đã chèn code mới của bạn để sửa trực tiếp trên file cho nhanh

Dạ file đây ạ. . .

 

[CHAOQUAY]

Dạ file đây ạ. . .

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

 

[leadlong1422]

Bác @CHAOQUAY ơi giúp em sắp xếp data theo cách này với ah. Cảm ơn bác nhiều

 

[zPeterPan]

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

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 ạ. . .

---

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 ạ

 

[CHAOQUAY]

Bác @CHAOQUAY ơi giúp em sắp xếp data theo cách này với ah. Cảm ơn bác nhiều

Chạy file đính kèm xem sao

 

[CHAOQUAY]

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 ạ. . .

---

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

Cụ thể là bạn định tính cho sheet nào

 

[zPeterPan]

Cụ thể là bạn định tính cho sheet nào

tính sheet ThongKe và lấy dữ liệu từ sheet Data ạ

 

[CHAOQUAY]

tính sheet ThongKe và lấy dữ liệu từ sheet Data ạ

Sheet Thongke của bạn không nằm trong phạm vi đề tài của thớt này, có lẽ bạn tìm cách giải quyết khác đi nhé.

 

[zPeterPan]

Sheet Thongke của bạn không nằm trong phạm vi đề tài của thớt này, có lẽ bạn tìm cách giải quyết khác đi nhé.

Dạ vâng, em cảm ơn bác ạ

 

[ldmh]

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

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

 

[ldmh]

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 ạ!!!!