Theo dõi kết quả xổ số!

Liên hệ QC
Bác CHAOQUAY kết quả ngày 6/8/2020 e kiểm tra thấy giải tư bôi đỏ sai, nó phải là 2368, với mấy phần bôi vàng nó mất số "0" ở đầu, máy bác chạy không biết sao chứ máy của em mở file này nó cứ giật lag ý, e thử xóa hết dữ liệu và vẫn thấy giật lag
Phần chữ đậm cũng vừa phát hiện ra. Cái này sai từ 1/8/2020 tới nay, các ngày trước bình thường. Đã hiệu chỉnh trong file đính kèm.
em có tải được 1 file update kết quả xổ số miền bắc hàng ngày trên diễn đàn. Mấy hôm nay không update được, bác xem giúp em được không
Bài đã được tự động gộp:

..., với mấy phần bôi vàng nó mất số "0" ở đầu, máy bác chạy không biết sao chứ máy của em mở file này nó cứ giật lag ý, e thử xóa hết dữ liệu và vẫn thấy giật lag
Mất số 0 đầu chỉ cần định dạng lại vùng bảng tính là trước khi điền kết quả là được. Giật lắc có lẽ phải viết lại.
Cái này giờ hơi ngại, có lẽ ngày nào cập nhật luôn ngày đó cho đỡ thôi bạn.
 

File đính kèm

  • Capnhatkq_2019.xlsm
    1.8 MB · Đọc: 63
em muốn tạo các số "ghép" như trong file đính kèm
bác CHAOQUAY viết hộ em function công thức với
 

File đính kèm

  • nhobaclamho.xlsx
    14.8 KB · Đọc: 54
Lần chỉnh sửa cuối:
em muốn tạo các số "ghép trong" như trong file đính kèm
bác CHAOQUAY viết hộ em function công thức với
Test thử xem sao
Mã:
Option Explicit

Function ghepTrong(chuoi As String) As String
If Len(chuoi) = 0 Then Exit Function
Dim mang() As Integer
Dim kq() As String
Dim i, j, k, z
k = Len(chuoi)
ReDim mang(1 To k)
For i = 1 To k
    mang(i) = CInt(Mid(chuoi, i, 1))
Next i
ReDim kq(1 To WorksheetFunction.Permut(k, 2) + k)
For i = 1 To k
    For j = 1 To k
        z = z + 1
        kq(z) = mang(i) & mang(j)
    Next j
Next i
ghepTrong = Replace(Join(kq), " ", ",")
End Function
 
Test thử xem sao
Mã:
Option Explicit

Function ghepTrong(chuoi As String) As String
If Len(chuoi) = 0 Then Exit Function
Dim mang() As Integer
Dim kq() As String
Dim i, j, k, z
k = Len(chuoi)
ReDim mang(1 To k)
For i = 1 To k
    mang(i) = CInt(Mid(chuoi, i, 1))
Next i
ReDim kq(1 To WorksheetFunction.Permut(k, 2) + k)
For i = 1 To k
    For j = 1 To k
        z = z + 1
        kq(z) = mang(i) & mang(j)
    Next j
Next i
ghepTrong = Replace(Join(kq), " ", ",")
End Function
Thanks bác CHAOQUAY chuẩn rồi bác ơi.
 
Thêm sheet liệt kê 2 số cuối của giải đặc biệt trong năm
Thống kê 2 số cuối từ kết quả XS

Thấy nhiều người quan tâm đến vấn đề này -=09=. boyxin chầu rìa tý nhé --=0. Gọi là có món quà nhỏ để ra mặt với toppic ;;;;;;;;;;;

post xong bài mới nhìn ra đây là BOX hàm và công thức thế mà lại gửi VBA (Nhờ MOD remove bài này nhé)
e mới lội 8 page, thấy file này rất hay nhưng giờ k update được dữ liệu từ web nữa, có pro nào giúp nó chạy lại đc k ạ
 
Test thử xem sao
Mã:
Option Explicit

Function ghepTrong(chuoi As String) As String
If Len(chuoi) = 0 Then Exit Function
Dim mang() As Integer
Dim kq() As String
Dim i, j, k, z
k = Len(chuoi)
ReDim mang(1 To k)
For i = 1 To k
    mang(i) = CInt(Mid(chuoi, i, 1))
Next i
ReDim kq(1 To WorksheetFunction.Permut(k, 2) + k)
For i = 1 To k
    For j = 1 To k
        z = z + 1
        kq(z) = mang(i) & mang(j)
    Next j
Next i
ghepTrong = Replace(Join(kq), " ", ",")
End Function
Bác @CHAOQUAY có thể giúp mình phục hồi cho file này của bác @boyxin update đươc giải miền bắc k, tks bác
 

File đính kèm

  • thongke2so KQXS online Ver2.xls
    559 KB · Đọc: 47
Bác @CHAOQUAY có thể giúp mình phục hồi cho file này của bác @boyxin update đươc giải miền bắc k, tks bác
Bác thử file này xem được không, mình có tạo lại file mới theo file bác @CHAOQUAY đưa, hết bị giật lag rồi, dùng ok, nếu bác muốn thử bác có thể xóa kết quả bên sheet "solieu" và sheet "bangketqua" ngày hôm nay 10/8 và ấn nút "cập nhật KQ" bên sheet "solieu" chạy rất ok kết quả xổ số miền bắc.
Bài đã được tự động gộp:

Test thử xem sao
Mã:
Option Explicit

Function ghepTrong(chuoi As String) As String
If Len(chuoi) = 0 Then Exit Function
Dim mang() As Integer
Dim kq() As String
Dim i, j, k, z
k = Len(chuoi)
ReDim mang(1 To k)
For i = 1 To k
    mang(i) = CInt(Mid(chuoi, i, 1))
Next i
ReDim kq(1 To WorksheetFunction.Permut(k, 2) + k)
For i = 1 To k
    For j = 1 To k
        z = z + 1
        kq(z) = mang(i) & mang(j)
    Next j
Next i
ghepTrong = Replace(Join(kq), " ", ",")
End Function
e chèn sub ghepTrong () ở dưới Option Explicit à end sub ở cuối cùng sao lúc chạy nó cứ báo lỗi cái sub e chèn vào bác nhỉ?
 

File đính kèm

  • capnhatKQXSmienbac.xlsb
    36 KB · Đọc: 63
Nó là function không phải sub.
Không biết bạn chèn thế nào nhưng thử thau end sub thành end function xem sao
hihi, chắc e không biết sử dụng, e copy code của bác vào nhưng alt + f8 không thấy có gì để chạy, xong e vào lại phần code thêm sub thì nó báo lỗi cái sub e chèn vào, vậy làm sao để chạy được bác ơi.
 
tks bác nhiều nha, file của bác rất hay đầy đủ thông tin, nhưng tại mình đang hướng theo hướng của bác @boyxin nên muốn xin giúp đỡ để chạy được bác ạ, file của bác ý lấy dữ liệu từ trang ketquaxoso.24h.com.vn nó không thống kê đầy đủ kết quả miền bắc.
 
tks bác nhiều nha, file của bác rất hay đầy đủ thông tin, nhưng tại mình đang hướng theo hướng của bác @boyxin nên muốn xin giúp đỡ để chạy được bác ạ, file của bác ý lấy dữ liệu từ trang ketquaxoso.24h.com.vn nó không thống kê đầy đủ kết quả miền bắc.
Bạn có thể tải số liệu về & xử lý = hàm hoặc code để có được cấu trúc như trong file đó, không nhất thiết phải phục hồi lại file cũ
 
Test thử xem sao
Mã:
Option Explicit

Function ghepTrong(chuoi As String) As String
If Len(chuoi) = 0 Then Exit Function
Dim mang() As Integer
Dim kq() As String
Dim i, j, k, z
k = Len(chuoi)
ReDim mang(1 To k)
For i = 1 To k
    mang(i) = CInt(Mid(chuoi, i, 1))
Next i
ReDim kq(1 To WorksheetFunction.Permut(k, 2) + k)
For i = 1 To k
    For j = 1 To k
        z = z + 1
        kq(z) = mang(i) & mang(j)
    Next j
Next i
ghepTrong = Replace(Join(kq), " ", ",")
End Function
Bác có function ghép bộ không, giúp em với
 
Bạn thử công thức dưới đây.
Lưu ý: Cột B phải gõ đủ 2 ký tự
Mã:
C3=IF(OR(B3="",LEN(B3)<2),"",VLOOKUP("*"&B3&"*",$A$3:$A$17,1,0))
---
Công thức này chỉ tìm được 1 bộ đầu tiên nhé bạn
có công thức thức nào tìm đc 2,3 bộ không bác
Ví dụ gõ: 11,12 nó ra luôn 2 loại đó
 
Web KT
Back
Top Bottom