VBA สุ่มตัวเลข+บันทึกข้อมูล ครับ

[Xcelvba]

สุ่มตัวเลขด้วย VBA ในช่อง M6 แล้ว (ทำได้แล้วครับ)
อยากให้บันทึกข้อมูลหลังสุ่มเสร็จ แล้ว ถ้าเจอตัวเลขซ้ำให้สุ่มใหม่ครับ

1.บันทึกข้อมูล ในช่อง N9:N44 โดยจะบันทึกเองทุกครั้งหลังจาก กดสุ่มตัวเลข เริ่มจาก N9 แต่ code ที่เขียนมา เวลาสุ่มเสร็จตัวเลข ไม่ตรงกับที่หยุดสุ่มครับ
2.เมื่อบันทึกแล้วในช่อง N9 เวลากดสุ่มใหม่ ถ้าตัวเลขช่อง M6 ตรงกับช่อง N9 แล้วให้สุ่มตัวเลขใหม่ครับ
3.เมื่อ N9 มีตัวเลขแล้ว เมื่อสุ่มเสร็จให้บันทึกในช่องถัดไป N10
4.วนทำแบบนี้เรื่อยๆ จนครบ ที่ N44 ครับ

Code: Select all

Sub random()
    Dim i As Integer
    
        For i = 1 To 500

    Calculate
    
     
    Next i
    
  
  
  If Range("N9").Value = "" Then
  
    Range("N9").Value = Range("M6").Value
    
    Else: Range("N10").Value = Range("M7").Value
    
    End If
End Sub

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub random()
'    Dim i As Integer
'
'        For i = 1 To 500
'
'    Calculate
'
'
'    Next i
'
'
'
'  If Range("N9").Value = "" Then
'
'    Range("N9").Value = Range("M6").Value
'
'    Else: Range("N10").Value = Range("M7").Value
'
'    End If
    Dim s As Range, t As Range
    With ActiveSheet
        Set s = .Range("m6")
        Set t = .Range("m9", .Range("m" & .Rows.Count).End(xlUp)).Offset(0, 1)
        s.Value = Int(Rnd() * 100 + 1)
        Do While Application.CountIfs(t, s.Value) > 1
            s.Value = Int(Rnd() * 100 + 1)
        Loop
        If .Range("n9").Value = "" Then
            .Range("n9").Value = s.Value
        Else
            .Range("n" & .Rows.Count).End(xlUp).Offset(1, 0).Value = s.Value
        End If
    End With
End Sub

[Xcelvba]

ตัวอย่างการปรับ Code ครับ

ขอบคุณครับ อ. สอบถาม เพิ่มเติมครับ
1.ถ้าอยากให้เลข สุ่ม หมุนนานๆ หน่อยครับ แล้วจึงหยุด
2.ไม่อยากให้มีเลขซ้ำกันระหว่าง M6 กับคอลัมน์ N ครับ ถ้าเจอเลขซ้ำกันใน คอลลัมน์ N ให้ ช่อง M6 หมุนใหม่ครับ

ตัวอย่างครับ สุ่มครั้งที่ 1 > M6 สุ่มแล้วมีค่า = 7 จากนั้นจะบันทึกลงในช่อง N9 = 7
สุ่มครั้งที่ 2 > พอกดสุ่มใหม่ M6 จะสุ่มค่าใหม่ ถ้าครั้งแรกเจอเลข 7 ให้ช่อง M6 สุ่มใหม่จนกว่าจะไม่ใช่เลข 7 สมมุติเลข 8 แล้วบันทึกลง N10 = 8
สุ่มครั้งที่ 3 > กดสุ่มใหม่ถ้า M6 มีค่า = 7 (N9) หรือ 8 (N10) ให้ M6 สุ่มใหม่ (re-roll) จนกว่าจะได้เลขสุ่มที่ ไม่ใช่ 7 และ8
ทำแบบนี้ไปเรื่อยๆครับ ขอบคุณครับ

[snasui]

1.ถ้าอยากให้เลข สุ่ม หมุนนานๆ หน่อยครับ แล้วจึงหยุด

กรุณาเขียนมาเองก่อน ติดตรงไหนค่อยถามกันต่อครับ

2.ไม่อยากให้มีเลขซ้ำกันระหว่าง M6 กับคอลัมน์ N ครับ ถ้าเจอเลขซ้ำกันใน คอลลัมน์ N ให้ ช่อง M6 หมุนใหม่ครับ

ตัวอย่างครับ สุ่มครั้งที่ 1 > M6 สุ่มแล้วมีค่า = 7 จากนั้นจะบันทึกลงในช่อง N9 = 7
สุ่มครั้งที่ 2 > พอกดสุ่มใหม่ M6 จะสุ่มค่าใหม่ ถ้าครั้งแรกเจอเลข 7 ให้ช่อง M6 สุ่มใหม่จนกว่าจะไม่ใช่เลข 7 สมมุติเลข 8 แล้วบันทึกลง N10 = 8
สุ่มครั้งที่ 3 > กดสุ่มใหม่ถ้า M6 มีค่า = 7 (N9) หรือ 8 (N10) ให้ M6 สุ่มใหม่ (re-roll) จนกว่าจะได้เลขสุ่มที่ ไม่ใช่ 7 และ8

สิ่งที่ผมตอบไปในโพสต์ก่อนหน้าทำได้ตามนี้อยู่แล้วครับ

[Xcelvba]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub random()
'    Dim i As Integer
'
'        For i = 1 To 500
'
'    Calculate
'
'
'    Next i
'
'
'
'  If Range("N9").Value = "" Then
'
'    Range("N9").Value = Range("M6").Value
'
'    Else: Range("N10").Value = Range("M7").Value
'
'    End If
    Dim s As Range, t As Range
    With ActiveSheet
        Set s = .Range("m6")
        Set t = .Range("m9", .Range("m" & .Rows.Count).End(xlUp)).Offset(0, 1)
        s.Value = Int(Rnd() * 100 + 1)
        Do While Application.CountIfs(t, s.Value) > 1
            s.Value = Int(Rnd() * 100 + 1)
        Loop
        If .Range("n9").Value = "" Then
            .Range("n9").Value = s.Value
        Else
            .Range("n" & .Rows.Count).End(xlUp).Offset(1, 0).Value = s.Value
        End If
    End With
End Sub

ผมทดสอบแล้ว ค่าที่ สุ่มมา ยังซ้ำกันอยู่ครับจากที่ อาจารย์ครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub random()

    Dim s As Range, t As Range
    With ActiveSheet
        Set s = .Range("m6")
        Set t = .Range("m9", .Range("m" & .Rows.Count).End(xlUp)).Offset(0, 1)
        s.Value = Int(Rnd() * 100 + 1)
        If .Range("n9").Value = "" Then
            .Range("n9").Value = s.Value
        Else
            .Range("n" & .Rows.Count).End(xlUp).Offset(1, 0).Value = s.Value
        End If
        Do While Application.CountIfs(t, s.Value) > 1
            s.Value = Int(Rnd() * 100 + 1)
            .Range("n" & .Rows.Count).End(xlUp).Value = s.Value
        Loop
    End With
End Sub

[Xcelvba]

ตัวอย่างการปรับ Code ครับ

ได้แล้วครับ อ. ขอบคุณครับ ในส่วนอื่นๆ เดี๋ยวผมจะลองเขียนเพิ่มด้วยตัวเองก่อนติดตรงไหนจะมาถามใหม่ ขอบคุณครับ อาจารย์