Ｔｗｉｔｔｅｒ等では安倍政権に対する批判は多くありますよ。
しかしそれ以上にネトウヨの声が大きい（実際の人数は少ないとされてる）ので掻き消されてるのが現状です。
今回の台風１９号もそうですが、千葉での大停電、昨年の西日本豪雨や北海道地震、すべてにおいて対応が悪すぎです。いかに庶民のことを蔑ろにしてるかです。

そもそも東日本大震災（原発事故も含めて）への民主党政権の対応は悪くはありませんでした。
それを当時の菅総理だけを寄って集って悪者にして叩き潰したわけですからね。
その張本人が現在の安倍総理だったりしますからね。

軽減税率の対象です。

と言う言い方は明らかに間違いです。

正確に言うと
「キャッシュレス・消費者還元事業」の対象です。

となります。
対象は中小の小売店となっていて申請し国が認めた店舗と支払い方法が対象です。

例えばイトーヨーカドーやイオンは
大型店なので還元はなく
キャッシュレスでもクオカードは対象になりません(タバコは最初から買えませんが)

たぶんIOCは、「日本は狭いから東京も札幌も近所だろう。」ぐらいの認識なんだと思います。

何でわざわざ北海道まで行くのでしょうかね?
地元の方なら別ですが。
逆もそうですが特段の理由もなくわざわざ遠くまで行く理由が理解できないです。

回答者の説明にもあるように
'前提として 当日に該当する入金日は一行しか存在しない(見つかったら転記をして日付の検索を終わっています)

~~~~~~~~~~~~Exit~For でループ抜けているから1行分しか取れていない
なので
Sub~KIJITSU() の方は

Dim 入金金額 As Long
Dim 決済金額 As Long
↑
最初に追加

~~~~~~~~~~~~Worksheets("期日北海道").Cells(4,~6)~=~Cells(X1,~7)
~~~~~~~~~~~~Worksheets("期日北海道").Cells(4,~7)~=~Cells(X1,~6)
~~~~~~~~~~~~Exit~For
↑
この部分を
入金金額 = 入金金額 + Cells(X1,~7)
決済金額 = 決済金額 + Cells(X1,~6)
に変更して

ループ終了後に
Worksheets("期日北海道").Cells(4, 6) = 入金金額
Worksheets("期日北海道").Cells(4, 7) = 決済金額

で書き込むようにすればいいと思われる

今日はバイクが沢山走ってました。
札幌のバイク乗り雪が降るまで走れます。
例年、11月中旬まで。
最近、10月末に1回積もるけど根雪はもう少し先。

来週だと日中はまだ大丈夫。9時から15時まで位にした方が良いですよ。
四季彩の丘がまだ間に合うかってところです。

冬グローブとネックガード。ブーツじゃなければジーパンの裾を縛るテープ。
厚手のジャンバーのほうが良いかな。

mgcももう少し気温が低ければ設楽選手が逃げ
切ったと言われてます。
最後の登りで中村選手が後続を突き放しましたが
北海道マラソンのコースを使うのならそんな登り
坂はなく平坦になります。
前半スローだからその分脚が残っていた。

気温も低く平坦なコースならば設楽、大迫あたりが
1.2だったかも。暑いから設楽選手を追いかけなか
っただけで気温が低いなら逃げられないように追い
かけたでしょう。そうなると中村選手や服部選手が
ついていけたかどうか。

たらればですけどね。

競歩は世陸のメダリストだから関係なく内定です。

オススメはやはり函館山からの夜景と五稜郭ですね。他には元町教会群、湯の川温泉、朝市がおススメ。
グルメではラッキーピエロのハンバーガー、ハセガワストアのやきとり弁当がB級グルメとして有名。
個人的には五稜郭タワー近くの居酒屋HAKOYA のランチ海鮮丼が安くて美味しい。朝市は観光客価格で高すぎるので、いつもここで食べています。
函館の観光は市電で十分だと思いますが、車があればトラピスチヌ修道院、トラピスト修道院、大沼もいいと思います。

北海道全体としての観光では、車は必要だと思います。駅から観光地までのアクセスや電車の本数を考えると車なしでは厳しいです。

やはり最も多いところが、自宅からも通える琉球大学でしょう。親の負担が軽減されて助かるみたいです。本土へ進学する人たちは、旧帝大（九州大学、大阪大学、京都大学、東京大学、東北大学、北海道大学）や慶応、早稲田、上智、明治、法政、立教、中央、関学、同志社、立命館などです。東京工業大学、一橋大学、お茶の水、東京大学理Ⅲに進学する生徒もいます。

731系との連結運転で今も使われてますよ。函館本線や千歳線、室蘭本線で運用されてます。