Snasui Excel Forum

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

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

snasui wrote: Sat Dec 14, 2019 9:01 am ตัวอย่าง 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

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