สอบถามการ random โดย VBA

[Thaipichit Pomwong]

ถึงอาจารย์และเพื่อนๆทุกคนครับ

ผมไม่เข้าใจว่าทำไม เมื่อทำการ random แล้วถึงเหลือค่าตัวเลขติดอยู่ 1 ค่าที่ไม่ถูก random ครับ
จะต้องแก้ไขหรือปรับเปลี่ยนตรงไหนอย่างไร รบกวนช่วยดูและแนะนำให้หน่อยนะครับ

การสุ่มตัวเลขBinGO.xlsm

(228.35 KiB) Downloaded 7 times

ตัวอย่าง VBA
Dim r As Range
Sub RandomName()
Dim i As Integer
Dim j As Integer
'Application.OnTime Now() + TimeValue("00:00:1"), "RandomName"
On Error Resume Next
With Worksheets("ÃËÑʵÑÇàÅ¢")
j = .Range("A65536").End(xlUp).Row - 1
i = Int(Rnd * (j - 1) + 1)
Set r = .Cells(i, 1)
End With
r.Copy
With Worksheets("áÊ´§¼Å")
.Range("D3").PasteSpecial xlPasteValues
.Shapes("Button 12").Visible = True
End With
Application.CutCopyMode = False
End Sub

Sub KeepVal()
Dim rs As Range
Dim rt As Range
On Error Resume Next
With Worksheets("áÊ´§¼Å")
Set rs = .Range("D3")
If .Range("Q7") = "" Then
Set rt = .Range("Q7")
Else
Set rt = .Range("Q65536").End(xlUp).Offset(1, 0)
End If
rs.Copy
rt.PasteSpecial xlPasteValues
rt.Offset(0, -1) = rt.Offset(-1, -1) + 1
Application.CutCopyMode = False
r.EntireRow.Delete
rs.Select
End With
Worksheets("áÊ´§¼Å").Shapes("Button 12").Visible = False
End Sub

[snasui]

ช่วยโพสต์ Code ให้แสดงเป็น Code ตามกฎการใช้บอร์ดข้อ 5 ด้านบนด้วยครับ

[Thaipichit Pomwong]

ถึงอาจารย์และเพื่อนๆทุกคนครับ

ผมไม่เข้าใจว่าทำไม เมื่อทำการ random แล้วถึงเหลือค่าตัวเลขติดอยู่ 1 ค่าที่ไม่ถูก random ครับ
จะต้องแก้ไขหรือปรับเปลี่ยนตรงไหนอย่างไร รบกวนช่วยดูและแนะนำให้หน่อยนะครับ
การสุ่มตัวเลขBinGO.xlsm
ตัวอย่าง VBA

Code: Select all

Dim r As Range
Sub RandomName()
Dim i As Integer
Dim j As Integer
'Application.OnTime Now() + TimeValue("00:00:1"), "RandomName"
On Error Resume Next
With Worksheets("ÃËÑʵÑÇàÅ¢")
    j = .Range("A65536").End(xlUp).Row - 1
    i = Int(Rnd * (j - 1) + 1)
    Set r = .Cells(i, 1)
End With
    r.Copy
With Worksheets("áÊ´§¼Å")
    .Range("D3").PasteSpecial xlPasteValues
    .Shapes("Button 12").Visible = True
End With
     Application.CutCopyMode = False
End Sub

Sub KeepVal()
Dim rs As Range
Dim rt As Range
On Error Resume Next
With Worksheets("áÊ´§¼Å")
    Set rs = .Range("D3")
    If .Range("Q7") = "" Then
        Set rt = .Range("Q7")
    Else
        Set rt = .Range("Q65536").End(xlUp).Offset(1, 0)
    End If
    rs.Copy
    rt.PasteSpecial xlPasteValues
    rt.Offset(0, -1) = rt.Offset(-1, -1) + 1
    Application.CutCopyMode = False
    r.EntireRow.Delete
    rs.Select
End With
    Worksheets("áÊ´§¼Å").Shapes("Button 12").Visible = False
End Sub

[Thaipichit Pomwong]

ช่วยโพสต์ Code ให้แสดงเป็น Code ตามกฎการใช้บอร์ดข้อ 5 ด้านบนด้วยครับ

ขอโทษครับ อาจารย์
ผมโพสต์ใหม่แล้วครับผม

ตอนนี้ผมแก้ไข โดยใช้วิธีเพิ่มตัวเลข 100 ใส่เข้าไปอีก 1 แทนครับ

[snasui]

ช่วงเซลล์ในสูตรในชีต IndexRandom ตรงคอลัมน์ E ไม่ครอบคลุมข้อมูลที่ใช้

ที่เซลล์ E2 ควรปรับเป็นด้านล่างครับ

=INDEX($A$2:$A$101,MATCH(ROWS($E$2:E2),$C$2:$C$101,0))

[Thaipichit Pomwong]

ช่วงเซลล์ในสูตรในชีต IndexRandom ตรงคอลัมน์ E ไม่ครอบคลุมข้อมูลที่ใช้

ที่เซลล์ E2 ควรปรับเป็นด้านล่างครับ

=INDEX($A$2:$A$101,MATCH(ROWS($E$2:E2),$C$2:$C$101,0))

ขอบคุณมากครับอาจารย์
ผมลองทดสอบดูแล้ว สามารถสุ่มตัวเลขได้ครบทั้งหมด 100 ตัวเลขครับ
แต่มีข้อสงสัยอย่างหนึ่ง คือไม่ว่าจะทดสอบกี่ครั้ง หมายเลข 100 จะถูกสุ่มเป็นลำดับสุดท้ายในทุกครั้งครับผม
ทำไมถึงเป็นเช่นนั้น ครับ?

[snasui]

ผมกดแป้น F9 แล้วเห็นว่ามีการสุ่มสลับกันตามปกติครับ

หรือจะต้องทดสอบอย่างไร สังเกตตำแหน่งไหน ช่วยให้รายละเอียดเพิ่มเติมมาด้วยครับ

[Thaipichit Pomwong]

ผมกดแป้น F9 แล้วเห็นว่ามีการสุ่มสลับกันตามปกติครับ

หรือจะต้องทดสอบอย่างไร สังเกตตำแหน่งไหน ช่วยให้รายละเอียดเพิ่มเติมมาด้วยครับ

เป็นแบบในภาพครับ อาจารย์
ไม่ว่าจะเริ่มการสุ่มใหม่กี่ครั้ง ลำดับสุดท้ายที่สุ่มจะเป็นหมายเลข 100 ตลอดครับผม
ซึ่งผมว่ามันไม่ถูกต้องตามหลักการสุ่ม ครับ
แต่ผมไม่ทราบว่าจะต้องแก้ไขตรงไหน อย่างไรครับ

[snasui]

เนื่องจากการสุ่มเป็นการสุ่มโดยการ Fixed ตำแหน่งเอาไว้แล้วว่าจะเอาค่าใดมาแสดง

ในพื้นที่ E4:N13 เป็นการนำค่าใน Q7:Q200 มาแสดง และจะแสดงในรูปแบบเดิมเสมอ ช่องที่ 1 แสดงเลข 1 ช่องที่ 2 แสดงเลข 2...จนถึงช่องที่ 100 แสดงเลข 100

ผมไม่เคยศึกษาวิธีการเล่น Bingo ช่วยเล่าว่าต้องการจะให้แสดงผลเช่นไรมาด้วยครับ

[Thaipichit Pomwong]

เนื่องจากการสุ่มเป็นการสุ่มโดยการ Fixed ตำแหน่งเอาไว้แล้วว่าจะเอาค่าใดมาแสดง

ในพื้นที่ E4:N13 เป็นการนำค่าใน Q7:Q200 มาแสดง และจะแสดงในรูปแบบเดิมเสมอ ช่องที่ 1 แสดงเลข 1 ช่องที่ 2 แสดงเลข 2...จนถึงช่องที่ 100 แสดงเลข 100

ผมไม่เคยศึกษาวิธีการเล่น Bingo ช่วยเล่าว่าต้องการจะให้แสดงผลเช่นไรมาด้วยครับ

ครับอาจารย์

แต่โดยหลักการสุ่มแล้ว ไม่ควรเป็นการกำหนดแบบ fix ในทุกครั้งที่เริ่มกดปุ่ม Random
ซึ่งดูจากโค้ด VBA ที่เขียนไว้ ตามข้างล่างนี้ครับ (ที่ผมไม่เข้าใจ ว่าทำไมถึงเป็นหมายเลข 100 ที่เป็นลำดับสุดท้ายเสมอ จากการสุ่มในแต่ละรอบ)

Code: Select all

Sub RandomName()
Dim i As Integer
Dim j As Integer
'Application.OnTime Now() + TimeValue("00:00:05"), "RandomName"
On Error Resume Next
With Worksheets("รหัสตัวเลข")
    j = .Range("A65536").End(xlUp).Row - 1
    i = Int(Rnd * (j - 1) + 1)
    Set r = .Cells(i, 1)
End With
    r.Copy
With Worksheets("แสดงผล")
    .Range("D3").PasteSpecial xlPasteValues
    .Shapes("Button 12").Visible = True
End With
     Application.CutCopyMode = False
End Sub

[snasui]

ลองปรับ Code เป็นด้านล่างแล้วลองสุ่มดูใหม่ หากยังเป็นปัญหาให้แนบไฟล์ที่ปรับเป็น Code ล่าสุดมาแล้วด้วยจะได้ตอบต่อไปจากนั้น หากผมไม่เข้าใจว่าต้องการจะทำอะไรผมจะตอบเพื่อแก้ปัญหาเฉพาะหน้าไปเรื่อย ๆ ต้องทำใจว่าอาจจะถามตอบกันหลายโพสต์ครับ

Code: Select all

Sub RandomName()
    Dim i As Integer
    Dim j As Integer
    With Worksheets("รหัสตัวเลข")
        j = .Range("A65536").End(xlUp).Value
        i = Int(Rnd * j + 1)
    End With
    
    With Worksheets("แสดงผล")
        .Range("D3").Value = i
        .Shapes("Button 12").Visible = True
    End With
End Sub