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

投稿日: 2025年2月16日 作成者: admin

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

カテゴリー: 未分類 | コメントする

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

投稿日: 2025年2月15日 作成者: admin

午前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東日本の村岡茂義社員の日記

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

カテゴリー: 未分類 | コメントする

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

投稿日: 2025年2月14日 作成者: admin

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

カテゴリー: 未分類 | コメントする

2025年2月13日(木)　今日も一日、群馬県太田市の自宅でのんびり過ごします。・・・小島医院に通院しました。・・・その後、平原内科に通院しました。

投稿日: 2025年2月13日 作成者: admin

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

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

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

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

カテゴリー: 未分類 | コメントする

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

投稿日: 2025年2月12日 作成者: admin

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

カテゴリー: 未分類 | コメントする

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

投稿日: 2025年2月11日 作成者: admin

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

カテゴリー: 未分類 | コメントする

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

投稿日: 2025年2月10日 作成者: admin

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

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

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

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

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

カテゴリー: 未分類 | コメントする

2025年2月9日(日)　今日も一日、群馬県太田市の自宅でのんびり過ごします。・・・確定申告のe-taxのデータ投入が終わりました。(今日マイナポータルの医療費控除のデータがタウンロードできました。)・・・あとは、2月17日以降に、e-taxで確定申告のデータを送信するだけです。すべて、村岡一人で出来ました。

投稿日: 2025年2月9日 作成者: admin

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

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

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

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

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

カテゴリー: 未分類 | コメントする

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

投稿日: 2025年2月8日 作成者: admin

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

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

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

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

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

カテゴリー: 未分類 | コメントする

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

投稿日: 2025年2月7日 作成者: admin

午前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
　　

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

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

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

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

カテゴリー: 未分類 | コメントする