excel开发

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) Private Sub 抽奖_Click() Dim counter counter = 0 Do counter = counter + 1 MySleep Sheet1.Cells(19, 12) = Sheet1.Cells(7 + WorksheetFunction.RandBetween(1, 16), 5).Value Loop Until counter = 50 Sheet1.Cells(19, 12) = "马谡" End Sub Private Sub MySleep() Sleep 100 End Sub

标签：End,Sub,Cells,counter,excel,Private,开发,Sheet1
来源： https://www.cnblogs.com/leowindy/p/15781249.html