הנהלת הפורומים
Administrator
TEST SNIPPET
ChangeSheet = Now + TimeValue("00:00:03")
Application.OnTime ChangeSheet, "Micky"
Sheets("Sheet" & Application.RandBetween(1, 3)).ActivateEnd SubSub StopMe() Application.OnTime ChangeSheet, "Micky", schedule:=FalseEnd Sub
קוד:
public ChangeSheet
Sub Micky()Application.OnTime ChangeSheet, "Micky"
Sheets("Sheet" & Application.RandBetween(1, 3)).ActivateEnd SubSub StopMe() Application.OnTime ChangeSheet, "Micky", schedule:=FalseEnd Sub