午前9時50分ごろから、群馬県太田市の太田市運動公園でウォーキングしました。・・・149日目です。午前9時50分ごろから1時間40分間 群馬県の太田市運動公園でウォーキング(トリムコースを5周 約7.35km)しました。 今日も、一人で5周歩きました。 今朝の気温は、8℃でした。 天気は、晴れです。 とても気持ち良く歩けました。
今日、群馬県太田市の自宅で一人で、「どこでも、光電話」と「自動入力プログラム」を、作成しました。
今日、村岡が一人で作った、自動入力プログラムを、下記に記載します。
国税庁 確定申告書等作成コーナー 医療費通知の入力 の自動入力プログラムです。
Sub Macro100()
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
Dim a1 As String
a1 = Range(“B4”).Value
SendKeys a1, Wait
Sleep 1000
DoEvents
SendKeys “{enter}”
Sleep 2000
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
Dim a2 As String
a2 = Range(“B5”).Value
SendKeys a2, Wait
Sleep 1000
DoEvents
SendKeys “{enter}”
Sleep 2000
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
Dim a3 As String
a3 = Range(“B6”).Value
SendKeys a3, Wait
Sleep 1000
DoEvents
SendKeys “{enter}”
Sleep 2000
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{enter}”
Sleep 10000
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 “{tab}”
Sleep 500
DoEvents
SendKeys “{enter}”
Sleep 4000
DoEvents
Workbooks(“村岡マクロ”).Activate
ActiveSheet.Activate
MsgBox “自動入力プログラムが終わりました。”
End Sub
Sub Macro101()
‘Workbooks(“村岡マクロ”).Activate
‘
‘ActiveSheet.Activate
‘
‘MsgBox “自動入力プログラムを始めます。”
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
Dim a1 As String
a1 = ” “
SendKeys a1, Wait
Sleep 1000
DoEvents
SendKeys “{enter}”
Sleep 2000
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
Dim a2 As String
a2 = ” “
SendKeys a2, Wait
Sleep 1000
DoEvents
SendKeys “{enter}”
Sleep 2000
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
SendKeys “{tab}”
Sleep 500
DoEvents
Dim a3 As String
a3 = ” “
SendKeys a3, Wait
Sleep 1000
DoEvents
SendKeys “{enter}”
Sleep 2000
DoEvents
‘ Workbooks(“村岡マクロ”).Activate
‘
‘ ActiveSheet.Activate
‘
‘ MsgBox “自動入力プログラムが終わりました。”
End Sub
**** リンク ***************************************************
*****************************************************************