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

[CHAOQUAY]

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

Nếu bạn dùng excel 365 hoặc 2019 có lẽ là có đấy bạn. Nếu không thì phải dùng hàm tạo

 

[leanhhai1205]

Nếu bạn dùng excel 365 hoặc 2019 có lẽ là có đấy bạn. Nếu không thì phải dùng hàm tạo

em dùng office 2016 bác ơi. nhờ bác viết hộ em ơi.

 

[CHAOQUAY]

em dùng office 2016 bác ơi. nhờ bác viết hộ em ơi.

Copy đoạn code dưới đây, nhấn alt+F11 --> alt+I+M --> ctrl+V --> alt+Q
Cú pháp: Loc(B3, $A$3:$A$17)

Option Explicit

Function Loc(Mau_, Nguon_)
If Len(Mau_) <= 1 Then Exit Function
Dim Mau
Dim DL
Dim i, j
Mau = Mau_
DL = Nguon_
For Each j In Split(Mau, ",")
    For i = 1 To UBound(DL)
        If InStr(DL(i, 1), j) Then
            Loc = Loc & " " & DL(i, 1)
        End If
    Next i
Next j
Loc = Replace(Trim(Loc), " ", ",")
End Function

 

[leanhhai1205]

Copy đoạn code dưới đây, nhấn alt+F11 --> alt+I+M --> ctrl+V --> alt+Q
Cú pháp: Loc(B3, $A$3:$A$17)

Option Explicit

Function Loc(Mau_, Nguon_)
If Len(Mau_) <= 1 Then Exit Function
Dim Mau
Dim DL
Dim i, j
Mau = Mau_
DL = Nguon_
For Each j In Split(Mau, ",")
    For i = 1 To UBound(DL)
        If InStr(DL(i, 1), j) Then
            Loc = Loc & " " & DL(i, 1)
        End If
    Next i
Next j
Loc = Replace(Trim(Loc), " ", ",")
End Function

Cám ơn bác nhiều lắm.

 

[leongnam]

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

hay quá bác, e áp dụng gọi ra được cả đống này

 

[leongnam]

Gửi bác @CHAOQUAY , e đang tìm cách tự động tách đầu và đuôi trong bảng kết quả sắp xếp theo thứ tự, mà mò mãi chưa thấy có hướng dẫn nào, e lại phiền bác chỉ giáo , thanks bác.

 

[CHAOQUAY]

Gửi bác @CHAOQUAY , e đang tìm cách tự động tách đầu và đuôi trong bảng kết quả sắp xếp theo thứ tự, mà mò mãi chưa thấy có hướng dẫn nào, e lại phiền bác chỉ giáo , thanks bác.

Bạn chạy thử code dưới đây.
Thu nhập tốt thì bổ sung anh em tí cà phê cà pháo nhé
---
Có giải đặc biệt là chưa tô màu đỏ, để sau đi nhé

Sub Lietke()
Dim Nguon
Dim Dau(9, 1 To 1) As String, Duoi(9, 1 To 1) As String
Dim cls, i, j, k, x, y, z
Nguon = Sheet1.Range("B2:E11")
cls = UBound(Nguon, 2)
For i = 1 To UBound(Nguon)
    For j = 1 To cls
        If Nguon(i, j) <> "" Then
            k = Right(Nguon(i, j), 2)
            x = CInt(Left(k, 1))
            y = CInt(Right(k, 1))
            Dau(x, 1) = Dau(x, 1) & IIf(Dau(x, 1) = "", "", ", ") & k
            Duoi(y, 1) = Duoi(y, 1) & IIf(Duoi(y, 1) = "", "", ", ") & k
        End If
    Next j
Next i
With Sheet1
    .Range("H2:H11") = Dau
    .Range("K2:K11") = Duoi
End With
End Sub

 

[leongnam]

Bạn chạy thử code dưới đây.
Thu nhập tốt thì bổ sung anh em tí cà phê cà pháo nhé
---
Có giải đặc biệt là chưa tô màu đỏ, để sau đi nhé

Sub Lietke()
Dim Nguon
Dim Dau(9, 1 To 1) As String, Duoi(9, 1 To 1) As String
Dim cls, i, j, k, x, y, z
Nguon = Sheet1.Range("B2:E11")
cls = UBound(Nguon, 2)
For i = 1 To UBound(Nguon)
    For j = 1 To cls
        If Nguon(i, j) <> "" Then
            k = Right(Nguon(i, j), 2)
            x = CInt(Left(k, 1))
            y = CInt(Right(k, 1))
            Dau(x, 1) = Dau(x, 1) & IIf(Dau(x, 1) = "", "", ", ") & k
            Duoi(y, 1) = Duoi(y, 1) & IIf(Duoi(y, 1) = "", "", ", ") & k
        End If
    Next j
Next i
With Sheet1
    .Range("H2:H11") = Dau
    .Range("K2:K11") = Duoi
End With
End Sub

cảm ơn bác, nhất trí ngay, e tính vào inbox bác mà không thấy phần chat ở đâu.
chạy code trên ok rồi bác, nếu hàng ngang sắp xếp theo từ nhỏ đến lớn nữa là ok, có cách nào cho tự chạy code khi bảng kết quả thay đổi mà không cần ấn thủ công không bác nhỉ? không phải e lười mà sợ bị nhầm lẫn.

 

[CHAOQUAY]

cảm ơn bác, nhất trí ngay, e tính vào inbox bác mà không thấy phần chat ở đâu.
chạy code trên ok rồi bác, nếu hàng ngang sắp xếp theo từ nhỏ đến lớn nữa là ok, có cách nào cho tự chạy code khi bảng kết quả thay đổi mà không cần ấn thủ công không bác nhỉ? không phải e lười mà sợ bị nhầm lẫn.

Cái màu xanh không vấn đề.
Cái màu đỏ cần cụ thể hơn, thay đổi theo cách thế nào?
---

 

[leongnam]

Cái màu xanh không vấn đề.
Cái màu đỏ cần cụ thể hơn, thay đổi theo cách thế nào?
---

file này chính là cái file update KQ trực tuyến mà bác gửi đó, e tạo cái hộp ngày tháng, khi e chọn ngày nào thì bảng KQ nó thay đổi, e muốn khi chọn ngày để bảng KQ thay đổi thì phần đầu đuôi nó cũng nhảy theo luôn đó bác, tức là thay vì mình alt+f8 chạy thì nó tự nhảy như công thức bình thường khi ô tham chiếu thay đổi đó ạ.

 

[CHAOQUAY]

file này chính là cái file update KQ trực tuyến mà bác gửi đó, e tạo cái hộp ngày tháng, khi e chọn ngày nào thì bảng KQ nó thay đổi, e muốn khi chọn ngày để bảng KQ thay đổi thì phần đầu đuôi nó cũng nhảy theo luôn đó bác, tức là thay vì mình alt+f8 chạy thì nó tự nhảy như công thức bình thường khi ô tham chiếu thay đổi đó ạ.

Dùng thử file dưới đây.
Nhập ngày tháng vào B1, sheet2.
Sô liệu kết quả lưu tại sheet1.
---
Ngày tháng trong file là để ở dạng text nên phải nhập đúng mới chạy

 

[leongnam]

Dùng thử file dưới đây.
Nhập ngày tháng vào B1, sheet2.
Sô liệu kết quả lưu tại sheet1.
---
Ngày tháng trong file là để ở dạng text nên phải nhập đúng mới chạy

quá ngon bác ơi, siêu cao thủ có ăn có học có khác , đùa chứ món liên quan đến toán với code này đúng là thông minh mới làm được, e nhìn hoa hết cả mắt không hiểu gì , làm thế nào để gửi bác cốc caffe được bác nhỉ?

 

[CHAOQUAY]

quá ngon bác ơi, siêu cao thủ có ăn có học có khác , đùa chứ món liên quan đến toán với code này đúng là thông minh mới làm được, e nhìn hoa hết cả mắt không hiểu gì , làm thế nào để gửi bác cốc caffe được bác nhỉ?

Bạn cho "có" nhiều thứ quá .
Mấy quả cà có thể gửi qua phong bì được đó bạn

Thân chào!

 

[phamconghung]

sheet tinnhan khi tách có thêm 3 cột này, nhấn tách tin -> sang sheet kqsx cập nhật kết quả ngày hôm nay -> sang sheet thongke kiểm tra ok rồi nhấn lưu -> như vậy 1 lúc có thể lưu được 1 hoặc hoặc nhiều người rút ngắn thời gian vào thao tác -> khi e cần gọi 1 ai ra để xem e sang sheet thongke và gọi tên người đó, ngày -> ra là thấy thông tin về các số họ đánh và ngày đánh ạ, có thể cập nhật lại nếu thấy có thiếu sót hoặc sai sót, có thể lọc theo ngày để biết tổng người chơi và tổng thu chi nữa thì càng tốt ạ. => kết hợp sheet tonghopTheodiem anh làm hôm qua thì hoàn hảo ạ.

View attachment 241373

bác là chủ đề đó à? khai mau ko em báo CA giờ.

 

[CHAOQUAY]

bác là chủ đề đó à? khai mau ko em báo CA giờ.

đề nghĩa là gì thế?
báo ca nghĩa là gì thế?

 

[leanhhai1205]

đề nghĩa là gì thế?
báo ca nghĩa là gì thế?

bác CHAO QUAY ơi giúp em công thức cộng hoặc function như dưới đây với.
12345 (1+2), (2+3),(3+4),(4+5)
3579 (3+5),(5+7),(7+9)
826 (8+2),(2+6)
08 (0+8)
8
Ví dụ Cell A1 có dẫy số 12345, điền công thức ở ô B1 sẽ ra kết quả cuối cùng là 8.
Cám ơn bác.

 

[levietha1808]

bác CHAO QUAY ơi giúp em công thức cộng hoặc function như dưới đây với.
12345 (1+2), (2+3),(3+4),(4+5)
3579 (3+5),(5+7),(7+9)
826 (8+2),(2+6)
08 (0+8)
8
Ví dụ Cell A1 có dẫy số 12345, điền công thức ở ô B1 sẽ ra kết quả cuối cùng là 8.
Cám ơn bác.

Em cũng quan tâm tới bài này

 

[CHAOQUAY]

bác CHAO QUAY ơi giúp em công thức cộng hoặc function như dưới đây với.
12345 (1+2), (2+3),(3+4),(4+5)
3579 (3+5),(5+7),(7+9)
826 (8+2),(2+6)
08 (0+8)
8
Ví dụ Cell A1 có dẫy số 12345, điền công thức ở ô B1 sẽ ra kết quả cuối cùng là 8.
Cám ơn bác.

Bạn thử hàm tự tạo dưới đây.
Chưa test kỹ vì không có nhiều mẫu, có gì điều chỉnh sau

Option Explicit

Function Tong(Chuoi)
Dim mang0, mang1
Dim i, j, k
k = Len(Chuoi)
ReDim mang0(1 To k)
For j = 1 To k
    mang0(j) = CLng(Mid(Chuoi, j, 1))
Next j
For i = k - 1 To 1 Step -1
    ReDim mang1(1 To i)
    For j = i To 1 Step -1
        mang1(j) = (mang0(j) + mang0(j + 1)) Mod 10
    Next j
    mang0 = mang1
Next i
Tong = mang0(1)
End Function

 

[leanhhai1205]

Bạn thử hàm tự tạo dưới đây.
Chưa test kỹ vì không có nhiều mẫu, có gì điều chỉnh sau

Option Explicit

Function Tong(Chuoi)
Dim mang0, mang1
Dim i, j, k
k = Len(Chuoi)
ReDim mang0(1 To k)
For j = 1 To k
    mang0(j) = CLng(Mid(Chuoi, j, 1))
Next j
For i = k - 1 To 1 Step -1
    ReDim mang1(1 To i)
    For j = i To 1 Step -1
        mang1(j) = (mang0(j) + mang0(j + 1)) Mod 10
    Next j
    mang0 = mang1
Next i
Tong = mang0(1)
End Function

chuẩn luôn rồi bác CHAOQUAY ơi. gõ cái ra luôn.

 

[Algetlam001]

quá ngon bác ơi, siêu cao thủ có ăn có học có khác , đùa chứ món liên quan đến toán với code này đúng là thông minh mới làm được, e nhìn hoa hết cả mắt không hiểu gì , làm thế nào để gửi bác cốc caffe được bác nhỉ?

Dùng thử file dưới đây.
Nhập ngày tháng vào B1, sheet2.
Sô liệu kết quả lưu tại sheet1.
---
Ngày tháng trong file là để ở dạng text nên phải nhập đúng mới chạy

Xin

quá ngon bác ơi, siêu cao thủ có ăn có học có khác , đùa chứ món liên quan đến toán với code này đúng là thông minh mới làm được, e nhìn hoa hết cả mắt không hiểu gì , làm thế nào để gửi bác cốc caffe được bác nhỉ?

Dùng thử file dưới đây.
Nhập ngày tháng vào B1, sheet2.
Sô liệu kết quả lưu tại sheet1.
---
Ngày tháng trong file là để ở dạng text nên phải nhập đúng mới chạy

quá ngon bác ơi, siêu cao thủ có ăn có học có khác , đùa chứ món liên quan đến toán với code này đúng là thông minh mới làm được, e nhìn hoa hết cả mắt không hiểu gì , làm thế nào để gửi bác cốc caffe được bác nhỉ?

Xin chào! Em cũng đang tập tành về cái này nên muốn hỏi làm sao để cập nhật trực tuyến được theo ngày vậy ạ? Em cập nhật thì toàn loading chứ ko ra kq được ạ. Mong được chỉ giáo!!!