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

[CHAOQUAY]

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: 7/8/20

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

 

[leanhhai1205]

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

 

[CHAOQUAY]

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

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

 

[leanhhai1205]

Test thử xem sao

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.

 

[dongjangjuno]

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 . boyxin chầu rìa tý nhé . 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 ạ

 

[dongjangjuno]

Test thử xem sao

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

 

[leongnam]

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: 10/8/20

Test thử xem sao

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ỉ?

 

[CHAOQUAY]

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ỉ?

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

 

[leongnam]

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.

 

[CHAOQUAY]

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.

Gửi cái file ấy lên cho nhanh

 

[leongnam]

Gửi cái file ấy lên cho nhanh

à e làm được rồi, đổi sang định dạng general là ok, code bác làm hay nhỉ? có vài dòng mà ra được chức năng như vậy.

 

[CHAOQUAY]

à e làm được rồi, đổi sang định dạng general là ok, code bác làm hay nhỉ? có vài dòng mà ra được chức năng như vậy.

Quen tay í mà bạn

 

[dongjangjuno]

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.

 

[CHAOQUAY]

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ũ

 

[leanhhai1205]

Test thử xem sao

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

 

[CHAOQUAY]

Bác có function ghép bộ không, giúp em với

Ghép thế nào bạn gửi file lên

 

[leanhhai1205]

Ghép thế nào bạn gửi file lên

file đây bác ơi

 

[CHAOQUAY]

file đây bác ơi

Bạn thử công thức dưới đây.
Lưu ý: Cột B phải gõ đủ 2 ký tự

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

 

[leanhhai1205]

Bạn thử công thức dưới đây.
Lưu ý: Cột B phải gõ đủ 2 ký tự

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

Chạy được rồi bác ơi, thanks bác !

 

[leanhhai1205]

Bạn thử công thức dưới đây.
Lưu ý: Cột B phải gõ đủ 2 ký tự

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 đó