DateAdd()なんて素敵な関数しらなかったorz Function SetTimer(nTime As Integer) gvFireTime = DateAdd("s", nTime, Now) Application.OnTime gvFireTime, "'HandleEvent TimerEvent, """"'" End Function

調べ事中たまたま見つけたのでメモる。 ExcelVBAのApplication.OnKeyメソッドで、シート上でのキー押下時に呼び出すプロシージャを設定できるが、このプロシージャに引数を渡すことができるようだ。ってか、できた。今までキーごとにFunctionを定義していて…