VBA를 사용하여 Excel에서 5초마다 도형의 색상 변경

Question

안녕하세요 저는 버튼을 클릭한 후 5초마다 VBA를 사용하여 Excel에서 도형의 색상을 변경하는 VBA 코드를 찾고 있습니다. 내 모양의 이름은 "사각형 1"입니다.

Answer 1

실행할 버튼을 할당하세요시작 타이머:

Public RunWhen As Double
Public Const cRunIntervalSeconds = 5
Public Const cRunWhat = "qwerty"

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
     schedule:=True
End Sub

Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen, _
       procedure:=cRunWhat, schedule:=False
End Sub

Sub qwerty()
    Dim s As Shape
    Set s = ActiveSheet.Shapes("Rectangle 1")
    s.Fill.ForeColor.SchemeColor = Application.WorksheetFunction.RandBetween(1, 20)
    Call StartTimer
End Sub