Số ngẫu nhiên trong hàng không trùng nhau

hiénlinh197 · 12/4/19

Nhờ các bạn viết giúp code như file đính kèm
Xin cảm ơn các bạn

Ba Tê · 12/4/19

hiénlinh197 đã viết:
Nhờ các bạn viết giúp code như file đính kèm
Xin cảm ơn các bạn

Bạn chạy thử Sub này:

PHP:

Public Sub sGpe()
Dim I As Long, J As Long, N As Long, X As Long
With CreateObject("Scripting.Dictionary")
    For J = 2 To 16 Step 7
        ReDim Arr(1 To 10, 1 To 6)
        For I = 1 To 10
            .RemoveAll
            For N = 1 To 6
                Do
                    X = Int(Rnd() * 9 + 1)
                    If Not .Exists(X) Then
                        .Item(X) = ""
                        Arr(I, N) = X
                        Exit Do
                    End If
                Loop
            Next N
        Next I
        Cells(4, J).Resize(10, 6) = Arr
    Next J
End With
End Sub

hiénlinh197 · 12/4/19

Ba Tê đã viết:

Bạn chạy thử Sub này:

PHP:

Public Sub sGpe()
Dim I As Long, J As Long, N As Long, X As Long
With CreateObject("Scripting.Dictionary")
    For J = 2 To 16 Step 7
        ReDim Arr(1 To 10, 1 To 6)
        For I = 1 To 10
            .RemoveAll
            For N = 1 To 6
                Do
                    X = Int(Rnd() * 9 + 1)
                    If Not .Exists(X) Then
                        .Item(X) = ""
                        Arr(I, N) = X
                        Exit Do
                    End If
                Loop
            Next N
        Next I
        Cells(4, J).Resize(10, 6) = Arr
    Next J
End With
End Sub

Cảm ơn bạn @Ba Tê code chạy được rồi
chúc bạn luôn lôn vui và có nhiều thành công may mắn

hiénlinh197 · 12/4/19

Ba Tê đã viết:

Bạn chạy thử Sub này:

PHP:

Public Sub sGpe()
Dim I As Long, J As Long, N As Long, X As Long
With CreateObject("Scripting.Dictionary")
    For J = 2 To 16 Step 7
        ReDim Arr(1 To 10, 1 To 6)
        For I = 1 To 10
            .RemoveAll
            For N = 1 To 6
                Do
                    X = Int(Rnd() * 9 + 1)
                    If Not .Exists(X) Then
                        .Item(X) = ""
                        Arr(I, N) = X
                        Exit Do
                    End If
                Loop
            Next N
        Next I
        Cells(4, J).Resize(10, 6) = Arr
    Next J
End With
End Sub

Bạn @Ba Tê sửa giúp mình là các số tự nhiên từ (0-9)
Hiện nay không thấy xuất hiện so "0" trong các dãy số
Cảm ơn bạn.

snow25 · 12/4/19

hiénlinh197 đã viết:
Bạn @Ba Tê sửa giúp mình là các số tự nhiên từ (0-9)
Hiện nay không thấy xuất hiện so "0" trong các dãy số
Cảm ơn bạn.

Bạn sửa chỗ này xem

Mã:

X = Int(Rnd() * 9 + 1) thành

Mã:

X = Int(Rnd() * 9)

Phuocam · 12/4/19

snow25 đã viết:
Bạn sửa chỗ này xem
X = Int(Rnd() * 9)

Sửa vậy, mất số 9.

hiénlinh197 · 12/4/19

phuocam đã viết:
Sửa vậy, mất số 9.

Vâng đúng rồi bạn. nếu sửa như bạn @snow25 thì lại mất số 9

Phuocam · 12/4/19

Sửa vậy:

X = Int(Rnd() * 10)

hiénlinh197 · 12/4/19

phuocam đã viết:
Sửa vậy:

X = Int(Rnd() * 10)

Cảm ơn bạn @phuocam được rồi bạn
Mình hỏi thêm là nếu lấy từ (0 đến 4) thì sửa chỗ nào
Cảm ơn bạn!

Phuocam · 12/4/19

Không sửa được, có 6 cột nhưng điền vào 4 số không trùng, kết quả là treo máy luôn!

hiénlinh197 · 12/4/19

phuocam đã viết:
Không sửa được, có 6 cột nhưng điền vào 4 số không trùng, kết quả là treo máy luôn!

Đúng rồi bạn @phuocam , mình sửa toàn bị treo máy
Nhưng mình đã tìm được phương pháp rồi
Cảm ơn Các bạn nhé!

SA_DQ · 12/4/19

Mình hỏi thêm là nếu lấy từ (0 đến 4) thì sửa chỗ nào

Hình như bạn viết thiếu con số 1 (-> 14)
Chứ như bạn viết thì lấy đâu cho đủ kí số cho 1 hàng gồm 6 cột?

hiénlinh197 · 12/4/19

SA_DQ đã viết:
Hình như bạn viết thiếu con số 1 (-> 14)
Chứ như bạn viết thì lấy đâu cho đủ kí số cho 1 hàng gồm 6 cột?

À mình bớt số cột đi bạn @SA_DQ thì mới chạy được

VetMini · 12/4/19

Ba Tê đã viết:

Bạn chạy thử Sub này:

PHP:

Public Sub sGpe()
Dim I As Long, J As Long, N As Long, X As Long
With CreateObject("Scripting.Dictionary")
    For J = 2 To 16 Step 7
        ReDim Arr(1 To 10, 1 To 6)
        For I = 1 To 10
            .RemoveAll
            For N = 1 To 6
                Do
                    X = Int(Rnd() * 9 + 1)
                    If Not .Exists(X) Then
                        .Item(X) = ""
                        Arr(I, N) = X
                        Exit Do
                    End If
                Loop
            Next N
        Next I
        Cells(4, J).Resize(10, 6) = Arr
    Next J
End With
End Sub

1. Code không sử dụng Randomize, nó sẽ dùng ngẫu nhiên định chế (pseudo-random). Tức là mõi lần cvhayj, ra kết quả in hệt nhau.
2. Chỉ có mấy số quèn, bạn dùng Array hiệu quả hơn.
Dim D(0 To 9) As Boolean
...
For I = 1 To 10
Erase D
...
If Not D(X) Then
D(X) = True
...
Dictionary tuy rất mạnh nhưng nó vẫn phải hash cái key và tra/ghi bảng. Array dùng chỉ số trực tiếp.

phuocam đã viết:
Sửa vậy:

X = Int(Rnd() * 10)

Trong VBA, bạn nên làm quen với hàm Fix. Hàm này dùng để cắt bỏ số lẻ an toàn hơn Int.

hiénlinh197 · 12/4/19

VetMini đã viết:
1. Code không sử dụng Randomize, nó sẽ dùng ngẫu nhiên định chế (pseudo-random). Tức là mõi lần cvhayj, ra kết quả in hệt nhau.
2. Chỉ có mấy số quèn, bạn dùng Array hiệu quả hơn.
Dim D(0 To 9) As Boolean
...
For I = 1 To 10
Erase D
...
If Not D(X) Then
D(X) = True
...
Dictionary tuy rất mạnh nhưng nó vẫn phải hash cái key và tra/ghi bảng. Array dùng chỉ số trực tiếp.

Trong VBA, bạn nên làm quen với hàm Fix. Hàm này dùng để cắt bỏ số lẻ an toàn hơn Int.

Nhờ bạn @VetMini viết thành code dùng mình nhé
xin cảm ơn!

snow25 · 12/4/19

hiénlinh197 đã viết:
Nhờ bạn @VetMini viết thành code dùng mình nhé
xin cảm ơn!

Đây bạn xem.Code của bác @VetMini

Mã:

Public Sub sGpe()
Dim I As Long, J As Long, N As Long, X As Long, D(0 To 9) As Boolean
    For J = 2 To 16 Step 7
        ReDim arr(1 To 10, 1 To 6)
        For I = 1 To 10
           Erase D
            For N = 1 To 6
                Do
                    X = Int(Rnd() * 10)
                    If D(X) = False Then
                        D(X) = True
                        arr(I, N) = X
                        Exit Do
                    End If
                Loop
            Next N
        Next I
        Cells(4, J).Resize(10, 6) = arr
    Next J
End Sub

VetMini · 12/4/19

snow25 đã viết:

Đây bạn xem.Code của bác @VetMini

Mã:

Public Sub sGpe()
Dim I As Long, J As Long, N As Long, X As Long, D(0 To 9) As Boolean
    For J = 2 To 16 Step 7
        ReDim arr(1 To 10, 1 To 6)
        For I = 1 To 10
           Erase D
            For N = 1 To 6
                Do
                    X = Int(Rnd() * 10)
                    If D(X) = False Then
                        D(X) = True
                        arr(I, N) = X
                        Exit Do
                    End If
                Loop
            Next N
        Next I
        Cells(4, J).Resize(10, 6) = arr
    Next J
End Sub

Tam sao thất bổn rồi.

#Const DEBUGMODE = True

Public Sub sGpe()
#If Not DEBUGMODE Then
Randomize
#End If
...
X = FIX(Rnd() * 10)

hiénlinh197 · 12/4/19

VetMini đã viết:
Tam sao thất bổn rồi.

#Const DEBUGMODE = True

Public Sub sGpe()
#If Not DEBUGMODE Then
Randomize
#End If
...
X = FIX(Rnd() * 10)

Anh @VetMini viết luôn giúp em đi
Thật sự em cũng không biết đúng sai như nào đâu.

Số ngẫu nhiên trong hàng không trùng nhau

Thành viên tiêu biểu

File đính kèm

Cạo Rồi Khỏi Gội

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên gạo cội

Thành viên mới

Thành viên tiêu biểu

Thành viên mới

Thành viên tiêu biểu

Thành viên mới

Thành viên tiêu biểu

/(hông là gì!

Thành viên tiêu biểu

Ăn cùng góc phố

Thành viên tiêu biểu

Thành viên gạo cội

Ăn cùng góc phố

Thành viên tiêu biểu

Facebook

Group