2005-11-30 ちょい修正 プログラミング VBA Excel DateAdd()なんて素敵な関数しらなかったorz Function SetTimer(nTime As Integer) gvFireTime = DateAdd("s", nTime, Now) Application.OnTime gvFireTime, "'HandleEvent TimerEvent, """"'" End Function