★マクロシートのA1セルから以下の通り。各先頭セルは名前登録します。

Auto_open
SetCursorPos=REGISTER("user32","SetCursorPos", "JJJJ")
mouse_event=REGISTER("user32","mouse_event", "JJJJJJ")
m=ADD.MENU(GET.BAR(),C1:D4)
=RETURN()

Auto_close
=DELETE.MENU(GET.BAR(),m)
=RETURN()

マウス操作
=ARGUMENT("X")
=ARGUMENT("Y")
=CALL(SetCursorPos,X,Y)
=CALL(mouse_event,2,0,0,0,0)
=CALL(mouse_event,4,0,0,0,0)
=RETURN()

キーボード操作
=ARGUMENT("X")
=SEND.KEYS(X,TRUE)
=RETURN()

行操作サブ
sub=GET.FORMULA("R[0]C1")
X=GET.FORMULA("R[0]C2")
Y=GET.FORMULA("R[0]C3")
sec=GET.FORMULA("R[0]C4")
=IF(sub="M",マウス操作(X,Y))
=IF(sub="K",キーボード操作(X))
=IF(sub="A",アラート(X))
=IF(sub="I",インプット(X))
=IF(sub="C",コピー())
=WAIT(NOW()+TIME(,,sec))
=RETURN()

自動操作
=APP.MINIMIZE()
=SELECT(!A1)
=WHILE(GET.CELL(5)<>"")
=行操作サブ()
=SELECT("R[1]C1")
=NEXT()
=APP.MAXIMIZE()
=RETURN()

行操作
=APP.MINIMIZE()
=行操作サブ()
=APP.MAXIMIZE()
=RETURN()

インプット
=APP.MAXIMIZE()
Y=INPUT(X,2)
=FORMULA(Y,"R[0]C3")
=SELECT("R[0]C3")
=COPY()
=APP.MINIMIZE()
=RETURN()

アラート
=APP.MAXIMIZE()
=ALERT(X)
=APP.MINIMIZE()
=RETURN()

コピー
=APP.MAXIMIZE()
=SELECT("R[0]C2")
=COPY()
=APP.MINIMIZE()
=RETURN()

ヒント
=ALERT("①M[ouse]-座標　②K[ey]-キー　③C[opy]-テキスト　④I[nput]-テキスト　⑤A[lert]-テキスト　に待ち秒を入力後、メニューから自動操作-開始します。")
=ALERT("キーは+(Shift)、^(Crtl)、％（Alt)、{UP}、{ENTER}などです。")
=RETURN()



★マクロシートのC1セルから以下の通り。

自動操作(&A)
開始(&S) 自動操作
1行実行(&1) 行操作
ヒント(&H) ヒント


★ワークシートのA1セルから以下の通り。

M 450 600 1
M 500 700 1
M 550 800 1
M 600 900 1
K ^a 1
M 600 900 1