01.07a 緊急事案対応 ~運動不足対策編①~
【現 象】
愛知県も新コロナの影響で緊急事態宣言が出たり解除したりで不要不急の外出を制限されていますが、HPとALifeの開発も行っているので、どうしても出不精になりがちです。
それが結構長いこと続くため
・ 体重の増加
・ 中性脂肪の増加
・ 尿酸値の増加
など弊害が出てきました。
主治医からも「今までのようにウォーキングすれば下がってきますよ」とのことです。
【原 因】
運動しなくなったこと以外は、その前の血液検査と何ら変わりはないので、明らかに原因はウォーキングをしなくなったのが原因と考えられます。
【対 策】
単にウィーキングをすればよいだけですが、「何か指標になるものを」ということで楽しく、目標をもってウォーキングが出来るようにアプリを作成してみました。
開発アプリ : Microsoft Excel
アプリ名 : 東海道53次へGO!
【アプリ解説】
このアプリは、万歩計もしくはスマフォの歩数アプリで計測した歩数を入力して、東海道53次を日本橋から大阪まで歩いていこうというものです。
・ 東海道53次資料データ
下記東海道53次データをエクセル上に展開し「東海道53次」シートを作成します。
引用元は「東海道53次距離表」(https://350ml.net/labo/tokaido/kyori.html)を参考にしました。
宿場名 |
日本橋からの距離 |
Km |
次の宿場までの距離 |
Km |
歩数 |
積算歩数 |
江戸(日本橋) |
- |
0 |
2里 |
7.9 |
1129 |
0 |
品川 |
2里 |
7.9 |
2.5里 |
9.8 |
1400 |
1129 |
川崎 |
4里18町 |
17.7 |
2.5里 |
9.8 |
1400 |
2529 |
神奈川 |
7里 |
27.5 |
1里9町 |
4.9 |
700 |
3929 |
保土ヶ谷 |
8里9町 |
32.4 |
2里9町 |
8.8 |
1258 |
4629 |
戸塚 |
10里18町 |
41.2 |
2里 |
7.9 |
1129 |
5886 |
藤沢 |
12里18町 |
49.1 |
3.5里 |
13.7 |
1958 |
7015 |
平塚 |
16里 |
62.8 |
27町 |
2.9 |
415 |
8972 |
大磯 |
16里27町 |
65.8 |
4里 |
15.7 |
2243 |
9400 |
小田原 |
20里27町 |
81.5 |
4里8町 |
16.6 |
2372 |
11643 |
箱根 |
24里35町 |
98.1 |
3里28町 |
14.8 |
2115 |
14015 |
三島 |
28里27町 |
112.9 |
1.5里 |
5.9 |
843 |
16129 |
沼津 |
30里9町 |
118.8 |
1.5里 |
5.9 |
843 |
16972 |
原 |
31里27町 |
124.7 |
3里22間 |
11.8 |
1686 |
17815 |
吉原 |
34里27町22間 |
136.5 |
2里30町23間 |
11.2 |
1600 |
19500 |
蒲原 |
37里21町45間 |
147.7 |
1里 |
3.9 |
558 |
21100 |
由比 |
38里21町45間 |
151.6 |
2里12町 |
9.2 |
1315 |
21658 |
興津 |
40里33町45間 |
160.8 |
1里2町 |
4.1 |
586 |
22972 |
江尻 |
41里35町45間 |
164.9 |
2里25町 |
10.6 |
1515 |
23558 |
府中 |
44里24町45間 |
175.5 |
1里16町 |
5.7 |
815 |
25072 |
丸子 |
46里4町45間 |
181.2 |
2里 |
7.9 |
1129 |
25886 |
岡部 |
48里4町45間 |
189 |
1里26町 |
6.8 |
972 |
27000 |
藤枝 |
49里30町45間 |
195.8 |
2里8町 |
8.7 |
1243 |
27972 |
島田 |
52里2町45間 |
204.5 |
1里 |
3.9 |
558 |
29215 |
金谷 |
53里2町45間 |
208.4 |
1里24町 |
6.5 |
929 |
29772 |
日坂 |
54里26町45間 |
215 |
1里29町 |
7.1 |
1015 |
30715 |
掛川 |
56里19町45間 |
222.1 |
2里16町 |
9.6 |
1372 |
31729 |
袋井 |
58里35町45間 |
231.7 |
1.5里 |
5.9 |
843 |
33100 |
見付 |
60里17町45間 |
237.6 |
4里7町 |
16.5 |
2358 |
33943 |
浜松 |
64里24町45間 |
254 |
2里28町 |
10.9 |
1558 |
36286 |
舞阪 |
67里16町45間 |
265 |
1.5里 |
5.9 |
843 |
37858 |
新居 |
68里34町45間 |
270.8 |
1里24町 |
6.5 |
929 |
38686 |
白須賀 |
70里22町45間 |
277.4 |
1里17町 |
5.8 |
829 |
39629 |
二川 |
72里3町45間 |
283.2 |
1里20町 |
6.1 |
872 |
40458 |
吉田 |
73里23町45間 |
289.3 |
2里22町 |
10.3 |
1472 |
41329 |
御油 |
76里9町45間 |
299.5 |
16町 |
1.7 |
243 |
42786 |
赤坂 |
76里25町45間 |
301.3 |
2里9町 |
8.8 |
1258 |
43043 |
藤川 |
78里34町45間 |
310.1 |
1里25町 |
6.7 |
958 |
44300 |
岡崎 |
80里23町45間 |
316.8 |
3里29町22間 |
15 |
2143 |
45258 |
池鯉鮒 |
84里17町7間 |
331.8 |
2里30町 |
11.1 |
1586 |
47400 |
鳴海 |
87里11町7間 |
342.9 |
1里24町 |
6.5 |
929 |
48986 |
宮(熱田) |
88里35町7間 |
349.4 |
7里 |
27.5 |
3929 |
49915 |
桑名 |
95里35町7間 |
376.9 |
3里8町 |
12.7 |
1815 |
53843 |
四日市 |
99里7町7間 |
389.6 |
2里27町 |
10.8 |
1543 |
55658 |
石薬師 |
101里34町7間 |
400.4 |
25町 |
2.7 |
386 |
57200 |
庄野 |
102里23町7間 |
403.1 |
2里 |
7.9 |
1129 |
57586 |
亀山 |
104里23町7間 |
411 |
1.5里 |
5.9 |
843 |
58715 |
関 |
106里5町7間 |
416.9 |
1里24町 |
6.5 |
929 |
59558 |
坂下 |
107里29町7間 |
423.4 |
2.5里 |
9.8 |
1400 |
60486 |
土山 |
110里11町7間 |
433.2 |
2里25町 |
10.6 |
1515 |
61886 |
水口 |
113里7間 |
443.8 |
3.5里 |
13.7 |
1958 |
63400 |
石部 |
116里18町7間 |
457.5 |
2里35町54間 |
11.8 |
1686 |
65358 |
草津 |
119里18町1間 |
469.3 |
3里24町 |
14.4 |
2058 |
67043 |
大津 |
123里6町1間 |
483.7 |
3里 |
11.8 |
1686 |
69100 |
京(三条大橋) |
126里6町1間 |
495.5 |
- |
|
0 |
70786 |
大津 |
123里6町1間 |
483.7 |
4里8町 |
16.6 |
2372 |
69100 |
伏見 |
127里14町1間 |
500.3 |
1里14町 |
5.5 |
786 |
71472 |
淀 |
128里28町1間 |
505.8 |
3里12町 |
13.1 |
1872 |
72258 |
枚方 |
132里4町1間 |
518.8 |
3里 |
11.8 |
1686 |
74115 |
守口 |
135里4町1間 |
530.6 |
4里 |
15.7 |
2243 |
75800 |
大坂(高麗橋) |
139里4町1間 |
546.3 |
- |
|
0 |
78043 |
【詳細データ表と達成度シート】
達成度とビジュアル用に「東海道53次(2)」シートをコピーし作成します。
この時、列A1には歩幅データをセンチ単位で入力し、仮に「70」とした場合を想定すると、
列I「歩数」は 「=ROUNDUP((H2*100000)/$A$1,0)」
列J「積算歩数」は 「=ROUNDUP((F2*100000)/$A$1,0)」
列K「達成度」は 「=J2/$J$62」
「達成度」は、「セルの書式設定」→「表示形式」→「パーセンテージ」→「小数点=2」
【東海道53次へGO】
メインとなる「東海道53次へGO」シートは下記のように作成します。
【設定と結果】
① セルA1 = 歩幅(cm) → 入力設定値
② セルB1 = 歩幅(Km) → 「=A1/100000」
③ セルC1 = 現在までの積算距離(Km) → 「=MAX(D3:D88)」
④ セルD1 = 現在の宿場インデックス
→ 「=ROUNDUP(C1/'東海道53次
(2)'!F62*100,1)」
⑤ セルE1 = 現在いる宿場町
→ 「=IF($B1<>0,INDEX('東海道53次
(2)'!$B$2:$B$62,MATCH(D1,'東海道53次 (2)'!$F$2:$F$62,1)),"")」
【日々入力表】
① セルA3 = 日付(事前に設定する)
② セルB3 = 歩数 → 「=IF(I3<>"",SUM(I3:N3),0)」
③ セルC3 = 移動距離(Km) → 「=B3*$B$1」
④ セルD3 = 積算距離(Km) →
初回は「=C3」、 それ以降は「=C4+D3」
⑤ セルE3 = 現在の宿場
→ 「=IF($B3<>0,INDEX('東海道53次
(2)'!$B$2:$B$62,MATCH($D3,'東海道53次 (2)'!$F$2:$F$62,1)),"")」
⑥ セルF3 = 到着宿場
→ 「=IF($B3<>0,INDEX('東海道53次
(2)'!$B$2:$B$62,MATCH($D3,'東海道53次 (2)'!$F$2:$F$62,1)+1),"")」
⑦ セルG3 = 次への距離
→ 「=IF($B3<>0,INDEX('東海道53次
(2)'!$F$2:$F$62,MATCH($D3,'東海道53次 (2)'!$F$2:$F$62,1)+1),"")」
⑧ セルH3 = 次宿場までの達成度
→ 「=IF($B3<>0,INDEX('東海道53次
(2)'!$F$2:$F$62,MATCH($D3,'東海道53次 (2)'!$F$2:$F$62,1)+1),"")」
⑨ セルI3以降 = その日の入力歩数、I・J・Kと入力
→ セルB3の範囲で制限されます。
【結 果】
今までも還暦を過ぎているため、「禁酒」「血液検査」表などとリンクさせています。
日々楽しんでウォーキングが出来ると思っています。
【参考文献】
≪清須電脳倶楽部メインページへ戻る場合はここをクリックしてください≫