Поместите данные в лист по таймеру для презентации excel

Question

У меня есть рабочий таймер в моем листе в определенной ячейке. Мне нужно заполнить лист предопределенными значениями (в макросе или ссылках на ячейку один) и ввести в храм для демонстрации. Кто-нибудь когда-либо делал это. Мой код ... Под "да" не выполняется, но я хотел, чтобы одна часть работала. Я не могу.

Sub timer() 
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count" 
End Sub 
Sub Increment_Count() 
Range("AE5").Value = Range("AE5") + TimeValue("00:00:01") 
timer 

Application.Run ("yeah") 

End Sub 
Sub STOPtimer() 
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count", Schedule:=False 
End Sub 

Sub yeah() 

Dim i As Integer 

For i = 2 To 31 
If IsError(Cells(i, 39)) = False And IsError(Cells(32, 5)) = False Then 
If Cells(i, 38) = Cells(31, 5) Then 
Cells(1, 8) = Cells(i, 39) 
End If 
End If 

Next i 

End Sub 

Answer 1

Вы собираетесь использовать транзитный эффект типа с медленно заполняемыми данными? Я думаю, это то, что вы делаете. Кажется, что таймер кажется ненужным для чего-то, что похоже на подобное. (30 или любые цифры тоже не являются).

Declare Sub Sleep Lib "kernel32" _ 
(ByVal dwMilliseconds As Long) 


Sub Macro1() 

    Range("B1").Value = "1" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B2").Value = "2" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B3").Value = "3" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B4").Value = "4" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B5").Value = "5" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B6").Value = "6" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B7").Value = "7" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B8").Value = "8" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B9").Value = "9" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B10").Value = "10" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B11").Value = "11" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B12").Value = "12" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B13").Value = "13" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B14").Value = "14" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B15").Value = "15" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B16").Value = "16" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B17").Value = "17" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B18").Value = "18" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B19").Value = "19" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B20").Value = "20" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B21").Value = "21" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B22").Value = "22" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B23").Value = "23" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B24").Value = "24" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B25").Value = "25" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B26").Value = "26" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B27").Value = "27" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B28").Value = "28" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B29").Value = "29" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B30").Value = "30" 
    Sleep 1000 'Implements a 1 second delay 
    Range("B31").Value = "31" 

End Sub 

Таким образом, вы можете заполнить группы и изменить задержку между эффектами, но вы хотите. Хотя лично для презентаций - я бы просто отображал данные и делал с ними. В этом отношении не нужно варить аудиторию. Только личное предпочтение с моей стороны. Удачи.