Theo dõi kết quả xổ số! (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

cái đó em dùng hàm counif ok rồi anh, mỗi lần có kết quả e copy cái bảng kết quả vào sheet2 là tự động hiện kết quả ở ô P của sheet1, cái e cần là e có tin nhắn khách nhắn tới vd: lo 27 70 54 06 19 76x20 87 64x10 84 18x60 38 34 63 16x40 83 71 29 40x30 37 40 58 72 25 52x10 37x40 83x25 45 38 37 36 27x15 35 25 23 20 17x5 12 13 23 21 43 33 31 34x20 96 97 92 86x10 52 59 58 69 72 74 51x10 (thì các dữ liệu này nó tự tách chuỗi và nhảy vào ô tương ứng hoặc chúng tự cộng lại với nhau ra tổng là được ạ.

kiểu như file link youtube này anh nè:
Xem link trên lâu lắm.
Nếu muốn tách số liệu khách hàng thì chuỗi tin nhắn bạn để chỗ nào?
Trong file có thấy tin nhắn nào để tách đâu bạn.
 
Xem link trên lâu lắm.
Nếu muốn tách số liệu khách hàng thì chuỗi tin nhắn bạn để chỗ nào?
Trong file có thấy tin nhắn nào để tách đâu bạn.
tin nhắn dạng như thế này ạ, anh thử đưa vào giúp em xem được không ạ vd: lo 27 70 54 06 19 76x20 87 64x10 84 18x60 38 34 63 16x40 83 71 29 40x30 37 40 58 72 25 52x10 37x40 83x25 45 38 37 36 27x15 35 25 23 20 17x5 12 13 23 21 43 33 31 34x20 96 97 92 86x10 52 59 58 69 72 74 51x10
 
tin nhắn dạng như thế này ạ, anh thử đưa vào giúp em xem được không ạ vd: lo 27 70 54 06 19 76x20 87 64x10 84 18x60 38 34 63 16x40 83 71 29 40x30 37 40 58 72 25 52x10 37x40 83x25 45 38 37 36 27x15 35 25 23 20 17x5 12 13 23 21 43 33 31 34x20 96 97 92 86x10 52 59 58 69 72 74 51x10
Bạn điền tin nhắn vào sheet "tinnhan". Số liệu tại cột A, bắt đầu từ A1, điền liên tục xuống dưới.
Chạy sub tachTinnhan: nhấn alt+F8+enter --> xem kết quả bên sheet thongke
---
Không có mẫu tin nhắn lỗi nên chưa xử lý trường hợp này
 

File đính kèm

Bạn điền tin nhắn vào sheet "tinnhan". Số liệu tại cột A, bắt đầu từ A1, điền liên tục xuống dưới.
Chạy sub tachTinnhan: nhấn alt+F8+enter --> xem kết quả bên sheet thongke
---
Không có mẫu tin nhắn lỗi nên chưa xử lý trường hợp này
cảm ơn anh nhiều, nó quá tuyệt vời :D, tuy nhiên khi e chỉ để 1 hàng a1 thôi thì nó báo lỗi, ctrl + d hàng thứ 2 để 2 hàng giống nhau thì vẫn ok, tuy nhiên khi em thêm số hoặc bớt số hình như nó không hoạt động đúng, với bên sheet thống kê, cột số điểm anh để giúp em khoảng 30 cột, phòng sau này số lượng nhiều ạ, gần ok rồi e cảm ơn anh nhiều lắm luôn ạ.
 
cảm ơn anh nhiều, nó quá tuyệt vời :D, tuy nhiên khi e chỉ để 1 hàng a1 thôi thì nó báo lỗi, ctrl + d hàng thứ 2 để 2 hàng giống nhau thì vẫn ok, tuy nhiên khi em thêm số hoặc bớt số hình như nó không hoạt động đúng, với bên sheet thống kê, cột số điểm anh để giúp em khoảng 30 cột, phòng sau này số lượng nhiều ạ, gần ok rồi e cảm ơn anh nhiều lắm luôn ạ.
Thêm cột thì không vấn đề.
Việc xử lý lỗi thêm số, bạn gửi file lên cho cụ thể, để xử lý 1 thể
 
theo e thấy thì, dãy số: lo 27 70 54 06 19 76x20 đúng hàng 76 bên sheet thongke là nhận giá trị 20, còn các số còn lại không nhận giá trị 20, cụ thể là các hàng 27, 70, 54, 06, 19, e không thấy giá trị 20, nếu có thể thì có thể thay đổi mẫu tin nhắn thành dạng lo 27,70,54,06,19,76x20 cũng được anh e vào excel ctrl +f replace thay khoảng trống = dấu "," cũng nhanh
 
theo e thấy thì, dãy số: lo 27 70 54 06 19 76x20 đúng hàng 76 bên sheet thongke là nhận giá trị 20, còn các số còn lại không nhận giá trị 20, cụ thể là các hàng 27, 70, 54, 06, 19, e không thấy giá trị 20, nếu có thể thì có thể thay đổi mẫu tin nhắn thành dạng lo 27,70,54,06,19,76x20 cũng được anh e vào excel ctrl +f replace thay khoảng trống = dấu "," cũng nhanh
Kiểm tra lại file dưới đây.
Dãy số vẫn dùng khoảng trắng làm dấu phân cách
 

File đính kèm

File đính kèm

đây em gửi lại anh số liệu chuẩn nếu đúng tổng điểm đánh 69,330 tổng điểm trúng 27,470 là đúng
Điểm đánh đúng.
Tổng điểm trúng chưa đúng, có lẽ do hàm countif() tại cột "BB". Tổng thực tế phải = 27, tổng cột BB = 24. Cái này để lát xem lại.

---
Số cột của "Số điểm" trong file đính kèm là 50 cột
---
Copy công thức dưới đây vào cột BB
Mã:
BB2=COUNTIF(kqxs!$E$2:$N$19,$A2)
Tổng điểm trúng = 20035
 

File đính kèm

Lần chỉnh sửa cuối:
Điểm đánh đúng.
Tổng điểm trúng chưa đúng, có lẽ do hàm countif() tại cột "BB". Tổng thực tế phải = 27, tổng cột BB = 24. Cái này để lát xem lại.

---
Số cột của "Số điểm" trong file đính kèm là 50 cột
---
Copy công thức dưới đây vào cột BB
Mã:
BB2=COUNTIF(kqxs!$E$2:$N$19,$A2)
Tổng điểm trúng = 20035
bác ơi chuẩn đét rồi, e cảm ơn bác nhiều lắm, bác inbox cho em xin số điện thoại em gửi bác cái thẻ điện thoại gọi là biết ơn ạ.
 
bác @CHAOQUAY ơi, có bài toán ngược lại, là lấy các hàng có giá trị giống nhau x giá trị đó: ví dụ hàng 20: có giá trị 10 hàng 21 có giá trị 10, hàng 22 có giá trị 10 chuyển thành 20 21 22x10 có được không anh?
 
bác @CHAOQUAY ơi, có bài toán ngược lại, là lấy các hàng có giá trị giống nhau x giá trị đó: ví dụ hàng 20: có giá trị 10 hàng 21 có giá trị 10, hàng 22 có giá trị 10 chuyển thành 20 21 22x10 có được không anh?
Được bạn, nhưng mà tất cả các số 10 điểm sẽ bị ghép chung hay thế nào
 
Bạn chạy macro "gom_theo_diem"
Giờ em mới vào xem, lời đầu e xin cảm ơn vị sự nhiệt tình của bác, về vấn đề e đề cập là ngược lại với bước mình tách tin nhắn, nghĩa là mình có bảng số ở sheet kết quả giờ gộp ngược lại thành dạng tin nhắn như ở bên sheet tin nhắn trước khi mình tách, tuy nhiên em xem cái bảng tổng hợp theo điểm, e thật sự ngạc nhiên, ý tưởng của bác quá tuyệt vời, điều này là rất cần thiết mà e chưa nghĩ ra nó hay đến vậy, e ngưỡng mộ bác quá đi, bảng tổng hợp theo điểm của bác nó thật sự là 1 ý tưởng chuyên nghiệp của người thống kê. e cảm ơn bác nhiều nhiều lắm, giờ mà thêm được vụ tạo cơ sở dữ liệu cho từng người chơi, cần truy xuất lịch sử chỉ cần có 1 box gọi tên và ngày là ra kết quả thống kê của người chơi đó, tất cả gói gọn trong 1 file thì tuyệt vời, thường giờ mỗi ngày mỗi người chơi e phải làm 1 file, khá rối và khó quản lý. e cảm ơn bác nhiều nhé, chúc bác sức khỏe và thành công trong công việc, skill lập trình excel và code ngày càng pro. thanks......
 
Giờ em mới vào xem, lời đầu e xin cảm ơn vị sự nhiệt tình của bác, về vấn đề e đề cập là ngược lại với bước mình tách tin nhắn, nghĩa là mình có bảng số ở sheet kết quả giờ gộp ngược lại thành dạng tin nhắn như ở bên sheet tin nhắn trước khi mình tách, tuy nhiên em xem cái bảng tổng hợp theo điểm, e thật sự ngạc nhiên, ý tưởng của bác quá tuyệt vời, điều này là rất cần thiết mà e chưa nghĩ ra nó hay đến vậy, e ngưỡng mộ bác quá đi, bảng tổng hợp theo điểm của bác nó thật sự là 1 ý tưởng chuyên nghiệp của người thống kê. e cảm ơn bác nhiều nhiều lắm, giờ mà thêm được vụ tạo cơ sở dữ liệu cho từng người chơi, cần truy xuất lịch sử chỉ cần có 1 box gọi tên và ngày là ra kết quả thống kê của người chơi đó, tất cả gói gọn trong 1 file thì tuyệt vời, thường giờ mỗi ngày mỗi người chơi e phải làm 1 file, khá rối và khó quản lý. e cảm ơn bác nhiều nhé, chúc bác sức khỏe và thành công trong công việc, skill lập trình excel và code ngày càng pro. Cảm ơn......
Phần tô đậm bạn cần có file dữ liệu mới làm được.
 
Phần tô đậm bạn cần có file dữ liệu mới làm được.
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 ạ.

Nhaplieu.png
 
Lần chỉnh sửa cuối:
Phần tô đậm bạn cần có file dữ liệu mới làm được.
Bác ơi, em lại phiền bác lần nữa giúp em vụ này nữa là ok, bác code giúp em vụ lô xiên sao cho tin nhắn định dạng: xien2 23 54x500 xien3 32 23 33x200 xien4 44 55 66 77x1000 => sao cho code nhận dạng được: xiên 2 có 2 số đánh sẽ nhảy vào ô 1 và ô 2 trong bảng xiên 2, số điểm đánh thì nhảy sang ô điểm bên cạnh, xiên 3 thì đưa 3 số đó vào ô 1,2,3 trong bảng xiên 3 số điểm đánh nhảy sang ô bên cạnh, xiên 4 thì 4 số đánh nhảy vào ô 1,2,3,4 trong bảng xiên 4 số điểm đánh nhảy sang ô điểm bên cạnh. e cảm ơn bác nhiều ạ.
 

File đính kèm

Bác ơi, em lại phiền bác lần nữa giúp em vụ này nữa là ok, bác code giúp em vụ lô xiên sao cho tin nhắn định dạng: xien2 23 54x500 xien3 32 23 33x200 xien4 44 55 66 77x1000 => sao cho code nhận dạng được: xiên 2 có 2 số đánh sẽ nhảy vào ô 1 và ô 2 trong bảng xiên 2, số điểm đánh thì nhảy sang ô điểm bên cạnh, xiên 3 thì đưa 3 số đó vào ô 1,2,3 trong bảng xiên 3 số điểm đánh nhảy sang ô bên cạnh, xiên 4 thì 4 số đánh nhảy vào ô 1,2,3,4 trong bảng xiên 4 số điểm đánh nhảy sang ô điểm bên cạnh. e cảm ơn bác nhiều ạ.
Có lẽ bạn tập hợp các yêu cầu lại rồi làm 1 thể.
Nghe nói còn có xiên quay nữa thì phải :D:D
 
Có lẽ bạn tập hợp các yêu cầu lại rồi làm 1 thể.
Nghe nói còn có xiên quay nữa thì phải :D:D
Xiên quay thực ra nó tách ra thành xiên thường thôi ạ, ví dụ: 121 = 12 21 11, cái này ko cần đâu ạ, e làm thủ công cũng được cho đỡ phức tạp, với code tách tin nhắn lô của anh hôm trước e có áp dụng thành tách số đề cũng ok rồi ạ, nếu nhận dạng thêm được chuỗi tin nhắn đó có thêm dạng vd: dau0x10 = 00 01 02 03 04 05 06 07 08 09x10
Vd2: dit2x20 = 02 12 22 32 42 52 62 72 82 92x20
Nếu khó quá thì bỏ qua e nhập thủ công cũng được ạ,
A làm giúp e vụ lô xiên là ok quá rồi ạ. E cảm ơn anh nhiều.
 
Bác ơi, em lại phiền bác lần nữa giúp em vụ này nữa là ok, bác code giúp em vụ lô xiên sao cho tin nhắn định dạng: xien2 23 54x500 xien3 32 23 33x200 xien4 44 55 66 77x1000 => sao cho code nhận dạng được: xiên 2 có 2 số đánh sẽ nhảy vào ô 1 và ô 2 trong bảng xiên 2, số điểm đánh thì nhảy sang ô điểm bên cạnh, xiên 3 thì đưa 3 số đó vào ô 1,2,3 trong bảng xiên 3 số điểm đánh nhảy sang ô bên cạnh, xiên 4 thì 4 số đánh nhảy vào ô 1,2,3,4 trong bảng xiên 4 số điểm đánh nhảy sang ô điểm bên cạnh. e cảm ơn bác nhiều ạ.
Bạn thử file này
 

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
Cái này tìm đâu ra hay vậy bạn.
Đã điều chỉnh lại, bạn chạy thử xem thế nào
 

File đính kèm

Cái này tìm đâu ra hay vậy bạn.
Đã điều chỉnh lại, bạn chạy thử xem thế nào
e vừa chạy thử file thì bị lỗi mất hết số 0 ở đầu. chắc không phải định dạng text nên bị mất số 0 ở đầu số khác. nhân tiện bác ChaoQuay giúp e xóa space giữa các số trong file này giúp e dc ko ah. e đã thử replace và subtitude mà ko dc. cảm ơn bác nhiều
 

File đính kèm

e vừa chạy thử file thì bị lỗi mất hết số 0 ở đầu. chắc không phải định dạng text nên bị mất số 0 ở đầu số khác. nhân tiện bác ChaoQuay giúp e xóa space giữa các số trong file này giúp e dc ko ah. e đã thử replace và subtitude mà ko dc. cảm ơn bác nhiều
Mã:
=SUBSTITUTE(A1,CHAR(160),"")
Cái này là xổ số gì thế bạn
 
Cái này tìm đâu ra hay vậy bạn.
Đã điều chỉnh lại, bạn chạy thử xem thế nào
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
 

File đính kèm

  • z2012928060110_bf75abbcad2571f46a72746c65890c21.png
    z2012928060110_bf75abbcad2571f46a72746c65890c21.png
    20.6 KB · Đọc: 30
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

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

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

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

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

File đính kèm

  • 6ca3841edbab27f57eba.png
    6ca3841edbab27f57eba.png
    13.3 KB · Đọc: 67
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.
 

File đính kèm

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é :D:D:D
---
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
 
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é :D:D:D
---
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.
 
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?
---
 
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 đó ạ.
 
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
 

File đính kèm

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 :D, đù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ì :D , làm thế nào để gửi bác cốc caffe được bác nhỉ?
 
quá ngon bác ơi, siêu cao thủ có ăn có học có khác :D, đù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ì :D , 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 :D:D:D

Thân chào!
 
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ờ.
 
đề 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.
 
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
 
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
 
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.
 
quá ngon bác ơi, siêu cao thủ có ăn có học có khác :D, đù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ì :D , 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 :D, đù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ì :D , 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 :D, đù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ì :D , 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!!!
 
...
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!!!
Thế nào cũng phải "ra", nhanh chậm chủ yếu là do chất lượng kết nối thế nào thôi bạn
 
chào mọi người,vì có tính tò mò nên mình được bác GOOGLE dẫn đến đây!.
 
bác là chủ đề đó à? khai mau ko em báo CA giờ.
có thằng bạn nó nhờ e làm cái file excel cho nó, nhưng e thôi rồi bác, e mà làm chủ thì e cũng đi mua luôn phần mềm rồi, mất công chi cho nó khổ, căn bản cũng thích nghịch ngợm nữa hihi.
 
Lần chỉnh sửa cuối:
Algetlam001 đã viết:
...
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!!!

trước bác chaoquay làm ok rồi, mà mới đây web chủ nó lại đổi layout hay sao ý hôm nay mình vào thử thì thấy lại bị lỗi rồi
 

File đính kèm

bác chaoquay giúp mình cái file này với. mỗi khi cập nhật dữ liệu thì mỗi hôm nó lệch một dòng, nên các số ở giải trên bảngnó lệch theo. Bác làm thế nào giúp mình với
Bạn xem thử file đính kèm.
Muốn xem chỗ hiệu chỉnh: chuột phải vào sheet tab "KQMB"--> chọn view code sẽ thấy
 

File đính kèm

Bạn xem thử file đính kèm.
Muốn xem chỗ hiệu chỉnh: chuột phải vào sheet tab "KQMB"--> chọn view code sẽ thấy
Bác chưa hiểu ý mình rồi. Cái code kia mình viết thì mỗi ngay dữ liệu nó lại ở 1 dòng khác nhau, như hôm nay ở dòng 175, mai lại về 174, hôm sau lại lên 177. bác có cách nào giúp mình khi chạy code tìm đến dòng có giải đặc biệt thì nhận dữ liệu ô bên cạnh. Bác xem phần bôi vàng ở trong file, giúp mình với. Mình tậm tịt VBA nên không biết làm sao
 

File đính kèm

Bác chưa hiểu ý mình rồi. Cái code kia mình viết thì mỗi ngay dữ liệu nó lại ở 1 dòng khác nhau, như hôm nay ở dòng 175, mai lại về 174, hôm sau lại lên 177. bác có cách nào giúp mình khi chạy code tìm đến dòng có giải đặc biệt thì nhận dữ liệu ô bên cạnh. Bác xem phần bôi vàng ở trong file, giúp mình với. Mình tậm tịt VBA nên không biết làm sao
đúng rồi bác, chắc đó là lý do mà file bác CHAOQUAY làm hôm trước tới giờ thì bị miss khá nhiều ô, trước đó khoảng nửa tháng chạy vẫn rất chuẩn.
Bài đã được tự động gộp:

Giờ bạn đã sửa được chưa
e chưa bác, chắc lý do nó miss ô giống bác trên nói.
 
Bác chưa hiểu ý mình rồi. Cái code kia mình viết thì mỗi ngay dữ liệu nó lại ở 1 dòng khác nhau, như hôm nay ở dòng 175, mai lại về 174, hôm sau lại lên 177. bác có cách nào giúp mình khi chạy code tìm đến dòng có giải đặc biệt thì nhận dữ liệu ô bên cạnh. Bác xem phần bôi vàng ở trong file, giúp mình với. Mình tậm tịt VBA nên không biết làm sao
Xem file đính kèm.
 

File đính kèm

Đây bạn.
Kết quả miền Bắc từ 1/1/2005 tới 13/6/2020, đã loại bỏ ngày nghỉ tết & dịch COVID19.
Nghe nói có bảng số liệu từ năm 2000 nhưng khoảng từ 2000 tới 2004 mức độ tin cậy không cao nên không thống kê.
Có lẽ 5565 ngày trong file cũng đã là quá đủ.
Bác cho em hỏi bảng của bác chưa lấy tự động được à? Và bác lấy ở trang web nào vậy?
 
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.

Bài đã được tự động gộp:


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.
Em đang chạy thử file này thì bị lỗi luôn từ ngày 26/7 ạ. Thấy 1 số giải chỉ trả về kết quả 0000.
 
quá thú zị ạ ! thank các tiền bối !
 

Bài viết mới nhất

Back
Top Bottom