Snasui Excel Forum

:D ตัวอย่าง Code ครับ
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 ...

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