Tải kết quả xổ số 3 miền về excel (1 người xem)

[CHAOQUAY]

Để 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.
Các hướng dẫn sử dụng ghi trong sheet Hd

---
File này lấy kết quả từ trang MinhNgoc.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ê

---
Hiệu chỉnh lại biến hd cho phù hợp với các định dạng ngày tháng "dd/mm/yyy" & "mm/dd/yyyy"
---
Bổ sung chuyển đổi số liệu 3 miền về hàng ngang.

 

[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

 

[CHAOQUAY]

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

Bạn có vấn đề gì với đoạn code trên à?
build là gì í nhỉ?

Cái này viết lấy theo miền, có gì đâu mà mất công

 

[doccohaiau]

Bạn có vấn đề gì với đoạn code trên à?
build là gì í nhỉ?

Cái này viết lấy theo miền, có gì đâu mà mất công

ko vấn đề gì . Thì VbScript.RegExp m đã mò mẫm bao giờ đâu .
Ý là bảo nếu m rảnh rảnh thì có khi ngồi sửa lại code của b sang theo đài ý .
Mà sửa lại thì lại cần hiểu nó dùng ntn chứ .

 

[CHAOQUAY]

ko vấn đề gì . Thì VbScript.RegExp m đã mò mẫm bao giờ đâu .
Ý là bảo nếu m rảnh rảnh thì có khi ngồi sửa lại code của b sang theo đài ý .
Mà sửa lại thì lại cần hiểu nó dùng ntn chứ .

Lọc theo đài có vẻ có nhiều kiểu lắm bạn.
Người thích dọc, người thích ngang, rồi đầu trên đít dưới hay đít dưới đầu trên đa dạng lắm. Cái này tùy yêu cầu mà tính, không viết chung được

 

[doccohaiau]

Lọc theo đài có vẻ có nhiều kiểu lắm bạn.
Người thích dọc, người thích ngang, rồi đầu trên đít dưới hay đít dưới đầu trên đa dạng lắm. Cái này tùy yêu cầu mà tính, không viết chung được

Đầu vào m thích nguyên gốc kiểu Web. Nếu kiểu thích nó đơn giản thì gộp vào cũng được. Còn hơi phức tạp thì viết cái riêng ra cho từng kiểu. Như cái chuyển dòng của b ý. ai thích gì thì viết lại thôi. Mà MN lên dòng ác thật. 210K dòng chưa xong. ko biết time up test này mất 1h bao nhiêu phút đây (Đang test code của b

 

[doccohaiau]

Bảo sao lâu thế. ngồi tính số dòng từ năm 2008 đến giờ cũng chỉ hơn 100k dòng. hic
ví dụ thôi nhé. Ảnh cuối là bắtđầu sai từ 31/3/2020 nhé.

 

[thang_nguyen1]

Bạn có vấn đề gì với đoạn code trên à?
build là gì í nhỉ?

Cái này viết lấy theo miền, có gì đâu mà mất công

Bác chaoquay làm cái chương trình xóc đĩa đi. Hihi

 

[CHAOQUAY]

View attachment 266033View attachment 266034View attachment 266035
Bảo sao lâu thế. ngồi tính số dòng từ năm 2008 đến giờ cũng chỉ hơn 100k dòng. hic
ví dụ thôi nhé. Ảnh cuối là bắtđầu sai từ 31/3/2020 nhé.

Máy tôi chạy bình thường, kết quả đúng số liệu của trang minhngoc.net.
Máy bạn cài đặt ngày tháng hệ thống thế nào?

 

[doccohaiau]

Máy tôi chạy bình thường, kết quả đúng số liệu của trang minhngoc.net.
Máy bạn cài đặt ngày tháng hệ thống thế nào?

dd/mm/yyyyy. khác của b.

nếu đặt từ 31/3 thì nó chỉ load đi load lại ngày 31/3. nếu đặt từ 1/1/2020 thì lỗi đến ngày 31/3 quay về 5/2

đã test nếu đổi về mm/dd/yyyy thì đúng
Chỉ là thắc mắc là nếu do định dạng dmy và mdy vậy sao trước đó ko bị. hay do khi cả miền nghỉ nó mới tính sai.

 

[CHAOQUAY]

dd/mm/yyyyy. khác của b.

nếu đặt từ 31/3 thì nó chỉ load đi load lại ngày 31/3. nếu đặt từ 1/1/2020 thì lỗi đến ngày 31/3 quay về 5/2
View attachment 266059View attachment 266060
đã test nếu đổi về mm/dd/yyyy thì đúng
Chỉ là thắc mắc là nếu do định dạng dmy và mdy vậy sao trước đó ko bị. hay do khi cả miền nghỉ nó mới tính sai.

Cái này đúng là xảy ra khi có ngày nghỉ.

File bài 1 cập nhật ở trên đã xử lý hết lỗi này, bạn test thử lại xem sao.
( Điều chỉnh biến hd về dạng text )

 

[doccohaiau]

Cái này đúng là xảy ra khi có ngày nghỉ.

File bài 1 cập nhật ở trên đã xử lý hết lỗi này, bạn test thử lại xem sao.
( Điều chỉnh biến hd về dạng text )

Chuẩn rồi đó.

 

[Maika8008]

Thớt bị mod hốt cắt ngang sang thới mới nên không biết trước đó như thế nào, nhưng tôi thấy hình như chủ thớt là chủ và người giúp là nhân viên hay sao ấy.

 

[CHAOQUAY]

Thớt bị mod hốt cắt ngang sang thới mới nên không biết trước đó như thế nào, nhưng tôi thấy hình như chủ thớt là chủ và người giúp là nhân viên hay sao ấy.

Không hiểu ý bạn, giao lưu bình thường, có gì là nhân viên với chủ ở đây đâu bạn

 

[doccohaiau]

Lọc theo đài có vẻ có nhiều kiểu lắm bạn.
Người thích dọc, người thích ngang, rồi đầu trên đít dưới hay đít dưới đầu trên đa dạng lắm. Cái này tùy yêu cầu mà tính, không viết chung được

Cái này chuyển gốc sang 1 kiểu mảng. ngang dọc tuỳ ý.
sau thích dùng kiểu nào thì viết thêm từ đó ra là xong mà
sArr = Split(Elm.Children(0).innerText, vbCrLf) ====Arr = Elm.Children(0).innerText
nay mới xem. ngoài cái reg kia ra thì phát hiện ra cái này chưa biết .
Mấy hôm trước có xem mấy bài về children mà nó viết kiểu "for each" hic.
ví dụ như

For Each TR In TRs
    r = r + 1
    For Each Cell In TR.Children
        c = c + 1
        Cells(r, c).NumberFormat = "@"
        Cells(r, c) = Cell.innerText
    Next Cell
    c = 0
Next TR

 

[CHAOQUAY]

Cái này chuyển gốc sang 1 kiểu mảng. ngang dọc tuỳ ý.
sau thích dùng kiểu nào thì viết thêm từ đó ra là xong mà
sArr = Split(Elm.Children(0).innerText, vbCrLf) ====Arr = Elm.Children(0).innerText
nay mới xem. ngoài cái reg kia ra thì phát hiện ra cái này chưa biết .
Mấy hôm trước có xem mấy bài về children mà nó viết kiểu "for each" hic.
ví dụ như

For Each TR In TRs
    r = r + 1
    For Each Cell In TR.Children
        c = c + 1
        Cells(r, c).NumberFormat = "@"
        Cells(r, c) = Cell.innerText
    Next Cell
    c = 0
Next TR

Làm 1 cái thống kê theo hàng ngang cho miền Nam đi bạn

 

[doccohaiau]

Làm 1 cái thống kê theo hàng ngang cho miền Nam đi bạn

Set iELM = iHTM.getElementsByClassName("content")(0)
iArr = Split(iELM.Children(0).innerText, vbCrLf)
            ReDim Res(0 To 3, 0 To 21) As String
            k = (UBound(iArr) - 10) / 20 - 1
            For j = 0 To 19
                For i = 0 To k
                    Res(i, 0) = iArr(0)
                    Res(i, 1) = iArr(1)
                    If i * 20 + 1 + j <= UBound(iArr) Then
                        Res(i, j + 2) = iArr(10 + i * 20 + 1 + j)
                    Else
                        Exit For
                    End If
                Next i
            Next j
            kNGAY = Format(iArr(1), "DD/MM/YYYY")

M Không thích chơi cả miền lên chỉ làm đại chạy là được . ai cần thì sửa thêm rồi chế cháo thôi
nhìn hơi rối nhưng sẽ rõ nghĩa cho những người mới. Cá nhân thấy để này đọc hiểu dễ hơn .

Đọc lại thấy thừa thừa . Còn sạch thì b nào tham khảo tự code lại nhé

Set iELM = iHTM.getElementsByClassName("content")(0)
iArr = Split(iELM.Children(0).innerText, vbCrLf)
            ReDim Res(0 To 3, 0 To 21) As String
            k = (UBound(iArr) - 10) / 20 - 1
            For j = 0 To 19
                For i = 0 To k
                    Res(i, 0) = iArr(0)
                    Res(i, 1) = iArr(1)
                    Res(i, j + 2) = iArr(10 + i * 20 + 1 + j)                 
                Next i
            Next j
            kNGAY = Format(iArr(1), "DD/MM/YYYY")  '''''''''============= Dùng Đối số là ngày để kiểm tra nghỉ :D

 

[doccohaiau]

Mở nhiều thớt dễ loạn. M ké chút nhé
Cái này làm cho Đài Nam. Trung thì cũng thế. Kiểu Ngang ==> Tuỳ biến thoải mái được.
Nhưng Bắc thì phải sửa lại thông số mà lười chưa làm.
Ngày lấy kết quả theo Lịch quay đã có sẵn Lịch và URL trong file và trong code.
Ngày Đã Chặn đầu - Chặn đuôi. Update xong tự cho Save luôn nhé
Đổi thông số Đài trong code và Update ngồi hút điếu thuốc là xong
Phạm vi sử dụng chỉ có thế. Nên có vài phần ko có như update thêm.
Xoá sạch đi cho nhanh.Update từ đầu. thêm nếm làm gì

 

[Gà Công Nghệ]

Mở nhiều thớt dễ loạn. M ké chút nhé
Cái này làm cho Đài Nam. Trung thì cũng thế. Kiểu Ngang ==> Tuỳ biến thoải mái được.
Nhưng Bắc thì phải sửa lại thông số mà lười chưa làm.
Ngày lấy kết quả theo Lịch quay đã có sẵn Lịch và URL trong file và trong code.
Ngày Đã Chặn đầu - Chặn đuôi. Update xong tự cho Save luôn nhé
Đổi thông số Đài trong code và Update ngồi hút điếu thuốc là xong
Phạm vi sử dụng chỉ có thế. Nên có vài phần ko có như update thêm.
Xoá sạch đi cho nhanh.Update từ đầu. thêm nếm làm gì

Hi, mình xem trên điện thoại thấy mỗi đài An Giang, lô đặc biệt có khi 6 số, khi 5 số. Nếu xem trên máy tính có đủ đài không bạn.

 

[doccohaiau]

Hi, mình xem trên điện thoại thấy mỗi đài An Giang, lô đặc biệt có khi 6 số, khi 5 số. Nếu xem trên máy tính có đủ đài không bạn.

If i = 3 Then
                        For j = 1 To Len(iArr(i))
                            If IsNumeric(Mid(iArr(i), j, 1)) = True Then GDB = GDB & Mid(iArr(i), j, 1)
                        Next j
                    End If
                    rArr(0, 4) = GDB                'Giai DB
                    If i >= 4 And i <= 14 Then rArr(0, 1 + i) = Right(iArr(i), 5)       'Giai 5S
                    If i >= 15 And i <= 18 Then rArr(0, 1 + i) = Right(iArr(i), 4)      'Giai 4S
                    If i = 19 Then rArr(0, 1 + i) = Right(iArr(i), 3)                   'Giai 3S
                    If i = 20 Then rArr(0, 1 + i) = Right(iArr(i), 2)                   'Giai 2S
                    'Chuoi = Chuoi & rArr(0, 1 + i)

Giải ĐB có lúc 5 số lúc 6 số. Tại vì cái thời điểm đó nó ko có cố định 5 số. M tách riêng GĐB ra mà . Chứ có dùng right đâu bạn

 

[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

 

[CHAOQUAY]

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


View attachment 271208

Bạn làm thế này:
Thêm dấu nháy đơn (')vào đầu dòng bị lỗi
Xóa dấu nháy đơn (') của dòng trên.
Xong rồi chạy lại.

Nếu không được thì gửi file bạn đang sử dụng lên

 

[Thư Tín]

Bạn làm thế này:
Thêm dấu nháy đơn (')vào đầu dòng bị lỗi
Xóa dấu nháy đơn (') của dòng trên.
Xong rồi chạy lại.

Nếu không được thì gửi file bạn đang sử dụng lên

Cái này mà mình làm thống kê theo hàng ngang cho cả 3 miền thì ngon lành bác nhỉ

 

[zPeterPan]

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?

file này có thể làm thống kê thành dòng miền trung và miền nam giống file miền bắc ngày trước của bác không ạ. . . hay là phân ra từng đài của miền trung và miền nam được không bác @CHAOQUAY

 

[CHAOQUAY]

file này có thể làm thống kê thành dòng miền trung và miền nam giống file miền bắc ngày trước của bác không ạ. . . hay là phân ra từng đài của miền trung và miền nam được không bác @CHAOQUAY

Được bạn. Để vài bữa nữa nghỉ tết sẽ xử lý cả 3 đài luôn thể

 

[zPeterPan]

Được bạn. Để vài bữa nữa nghỉ tết sẽ xử lý cả 3 đài luôn thể

thống kê dòng từng đài của 2 miền trung nam ý bác. . . vì miền trung và miền nam quay nhiều đài khác nhau, không giống như miền bắc. . .

 

[CHAOQUAY]

thống kê dòng từng đài của 2 miền trung nam ý bác. . . vì miền trung và miền nam quay nhiều đài khác nhau, không giống như miền bắc. . .

Bạn xem cách thống kê theo hàng ngang trong bài 18 của @doccohaiau xem
Kết quả mà bạn mong muốn có giống như vậy?.

 

[zPeterPan]

Bạn xem cách thống kê theo hàng ngang trong bài 18 của @doccohaiau xem
Kết quả mà bạn mong muốn có giống như vậy?.

không ạ. . . ví dụ như file của bác là có 4 sheet rồi. . . thì sheet5 là sheet thống kê dòng. . . ở sheet1 là miền trung thì thống kê đài huế thì sẽ thống kê dòng đài huế ở sheet5, chọn đài kontum thì sẽ thống kê dòng đài đấy, và miền nam cũng tương tự như vậy ạ. . .

 

[doccohaiau]

không ạ. . . ví dụ như file của bác là có 4 sheet rồi. . . thì sheet5 là sheet thống kê dòng. . . ở sheet1 là miền trung thì thống kê đài huế thì sẽ thống kê dòng đài huế ở sheet5, chọn đài kontum thì sẽ thống kê dòng đài đấy, và miền nam cũng tương tự như vậy ạ. . .

bạn không tuỳ biến thì sẽ cảm thấy nó khác. cơ bản yêu cầu của bạn vẫn cần 1 bộ cơ sở dữ liệu gốc
file của mình lâu rồi không nhớ lắm nhưng mình làm theo kiểu lấy đài riêng biệt chứ không lấy theo miền và cũng theo hàng ngang sẵn. Chỉ cần droplist với 1 lệnh nhỏ cho nó thôi chứ đâu có yêu cầu thêm nhiều chứ nhỉ

 

[zPeterPan]

bạn không tuỳ biến thì sẽ cảm thấy nó khác. cơ bản yêu cầu của bạn vẫn cần 1 bộ cơ sở dữ liệu gốc
file của mình lâu rồi không nhớ lắm nhưng mình làm theo kiểu lấy đài riêng biệt chứ không lấy theo miền và cũng theo hàng ngang sẵn. Chỉ cần droplist với 1 lệnh nhỏ cho nó thôi chứ đâu có yêu cầu thêm nhiều chứ nhỉ

nhưng file của bác nhiều đài và nhiều sheet quá nhìn sẽ bị loạn, như của ChaoQuay 3 miền là 3 sheet và phương pháp thống kê dòng miền bắc như của bác ý rất nhanh ạ.

 

[doccohaiau]

nhưng file của bác nhiều đài và nhiều sheet quá nhìn sẽ bị loạn, như của ChaoQuay 3 miền là 3 sheet và phương pháp thống kê dòng miền bắc như của bác ý rất nhanh ạ.

nhiều đài thì sẽ nhiều sheet mà b. còn nếu để theo miền thì việc truy vấn từng đài sẽ chậm đi do nó phải load cả miền vào và kiểm tra độ chính xác của kết quả khó khăn. và điều nữa là không có ai chơi hết các đài cả và cũng thường chơi dàn rất nhiều số. cá nhân m thì cũng thâm nhập trên 15 năm và cũng nghỉ món này vài năm rồi. nhưng chơi 2D chỉ chơi vui hoặc gỡ vốn. chủ yếu 3D với 4D. nghiên cứu giải trí thì cứ làm thôi. còn chơi kiếm ăn thì kinh nghiệm trên excel là phải biết code. dù hay dù dở chạy nhanh hay chậm thì tối thiểu là cứ chạy được là được. mà việc này nằm ở chữ "Tuỳ biến". B không thể bê nguyên bộ code người ta vào mà dùng rồi không hiểu code họ viết thế nào. đó là điều không nên

 

[zPeterPan]

nhiều đài thì sẽ nhiều sheet mà b. còn nếu để theo miền thì việc truy vấn từng đài sẽ chậm đi do nó phải load cả miền vào và kiểm tra độ chính xác của kết quả khó khăn. và điều nữa là không có ai chơi hết các đài cả và cũng thường chơi dàn rất nhiều số. cá nhân m thì cũng thâm nhập trên 15 năm và cũng nghỉ món này vài năm rồi. nhưng chơi 2D chỉ chơi vui hoặc gỡ vốn. chủ yếu 3D với 4D. nghiên cứu giải trí thì cứ làm thôi. còn chơi kiếm ăn thì kinh nghiệm trên excel là phải biết code. dù hay dù dở chạy nhanh hay chậm thì tối thiểu là cứ chạy được là được. mà việc này nằm ở chữ "Tuỳ biến"

vâng, dù sao cũng cảm ơn bác đã chia sẻ file này của bác, em thì không phải dân chuyên code, hầu như là em nhặt nhạnh chắp vá để phù hợp với ý tưởng của mình thôi, hề hề

 

[CHAOQUAY]

nhiều đài thì sẽ nhiều sheet mà b. còn nếu để theo miền thì việc truy vấn từng đài sẽ chậm đi do nó phải load cả miền vào và kiểm tra độ chính xác của kết quả khó khăn. và điều nữa là không có ai chơi hết các đài cả và cũng thường chơi dàn rất nhiều số. cá nhân m thì cũng thâm nhập trên 15 năm và cũng nghỉ món này vài năm rồi. nhưng chơi 2D chỉ chơi vui hoặc gỡ vốn. chủ yếu 3D với 4D. nghiên cứu giải trí thì cứ làm thôi. còn chơi kiếm ăn thì kinh nghiệm trên excel là phải biết code. dù hay dù dở chạy nhanh hay chậm thì tối thiểu là cứ chạy được là được. mà việc này nằm ở chữ "Tuỳ biến". B không thể bê nguyên bộ code người ta vào mà dùng rồi không hiểu code họ viết thế nào. đó là điều không nên

2D, 3D, 4D Là chơi thế nào vậy bạn

 

[zPeterPan]

2D, 3D, 4D Là chơi thế nào vậy bạn

2d là đề đặc biệt. 3d là 3 càng đặc biệt, 4d là 4 càng đặc biệt

 

[doccohaiau]

2D, 3D, 4D Là chơi thế nào vậy bạn

Chính xác là t nhớ có những này (Chơi online mới có. và không phải trang nào cũng nhiều hình thức chơi
2D là 2 số: 2 số cuối của GDB (Đề đuôi), của G1, G7 (Đề đầu). bao lô (27 lô và 18 lô trung nam, đầu đuôi (G7+ ĐB) (G8 trung nam + ĐB), 2 số đầu giải đb.
3D là 3 số. GDB, G1, G6, bao 23 lô, 17 lô trung nam, 7 lô trung nam
4D là 4 số. GDB, G1, Bao 20 lô.
Tỷ lệ ăn 1*97-99,970-972,10000 . đi hơi xa vấn đề rồi

 

[zPeterPan]

Để 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.
Các hướng dẫn sử dụng ghi trong sheet Hd

---
File này lấy kết quả từ trang MinhNgoc.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ê

---
Hiệu chỉnh lại biến hd cho phù hợp với các định dạng ngày tháng "dd/mm/yyy" & "mm/dd/yyyy"

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

đoạn này có nghĩa là gì vậy anh

 

[CHAOQUAY]

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

đoạn này có nghĩa là gì vậy anh

Đại khái là: tạo 1 object để tìm trong toàn bộ chuỗi lớn A các chuỗi con a. Với chuỗi con a có ít nhất là 1 kí tự & chỉ chứa các số 0-9

 

[CHAOQUAY]

Gửi file bổ sung chuyển số liệu từ hàng dọc sang hàng ngang cho bạn nào có nhu cầu.
Việc lọc ra các địa phương cần tra cứu, chỉ cần sử dụng autofilter là được nên có lẽ không làm trong file đính kèm.

---
File cùng tên tại bài 1 & file bài này là như nhau

 

[zPeterPan]

Bác @CHAOQUAY có thể giúp em giúp em làm file tải kết quả AseanBall theo các đài này được không ạ. . .

ASEAN BALL

www.aseanball.com

 

[msfbtvt]

Để 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.
Các hướng dẫn sử dụng ghi trong sheet Hd

---
File này lấy kết quả từ trang MinhNgoc.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ê

---
Hiệu chỉnh lại biến hd cho phù hợp với các định dạng ngày tháng "dd/mm/yyy" & "mm/dd/yyyy"
---
Bổ sung chuyển đổi số liệu 3 miền về hàng ngang.

E dùng file thứ 2 thì excel vẫn báo lỗi như sau a

bác giúp e với

Thank bác

 

[kyupro1]

Nhờ bác CHaoQuay có thể cho em xin email để trao đổi được không ạ ? em muốn làm một bảng thống kê xs miền trung nhưng theo nhánh đài,ví dụ thứ 2 Huế thứ 3 Quảng Nam thứ 4 Đà Nẵng ạ !

 

[CHAOQUAY]

E dùng file thứ 2 thì excel vẫn báo lỗi như sau a

bác giúp e với

Thank bác

View attachment 272758

View attachment 272759

Có lẽ để thời gian tới cài thêm office 365 hiệu chỉnh rồi sẽ gửi lại bạn

Nhờ bác CHaoQuay có thể cho em xin email để trao đổi được không ạ ? em muốn làm một bảng thống kê xs miền trung nhưng theo nhánh đài,ví dụ thứ 2 Huế thứ 3 Quảng Nam thứ 4 Đà Nẵng ạ !

Bạn gửi 1 file giả định lên cho cụ thể rồi tính

 

[kyupro1]

Có lẽ để thời gian tới cài thêm office 365 hiệu chỉnh rồi sẽ gửi lại bạn


Bạn gửi 1 file giả định lên cho cụ thể rồi tính

em gửi bác ạ ! với em dùng office 365 nha bác... ! Chi phí hết bao nhiêu nhờ bác ib em ạ

 

[Xuân Voi]

Bác @CHAOQUAY có thể giúp em giúp em làm file tải kết quả AseanBall theo các đài này được không ạ. . .
View attachment 272438

ASEAN BALL

www.aseanball.com

Đã làm được chưa bạn .?

 

[LeAnh102]

Bác @CHAOQUAY có thể cho e xin file đủ dữ liệu kết quả MB tính đến hôm nay được không ạ. E thử hết các file excel trên rồi mà cái nào cũng lỗi.

 

[CHAOQUAY]

Bác @CHAOQUAY có thể cho e xin file đủ dữ liệu kết quả MB tính đến hôm nay được không ạ. E thử hết các file excel trên rồi mà cái nào cũng lỗi.

Kết quả miền Bắc từ 1/1/2005 - 15/6/2022.
Bị lỗi thế nào bạn chụp hình gửi lên xem sao.

Bạn dùng office nào?

 

[LeAnh102]

Kết quả miền Bắc từ 1/1/2005 - 15/6/2022.
Bị lỗi thế nào bạn chụp hình gửi lên xem sao.

Bạn dùng office nào?

E dùng office 365, bị giống như bác này

 

[doccohaiau]

529

17/06/2006

79081

54318

50329

11069

76097

07708

13400

86048

38401

18430

2002

4454

3586

1042

8688

2922

0390

5607

7502

4869

241

459

937

67

27

88

65

830

16/04/2007

70590

24915

31330

01624

06403

73560

40557

74308

00066

09335

7005

3447

5122

6033

6849

9575

6253

0098

9436

7352

061

704

695

09

55

66

17

https://www.minhngoc.net.vn/ket-qua-xo-so/17-06-2006.html

https://www.minhngoc.net.vn/ket-qua-xo-so/13-02-2009.html

@CHAOQUAY File bác thiếu 2 ngày này
Riêng ngày 17/6/2006 bị trùng với ngày 13/02/2009. Dữ liệu minh ngọc bị sai

 

[CHAOQUAY]

529

17/06/2006

79081

54318

50329

11069

76097

07708

13400

86048

38401

18430

2002

4454

3586

1042

8688

2922

0390

5607

7502

4869

241

459

937

67

27

88

65

830

16/04/2007

70590

24915

31330

01624

06403

73560

40557

74308

00066

09335

7005

3447

5122

6033

6849

9575

6253

0098

9436

7352

061

704

695

09

55

66

17

https://www.minhngoc.net.vn/ket-qua-xo-so/17-06-2006.html

https://www.minhngoc.net.vn/ket-qua-xo-so/13-02-2009.html

@CHAOQUAY File bác thiếu 2 ngày này
Riêng ngày 17/6/2006 bị trùng với ngày 13/02/2009. Dữ liệu minh ngọc bị sai

Cái file trên lấy theo ketqua.net, trang này ngày 17/6/2006 chỉ có 1 giải đặc biệt, các giải khác không có.
Ngày 13/2/2009 thì giống Minh Ngọc.

Chắc có lẽ hãng xổ số làm ảo số liệu để các nhà "bác học xổ số" không phá được cái lò nhà số đây mà

 

[Xuân Voi]

Bác @CHAOQUAY có thể cho e xin file đủ dữ liệu kết quả MB tính đến hôm nay được không ạ. E thử hết các file excel trên rồi mà cái nào cũng lỗi.

File bấm update để cập nhật. nguồn tải từ kết quả 1.net có mạng là chạy. đã test nhiều kiểu máy chắc sẽ không lỗi trừ khi bị thay link trang

 

[CHAOQUAY]

File bấm update để cập nhật. nguồn tải từ kết quả 1.net có mạng là chạy. đã test nhiều kiểu máy chắc sẽ không lỗi trừ khi bị thay link trang

Test office 365 chưa vậy?

 

[Xuân Voi]

Test office 365 chưa vậy?

Đã chạy ok rồi nhé anh.

 

[doccohaiau]

em gửi bác ạ ! với em dùng office 365 nha bác... ! Chi phí hết bao nhiêu nhờ bác ib em ạ

Cái này yêu cầu khá rộng nha. Mình chỉ trả lời 1 vài vấn đề trong khi chờ đợi bác ChaoQuay.
1. Việc dữ liệu xếp theo từng ngày như MB nếu bạn hiểu một chút bạn cũng có thể sửa lại từ những file của bác ChaoQuay hoặc của mình để phù hợp với cách bạn dùng.
2. Thông kê bao lâu chưa ra, Biên độ của từng con số:
Bạn có thể làm dạng MAP như bảng thống kê tần suất có giới hạn từ ngày x đến ngày y như trong file mẫu
3. Cầu Bạch thủ. Theo mô tả của bạn là cầu ra "CHÍNH SỐ" gọi là lô AB. Các kiểu ra số khác tương tự chẳng qua viết điều kiện phức tạp hơn nhưng số lượng cầu sẽ nhiều hơn.
Có 2 kiểu xét Xét Xuôi và xét ngược tương tự nhau
+ Xét từ ngày ( Kỳ Cuối -1)
- Dùng For hoặc tương tự xét vị trí X từ 1 đến 86 vị trí so với đầu A
- Dùng For hoặc tương tự xét vị trí Y từ 1 đến 86 vị trí so với đuôi B
- Điều kiện X khác Y.
---- Nếu ra lô AB là ta sẽ hình thành các cầu chạy ngắn nhất 1 nhịp
---- Thông kê các vị trí hình thành để xét tiếp ngày Kỳ cuối - 2
....
---- Thông kê các vị trí hình thành 2 nhịp để xét tiếp ngày Kỳ cuối - 3
---- Thống kê riêng biệt các vị trí chỉ chạy n nhịp
Đây chỉ là logic viết. Tuỳ theo cách sử dụng mà viết, sắp xếp bố cục cho hợp lý.
Bạn có thể tham khảm cách bố cục cầu soi cầu và một số cách thống kê của web dưới đây. Lưu ý cần có tài khoản (free).
Chúc bạn may mắn!!!
Nếu viết xong hi vọng bạn đưa lên cho AE tham khảo. Vì cá nhân mình cũng không có thời gian viết.

http://webxoso.net/MienBac/Loto/SoiCauLoto/SoiCauLotoNgay.aspx

 

[Xuân Voi]

Cái này yêu cầu khá rộng nha. Mình chỉ trả lời 1 vài vấn đề trong khi chờ đợi bác ChaoQuay.
1. Việc dữ liệu xếp theo từng ngày như MB nếu bạn hiểu một chút bạn cũng có thể sửa lại từ những file của bác ChaoQuay hoặc của mình để phù hợp với cách bạn dùng.
2. Thông kê bao lâu chưa ra, Biên độ của từng con số:
Bạn có thể làm dạng MAP như bảng thống kê tần suất có giới hạn từ ngày x đến ngày y như trong file mẫu
3. Cầu Bạch thủ. Theo mô tả của bạn là cầu ra "CHÍNH SỐ" gọi là lô AB. Các kiểu ra số khác tương tự chẳng qua viết điều kiện phức tạp hơn nhưng số lượng cầu sẽ nhiều hơn.
Có 2 kiểu xét Xét Xuôi và xét ngược tương tự nhau
+ Xét từ ngày ( Kỳ Cuối -1)
- Dùng For hoặc tương tự xét vị trí X từ 1 đến 86 vị trí so với đầu A
- Dùng For hoặc tương tự xét vị trí Y từ 1 đến 86 vị trí so với đuôi B
- Điều kiện X khác Y.
---- Nếu ra lô AB là ta sẽ hình thành các cầu chạy ngắn nhất 1 nhịp
---- Thông kê các vị trí hình thành để xét tiếp ngày Kỳ cuối - 2
....
---- Thông kê các vị trí hình thành 2 nhịp để xét tiếp ngày Kỳ cuối - 3
---- Thống kê riêng biệt các vị trí chỉ chạy n nhịp
Đây chỉ là logic viết. Tuỳ theo cách sử dụng mà viết, sắp xếp bố cục cho hợp lý.
Bạn có thể tham khảm cách bố cục cầu soi cầu và một số cách thống kê của web dưới đây. Lưu ý cần có tài khoản (free).
Chúc bạn may mắn!!!
Nếu viết xong hi vọng bạn đưa lên cho AE tham khảo. Vì cá nhân mình cũng không có thời gian viết.

http://webxoso.net/MienBac/Loto/SoiCauLoto/SoiCauLotoNgay.aspx

Bạn có ý tưởng thuật toán để thống kê tần suất về không cho anh em tham khảo.
Đây là cách sắp xếp dữ liệu để thống kê

 

[doccohaiau]

Bạn có ý tưởng thuật toán để thống kê tần suất về không cho anh em tham khảo.
Đây là cách sắp xếp dữ liệu để thống kê

Mình chưa hiểu cái này là thống kê theo cái gì nữa.
Đoán: Bạn muốn thống kê
- Theo vị trí cố định cho trước (ghép thành 1 cặp lô)
- Ở bên phải những số 1234 gì đó là số nháy theo cầu đã về .
- Ở phía trên là thông tin ngày về (Nhìn trên bảng thì hình như cái ngày của bạn nó kéo dài mãi hả.)

 

[CHAOQUAY]

Mình chưa hiểu cái này là thống kê theo cái gì nữa.
Đoán: Bạn muốn thống kê
- Theo vị trí cố định cho trước (ghép thành 1 cặp lô)
- Ở bên phải những số 1234 gì đó là số nháy theo cầu đã về .
- Ở phía trên là thông tin ngày về (Nhìn trên bảng thì hình như cái ngày của bạn nó kéo dài mãi hả.)

Số cột của excel hiện là khoảng 16000 cột, 1 năm có khoảng 360 lần quay, vậy là có thể chứa khoảng 44,4 năm đấy.
Nghe nói án tù chung thân cũng chỉ khoảng 30 năm thì phải

 

[Ha-minh]

Số cột của excel hiện là khoảng 16000 cột, 1 năm có khoảng 360 lần quay, vậy là có thể chứa khoảng 44,4 năm đấy.
Nghe nói án tù chung thân cũng chỉ khoảng 30 năm thì phải

Chào bác CHAOQUAY em mới vào ạ, nhân tiện em muốn nhờ bác chút, bác giúp em xuất dữ liệu ra theo ngày mong muốn và tách đầu ,đít ra theo file của bác được không ạ

 

[CHAOQUAY]

Chào bác CHAOQUAY em mới vào ạ, nhân tiện em muốn nhờ bác chút, bác giúp em xuất dữ liệu ra theo ngày mong muốn và tách đầu ,đít ra theo file của bác được không ạ

Nhập ngày tháng vào B1 rồi kiểm tra lại xem sao

---
Sửa lại kết quả hiển thị

 

[kyupro1]

Cái này yêu cầu khá rộng nha. Mình chỉ trả lời 1 vài vấn đề trong khi chờ đợi bác ChaoQuay.
1. Việc dữ liệu xếp theo từng ngày như MB nếu bạn hiểu một chút bạn cũng có thể sửa lại từ những file của bác ChaoQuay hoặc của mình để phù hợp với cách bạn dùng.
2. Thông kê bao lâu chưa ra, Biên độ của từng con số:
Bạn có thể làm dạng MAP như bảng thống kê tần suất có giới hạn từ ngày x đến ngày y như trong file mẫu
3. Cầu Bạch thủ. Theo mô tả của bạn là cầu ra "CHÍNH SỐ" gọi là lô AB. Các kiểu ra số khác tương tự chẳng qua viết điều kiện phức tạp hơn nhưng số lượng cầu sẽ nhiều hơn.
Có 2 kiểu xét Xét Xuôi và xét ngược tương tự nhau
+ Xét từ ngày ( Kỳ Cuối -1)
- Dùng For hoặc tương tự xét vị trí X từ 1 đến 86 vị trí so với đầu A
- Dùng For hoặc tương tự xét vị trí Y từ 1 đến 86 vị trí so với đuôi B
- Điều kiện X khác Y.
---- Nếu ra lô AB là ta sẽ hình thành các cầu chạy ngắn nhất 1 nhịp
---- Thông kê các vị trí hình thành để xét tiếp ngày Kỳ cuối - 2
....
---- Thông kê các vị trí hình thành 2 nhịp để xét tiếp ngày Kỳ cuối - 3
---- Thống kê riêng biệt các vị trí chỉ chạy n nhịp
Đây chỉ là logic viết. Tuỳ theo cách sử dụng mà viết, sắp xếp bố cục cho hợp lý.
Bạn có thể tham khảm cách bố cục cầu soi cầu và một số cách thống kê của web dưới đây. Lưu ý cần có tài khoản (free).
Chúc bạn may mắn!!!
Nếu viết xong hi vọng bạn đưa lên cho AE tham khảo. Vì cá nhân mình cũng không có thời gian viết.

http://webxoso.net/MienBac/Loto/SoiCauLoto/SoiCauLotoNgay.aspx

cảm ơn bác nhiều,em đã liên hệ bác CHAOQUAY để làm rồi ạ ! file ra rất ưng ý em,chỉ bị một lỗi là chưa có tính năng update làm em phải gõ tay,có hôm ngáo gõ sai nên thành ra thống kê bị sai => thua liên tiếp 5 ngày !
em xài office 365 nên chẳng xài được file của mấy bác post ạ

 

[doccohaiau]

cảm ơn bác nhiều,em đã liên hệ bác CHAOQUAY để làm rồi ạ ! file ra rất ưng ý em,chỉ bị một lỗi là chưa có tính năng update làm em phải gõ tay,có hôm ngáo gõ sai nên thành ra thống kê bị sai => thua liên tiếp 5 ngày !
em xài office 365 nên chẳng xài được file của mấy bác post ạ

mình ko dùng 365 nên không biết. nhưng ở trên bác xuantruong.ktv bảo đã test rồi mà

Bài đã được tự động gộp: 28/6/22

Nhập ngày tháng vào B1 rồi kiểm tra lại xem sao

em thấy hình như không đúng bác à.
chỉ xuất ra 1 đuôi cho 1 đầu. và 1 đầu cho 1 đuôi.
mà hình như bạn đó muốn xuất là kết quả lô theo đầu đít.

 

[CHAOQUAY]

...
em thấy hình như không đúng bác à.
chỉ xuất ra 1 đuôi cho 1 đầu. và 1 đầu cho 1 đuôi.
mà hình như bạn đó muốn xuất là kết quả lô theo đầu đít.

Có lẽ là đúng thế thật.
Bài trên sửa lại rồi nhé bạn

 

[Ha-minh]

Nhập ngày tháng vào B1 rồi kiểm tra lại xem sao

---
Sửa lại kết quả hiển thị

ok rồi bác nhưng lại bị mất số ở khu vực giải ạ

 

[doccohaiau]

ok rồi bác nhưng lại bị mất số ở khu vực giải ạ

Dim kqNgay() As String
khai báo lại cái này

 

[Xuân Voi]

cảm ơn bác nhiều,em đã liên hệ bác CHAOQUAY để làm rồi ạ ! file ra rất ưng ý em,chỉ bị một lỗi là chưa có tính năng update làm em phải gõ tay,có hôm ngáo gõ sai nên thành ra thống kê bị sai => thua liên tiếp 5 ngày !
em xài office 365 nên chẳng xài được file của mấy bác post ạ

File update mình post ở trên xài trên office 365 bình thường nhé. Nếu cần ghép 2 file lại với nhau thì up file lên mình làm cho nhé. 3 miền

 

[msfbtvt]

E cần file chạy/ update cho Office 365 ngon lành, các bác báo giá vào zalo (O97...1..O56//556)

Từ khoảng 2010 đến nay là dc.

Ko cần đầy đủ qá.

E cảm ơn.

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

File bấm update để cập nhật. nguồn tải từ kết quả 1.net có mạng là chạy. đã test nhiều kiểu máy chắc sẽ không lỗi trừ khi bị thay link trang

Bác ơi e chạy vẫn báo lỗi này. Nhờ bác giúp e
Cảm ơn bác
E sài

bản Excel này

 

[Xuân Voi]

View attachment 278326

View attachment 278325

Lỗi do hiển thị dữ liệu khi lấy về bị lệch dòng đang khắc phục nhé.

 

[mrjun80]

toàn bị lỗi bug, ko chạy đc, báo lỗi đoạn:
Do While cnd = True
.Open "GET", "http://ketqua1.net/xo-so-truyen-thong.php?ngay=" & Sheet1.Range("J3"), False
.send
bác cố thể làm cái tự lấy, rồi ghi lại datta kết quả bên bọn Kubet ko?

 

[Ngochand82]

Kết quả miền Bắc từ 1/1/2005 - 15/6/2022.
Bị lỗi thế nào bạn chụp hình gửi lên xem sao.

Bạn dùng office nào?

Bác @CHAOQUAY có thể giúp em giúp em làm file như bac kyupro1

cảm ơn bác nhiều,em đã liên hệ bác CHAOQUAY để làm rồi ạ ! file ra rất ưng ý em,chỉ bị một lỗi là chưa có tính năng update làm em phải gõ tay,có hôm ngáo gõ sai nên thành ra thống kê bị sai => thua liên tiếp 5 ngày !
em xài office 365 nên chẳng xài được file của mấy bác post ạ

Em sài office 2013. có gì bác liên hệ em 0936 08 08 26

 

[b0yelder]

@Xuân Voi @CHAOQUAY xin phép 2 bác có thể code cho em lấy kqmb theo hàng ngang vào file google sheet được không ạ. E cần dùng trên điện thoại mà google ko hỗ trợ vba các bác ạ

 

[zPeterPan]

@CHAOQUAY sửa lỗi này như nào vậy ạ

 

[CHAOQUAY]

@CHAOQUAY sửa lỗi này như nào vậy ạ
View attachment 302903

Thông báo lỗi thế nào vậy bạn

 

[zPeterPan]

Thông báo lỗi thế nào vậy bạn

dạ, chạy cập nhập thì báo lỗi này ạ. . . bác xem giúp em với ạ

 

[CHAOQUAY]

dạ, chạy cập nhập thì báo lỗi này ạ. . . bác xem giúp em với ạ
View attachment 302908

Bạn đang dùng excel 365?

 

[zPeterPan]

Bạn đang dùng excel 365?

em dùng excel 2021 ạ, có cách nào sửa không ạ

 

[CHAOQUAY]

em dùng excel 2021 ạ, có cách nào sửa không ạ

Gửi lại file lỗi lên để kiểm tra luôn cho tiện nhé bạn

 

[zPeterPan]

Gửi lại file lỗi lên để kiểm tra luôn cho tiện nhé bạn

File đây ạ, bác sửa giúp em với ạ, em cảm ơn bác ạ

 

[CHAOQUAY]

File đây ạ, bác sửa giúp em với ạ, em cảm ơn bác ạ

Định kiểm tra lại ngày tháng trong file của bạn nhưng hiện cũng đang kẹt nên chưa xử lý được.
File bài 1 test lại vẫn chạy bình thường, có lẽ là bạn lấy file bài 1 rồi mở rộng làm lại file như trên cho chủ động.

---
Tốt nhất là bạn tạo workbook mới, chép code vào, dựng lại từ đầu.

 

[zPeterPan]

Định kiểm tra lại ngày tháng trong file của bạn nhưng hiện cũng đang kẹt nên chưa xử lý được.
File bài 1 test lại vẫn chạy bình thường, có lẽ là bạn lấy file bài 1 rồi mở rộng làm lại file như trên cho chủ động.

---
Tốt nhất là bạn tạo workbook mới, chép code vào, dựng lại từ đầu.

Dạ, em lấy file bài 1 chạy thì lại báo lỗi này ạ

 

[CHAOQUAY]

Dạ, em lấy file bài 1 chạy thì lại báo lỗi này ạ
View attachment 302928

File bài 1 máy tôi chạy lại thấy bình thường, vừa tải lại xong, cả 3 miền. Máy win7 x64, office 2016 x64

---
File của bạn cũng đã xem qua sơ bộ, mục tiêu chỉ là kiểm tra lại ngày tháng trong file nhưng chưa làm được.
Bạn có thể so sánh ngày, tháng trên bảng tính & ngày tháng trên code xem có khớp hay không?

 

[HNam_Phan]

E dùng file thứ 2 thì excel vẫn báo lỗi như sau a

bác giúp e với

Thank bác

View attachment 272758

View attachment 272759

mình down về chạy thử cũng bị như bạn
Bạn khắc phục được chưa? chỉ mình với

Bài đã được tự động gộp: 10/3/25

dạ, chạy cập nhập thì báo lỗi này ạ. . . bác xem giúp em với ạ
View attachment 302908

Mình dùng office 2016 vẫn bị lỗi này (Miền Trung và Miền Nam)
Nếu bạn chỉnh lại được thì hướng dẫn mình với nhé.