2025年2月15日(土)　今日も一日、群馬県太田市の自宅でのんびり過ごします。・・・

午前10時40分ごろから、群馬県太田市の太田市運動公園でウォーキングしました。・・・156日目です。午前10時40分ごろから1時間40分間 群馬県の太田市運動公園でウォーキング(トリムコースを5周　約7.35km)しました。 今日も、一人で5周歩きました。 今朝の気温は、13℃でした。 天気は、晴れです。 とても、気持ち良く歩けました。

e-tax の　国税庁 確定申告書等作成コーナーの、社会保険料控除の入力画面の自動入力プログラムを村岡が一人で作ってみました。

Sub Macro102()

Workbooks(“村岡マクロ”).Activate

ActiveSheet.Activate

MsgBox “自動入力プログラムを始めます。”

‘Macro101

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{enter}”
Sleep 5000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
‘SendKeys “{tab}”
‘ Sleep 500
‘ DoEvents
SendKeys “{enter}”
Sleep 5000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 3000
DoEvents
SendKeys “{up}”
Sleep 500
DoEvents
SendKeys “{up}”
Sleep 500
DoEvents
SendKeys “{up}”
Sleep 500
DoEvents
SendKeys “{up}”
Sleep 500
DoEvents
SendKeys “{up}”
Sleep 500
DoEvents
SendKeys “{down}”
Sleep 500
DoEvents
SendKeys “{down}”
Sleep 500
DoEvents
SendKeys “{down}”
Sleep 500
DoEvents

SendKeys “{tab}”
Sleep 500
DoEvents

Dim a1 As String

a1 = ” “

SendKeys a1, Wait

Sleep 5000
DoEvents

Dim a2 As String

a2 = Range(“D5”).Value

SendKeys a2, Wait

Sleep 1000
DoEvents

SendKeys “{enter}”
Sleep 2000
DoEvents

SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{ENTER}”
Sleep 10000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SetCursorPos 100, 100 ‘左から100ピクセル、上から35ピクセルの位置にカーソルを移動
mouse_event 2 ‘左ボタン押下のコード
mouse_event 4 ‘左ボタン解放のコード
Sleep 1000
DoEvents

SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 3000
DoEvents
SendKeys “{TAB}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 3000
DoEvents
SendKeys “{TAB}”
Sleep 500
DoEvents

SendKeys “{ENTER}”
Sleep 10000
DoEvents

SendKeys “{tab}”
Sleep 3000
DoEvents
SendKeys “{TAB}”
Sleep 500
DoEvents

SendKeys “{ENTER}”
Sleep 10000
DoEvents

Workbooks(“村岡マクロ”).Activate

ActiveSheet.Activate

MsgBox “自動入力プログラムが終わりました。”

End Sub

**** リンク　***************************************************

もとNTT東日本の村岡茂義社員のホームページです。

もとNTT東日本の村岡茂義社員の日記

*****************************************************************