เขียนโปรแกรมใน Excel เพื่อแสดงผลการจับฉลาก
Post date: Dec 9, 2015 8:17:06 AM
การเขียนโปรแกรมบน Excel ง่ายๆ เพื่อนำข้อมูลที่มีอยู่มาแสดงที่ละเฟรม ทีละเฟรม แสดงเป็นตัวใหญ่ๆ เห็นชัดๆ
Code.
Sub rewardshow()
Dim i As Integer
Dim g As Integer
For g = 1 To 5
For i = 1 To 5
Sheet2.Range("A1").Value = Sheet1.Range("A" & i).Value
PauseTime = 3 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
Next i
Next g
End Sub