アプリケーション操作

VBA

AppActivate "Microsoft Excel", False
Application.Wait Now + TimeSerial(0, 0, 1)
SendKeys "%"
Application.Wait Now + TimeSerial(0, 0, 0.5)
SendKeys "{RIGHT 8}{DOWN 8}{ENTER}"
SendKeys m
rng.Offset(0, 4).Interior.ColorIndex = 34
rng.Offset(0, 6) = Time