เขียนโปรแกรมใน 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