Trước nay cứ tưởng cho trùng
Thì 45 số từ 1 tới 45, còn đưa gì thêm nữa?
Khác lượt/ván mới cho trùng bạn ơi.
Chơi bao có vẻ dể trúng, chơi bao vài năm không thắng thì bán nhà cũng đủ trả nợ
Nếu chỉ có 45 số thì thử cái cùi bắp này:
Sub SauSoKhongTrungTrong45So()
Dim J As Integer, Tmp As Integer
Dim MyNum As String, DapAn As String
For J = 1 To 45
If J Mod 2 Then
MyNum = MyNum & Right("0" & CStr(J), 2)
Else
MyNum = Right("0" & CStr(J), 2) & MyNum & ""
End If
Next J
Randomize
For J = 1 To 6
Tmp = 13 + 7 * Rnd() \ 1
If Tmp Mod 2 = 0 Then Tmp = Tmp + 1
DapAn = Mid(MyNum, Tmp, 2) & "; " & DapAn
MyNum = Mid(MyNum, Tmp + 2, Len(MyNum)) & Left(MyNum, Tmp - 1)
Next J
[D65500].End(xlUp).Offset(1).Value = DapAn
End SubNói như bài #7 hữu lý hơn. Ai có nhà thì bán nhà, không có thì bán vợ đợ con.
Không có vợ con thì bán chổi cùn rế rách, không có chổi cùn rế rách thì sống chui lủi trốn xã hội đen ...
Đây là sự cùng đường mà. Rằng đã mất tất cả những cái có giá trị trong cuộc sống. Không còn gì để bán, để nhượng, chỉ còn cái chổi cùn để bấu víu vào nó và nuôi hi vọng ...................................hão huyền.
Lúc ấy thì nội tạng đã bán từ lâu rồi, đào đâu ra nội tạng mới để bán tiếp.
Function BanLH()
' generates an array of random numbers 1-45
' array size equals the number of cells chosen
' NB. should be entered as an array formula
Const TOTNUM = 45
Dim a(1 To TOTNUM) As Integer
Dim b() As Integer, i As Integer, num As Integer
ReDim b(1 To Application.Caller.CurrentArray.count)
Randomize
For i = 1 To UBound(b)
num = Int((TOTNUM - i + 1) * Rnd + i)
b(i) = IIf(a(num), a(num), num)
a(num) = i
Next i
BanLH = b
End FunctionFunction ChoiLoTo_BanNha()
'Chon 1 dong nhieu cot, nhap "=ChoiLoTo_BanNha()" Ctrl+Shift+Enter
Dim Arr() As Long, Res() As String
Dim i&, j&, k&, RndNum&, sRow&, sCol&
Const MaxNum = 45
Randomize
Application.Volatile
sCol = Application.Caller.CurrentArray.Count
ReDim Res(1 To sCol)
ReDim Arr(1 To MaxNum)
Do
RndNum = Int(MaxNum * Rnd() + 1)
If Arr(RndNum) = 0 Then Arr(RndNum) = 1: k = k + 1
Loop Until k = sCol
k = 0
For j = 1 To MaxNum
If Arr(j) = 1 Then
k = k + 1
Res(k) = Format(j, "00")
End If
Next j
ChoiLoTo_BanNha = Res
End Function
