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

CHAOQUAY · 15/8/20

leanhhai1205 đã viết:
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 · 15/8/20

CHAOQUAY đã viết:
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 · 15/8/20

leanhhai1205 đã viết:
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)

Mã:

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 · 15/8/20

CHAOQUAY đã viết:
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)

Mã:

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 · 18/8/20

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

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

leongnam · 22/8/20

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 · 22/8/20

leongnam đã viết:
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é

Mã:

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 · 22/8/20

CHAOQUAY đã viết:

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é

Mã:

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 · 22/8/20

leongnam đã viết:
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 · 23/8/20

CHAOQUAY đã viết:
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 · 23/8/20

leongnam đã viết:
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 · 23/8/20

CHAOQUAY đã viết:
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 · 23/8/20

leongnam đã viết:
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 · 26/8/20

leongnam đã viết:
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 · 26/8/20

phamconghung đã viết:
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 · 27/8/20

CHAOQUAY đã viết:
đề 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 · 27/8/20

leanhhai1205 đã viết:
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 · 27/8/20

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

Mã:

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 · 27/8/20

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

Mã:

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 · 6/9/20

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

leongnam đã viết:
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 đã viết:
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 đã viết:
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!!!

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

Thành viên gắn bó

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên mới

File đính kèm

Thành viên mới

File đính kèm

Thành viên gắn bó

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên gắn bó

File đính kèm

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên mới

Thành viên gắn bó

Thành viên mới

Thành viên mới

Facebook

Group