chưa hiểu ý bác lắm. Hàm randbeetwen là tạo bộ số ngẫu nhiên. Mình thì lại đang thống kê lại các số đã ra.
đây là xổ sổ ko phải cờ bạc. mà xổ sổ thì " ích nước lợi nhà"
Cái này theo chính thống gọi là "lô tô 2 cặp số", dân gian gọi là "xiên đôi" phải không bạn.
xiên đôi là gì vậy bác? nghe như cờ bạc số đề vậy? tui đang thống kê bậc 2-3-4-5-6-7 của xổ số nhanh keno
Trong keno có 80 số, 1 kỳ quay xổ 20 số. Người mua lựa chọn từ 1 số đến 10 số trong 80 số
Xổ số Vietlott là hình thức đánh bạc được nhà nước cấp phép và quản lý đặc biệt, lợi nhuận lớn vì người chơi thua nhiều hơn thắng, càng nghiên cứu cách chơi càng thua nhiều và lại lao vào cơn khát cờ bạc
chuẩn bác. Nhưng suy cho cùng mọi hình thức đầu tư cũng đều rủi ro. Nếu nghiêm túc nghiên cứu thống kê, quan sát, biết kiểm soát trong phạm vi tài chính thì vẫn có thể kiếm được với tỷ suất lợi nhuận không thua kênh đầu tư chứng khoán
Việt nam không chỉ vài cái mà khá nhiều Casino, về luật chính thức cấm người dân Việt đánh bạc, nhưng thực tế làm ngơ giả bộ không biết khá nhiều
sao lại bàn luận về việc hợp pháp hay không hợp pháp nhỉ? Ví dụ: con dao là chỉ là công cụ, dùng nó để gọt trái cây, thái thịt thì nó là công cụ nhà bếp ( hợp pháp). Dùng nó giết người thì bất hợp pháp. Hợp pháp hay bất hợp pháp là ý thức người sử dụng và quan điểm cảu nhà cầm quyền. Còn mình đơn giản chỉ cần thống kê thôi mà nhỉ
Tuy người thua nhiều, nhưng Vietlott là của chính phủ cho nên có thể dùng câu "ích nước lợi nhà". Keno thì khác hẳn.
Bấm nút trong file đính kèm.
Option Explicit
Sub xxx()
Dim Nguon
Dim Thongke, Spt
Dim Tam, Mang0, Mang1, csD
Dim bac, chuky, cap
Dim congSl, ghSl
Dim Kq
Dim rws, i, j, k, x, z, t
With Sheet1
bac = .Range("B3")
chuky = .Range("C3")
cap = .Range("D3")
End With
Spt = 80
ReDim Tam(1 To Spt)
With Sheet2
Thongke = .Range("C2", .Range("C2").End(xlToRight).End(xlDown))
rws = UBound(Thongke)
ReDim Nguon(1 To rws)
For i = 1 To rws
For j = 1 To UBound(Thongke, 2)
Tam(Thongke(i, j)) = Thongke(i, j)
Next j
Nguon(i) = Tam
For j = 1 To Spt
Tam(j) = 0
Next j
Next i
End With
If chuky > rws Or cap = 0 Then
MsgBox "Xem lai chu ky"
Exit Sub
End If
ghSl = cap * bac
With CreateObject("Scripting.Dictionary")
ReDim csD(1 To chuky)
For i = 1 To chuky
csD(1) = i
.Item(.Count) = Array(1, csD, Nguon(i))
Next i
Do While .Count > 0
Thongke = .items
.RemoveAll
t = t + 1
For i = 0 To UBound(Thongke)
k = Thongke(i)(0)
csD = Thongke(i)(1)
Mang0 = Thongke(i)(2)
If csD(k) + 1 <= chuky Then
For j = csD(k) + 1 To chuky
congSl = 0
Mang1 = Nguon(j)
For z = 1 To Spt
If Mang0(z) > 0 And Mang1(z) > 0 Then
congSl = congSl + 1
Tam(z) = z
End If
Next z
If congSl >= ghSl Then
csD(k + 1) = j
.Item(.Count) = Array(k + 1, csD, Tam, congSl)
End If
For z = 1 To Spt
Tam(z) = 0
Next z
Next j
End If
Next i
Loop
End With
ReDim Kq(1 To UBound(Thongke) + 1, 1 To 2)
Sheet1.Range("H3").Resize(rws * rws, UBound(Kq, 2)).Clear
If t > 1 Then
For i = 0 To UBound(Thongke)
k = 0
Mang0 = Thongke(i)(2)
csD = Thongke(i)(1)
Kq(i + 1, 1) = Application.Trim(Join(csD))
Kq(i + 1, 2) = Application.Trim(Replace(Join(Mang0), "0", ""))
Next i
Sheet1.Range("H3").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
Sheet1.UsedRange.Columns.AutoFit
Else
MsgBox "Khong co cap nao"
End If
End Subbác có thể hình dung tôi đang muốn tạo 1 file excel tương tự như thế này nhưng ở dạng đơn giản hơn
Nếu chỉ là thống kê thì không vấn đề gì, có cái là bạn phải làm rõ cách tính thì mới có thể viết được, mỗi người tính 1 cách, để hình dung ra là hơi bị khó.
chỉ là thống kê thôi mà bác. có tính toán gì đâu.
Thống kê có lẽ cũng cần làm rõ là thống kê những thông số nào, thời điểm tính là như thế nào, phạm vi số liệu....
file của bác cũng khá ổn. Có thể chỉnh code thống kê từ kỳ mới nhất đến các kỳ trước đó không ( ngược thời gian), file cũ của tôi lại quên để chạy xuôi theo thời gian. Ví dụ file mới tôi thống kê trong 5 kỳ ( kỳ dòng kỳ 30 đến dòng kỳ 25).
Có lẽ bạn đưa nhầm file, trong file bài trên, vùng tính toán vẫn thế mà bạn.
mình xin địa chỉ email của bạn dc không?
Nếu chỉ là sửa chữa file cũ thì bạn gửi lên đây cho tiện
Gửi bác. cảm ơn bác nhiều nhé.
Bạn đưa cái file cũ của bạn ấy, đừng đưa cái tôi viết, để đối chiếu.
Chào bạn! code của bạn trong quá trình vận hành có lỗi: đối với các số có hàng đơn vị là "0" ví du: 10,20,30,40,50,60,70,80 thì khi chạy code, excel chỉ trả kết quả tương ứng là : 1;2;3;4;5;6;7;8 mà không có hàng đơn vị là "0". Nhờ bạn check lại giúp mình. Thank!
'Tam(j) = 0
Tam(j) = Empty'Tam(z) = 0
Tam(z) = Empty'Kq(i + 1, 2) = Application.Trim(Replace(Join(Mang0), "0", ""))
Kq(i + 1, 2) = Application.Trim(Join(Mang0))Chào bác Chao Quay!
Chào bác Chao Quay!
Em chào bác! e có một số vấn đề muốn hỏi bác trực tiếp: Bác CHAO QUAY có thể cho em xin số điện thoại để tiện liên hệ không ak?
e đã sửa như bác nói mà vẫn thiếu số 0 đằng trước các số từ 01-09 ak! bác giúp em được không ak?
Bạn gửi file thiếu số đó lên cho cụ thể
dạ kính gửi bác ak, em muốn bên sheet kq các số là 00-09 mà ở đây định dạng là 1-9
Mở thớt mới đi bạn
Chào bác ChaoQuay, file excel trước bác viết giúp sau 1 thời gian vận hành hoạt động hay quá. Tuy nhiên, giờ đây tôi muốn đưa file lên googlesheet, Nhờ bác xem có thể viết code lên google sheet được không? Tôi cũng chấp nhận việc trả phí để đưa lên googlesheet. Nếu có thể bác để lại địa chỉ email hoặc zalo để tôi tiện liên hệ được ko? cảm ơn bác
chào bạn. xin thông tin để inbox thêm bạn nhé
lâu rồi không thấy anh trên diễn đàn, anh có số điện thoại không ạ, em có chuyện muốn hỏi Bác chút
