รบกวนขอสูตร Random ผู้โชคดีแล้วนำไปบันทึกไว้อีกชีสหน่อยคะ่

[NooNiiZ14]

รบกวนขอสูตร Random ผู้โชคดีแล้วนำไปบันทึกไว้อีกชีสหน่อยค่ะ ตอนนี้ทำตรง Random ได้แล้ว แต่ต้องการให้นำข้อมูลที่ Random ได้ไปบันทึกไว้อีกชีสนึง(REWARD) โดยถ้า Random ครั้งต่อไปจะไม่มีการ Random ซ้ำกันค่ะ และติดปัญหาตรงที่ต้องการหน่วงเวลาให้แสดงข้อมูลที่ Random ได้ทีละคอลัมภ์โดยเรียงจากคำนำหน้า แผนก รหัส ชื่อ และเบอร์โทรตามลำดับให้ลุ้นๆ กัน แต่ติดปัญหาคือหน่วงเวลาได้แต่ข้อมูลทำการ random ใหม่ทุกรอบจนแสดงข้อมูลครบ

[snasui]

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

Code: Select all

Dim Lrow  As Integer
Dim r As Integer
r = Worksheets("RAND").Range("k11").Value
If r = 0 Then Exit Sub
With Worksheets("REWARD")
    Lrow = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("a" & Lrow).Resize(1, 6).Value = _
        Worksheets("LIST").Range("a" & r).Resize(1, 6).Value
End With
Worksheets("LIST").Range("a" & r).EntireRow.Delete

[NooNiiZ14]

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

Code: Select all

Dim Lrow  As Integer
Dim r As Integer
r = Worksheets("RAND").Range("k11").Value
If r = 0 Then Exit Sub
With Worksheets("REWARD")
    Lrow = .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("a" & Lrow).Resize(1, 6).Value = _
        Worksheets("LIST").Range("a" & r).Resize(1, 6).Value
End With
Worksheets("LIST").Range("a" & r).EntireRow.Delete

ขอบคุณมากๆ เลยค่ะ