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

CHAOQUAY · 24/6/21

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

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

zPeterPan · 24/6/21

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

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

CHAOQUAY · 24/6/21

zPeterPan đã viết:
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.

Mã:

'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 · 24/6/21

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

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 · 24/6/21

Phương Phương mito đã viết:
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 · 24/6/21

CHAOQUAY đã viết:
Bạn thửa thay dòng trên = cụm dưới xem sao.

Mã:

'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 · 25/6/21

zPeterPan đã viết:
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 · 25/6/21

CHAOQUAY đã viết:
Bạn dùng file bài 1 hay là khác?

FILE BÀI 1 ĐẤY Ạ

CHAOQUAY · 25/6/21

zPeterPan đã viết:
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 · 25/6/21

CHAOQUAY đã viết:
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 · 26/6/21

zPeterPan đã viết:
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 · 27/6/21

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 · 28/6/21

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

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 ạ

CHAOQUAY · 28/6/21

leadlong1422 đã viết:
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 · 28/6/21

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

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

zPeterPan · 28/6/21

CHAOQUAY đã viết:
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 · 28/6/21

zPeterPan đã viết:
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 · 28/6/21

CHAOQUAY đã viết:
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 · 28/6/21

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

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 · 3/7/21

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

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

Thành viên gắn bó

Thành viên hoạt động

Thành viên gắn bó

Thành viên thường trực

Thành viên gắn bó

Thành viên hoạt động

Thành viên gắn bó

Thành viên hoạt động

Thành viên gắn bó

Thành viên hoạt động

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 hoạt động

File đính kèm

Thành viên gắn bó

File đính kèm

Thành viên gắn bó

Thành viên hoạt động

Thành viên gắn bó

Thành viên hoạt động

Thành viên mới

Thành viên mới

Đếm ngược thời gian