3回目のコロナワクチン接種の予約をしました。

去年の7月末ごろに2回目のコロナワクチン接種しました。

今年に入ってコロナ感染者が増えています。

3回目のワクチンを打った方がいいかもということで

ワクチンを打つことにしました。

市役所のHPを見るとオイラの接種券は2月の22日に発送予定になっていました。

でもその日の一日前の21日に接種券が配られてきました。

当日直ぐに前回接種を受けたクリニックに予約行きました。

オイラは2月15日に帯状疱疹ワクチンをうっているので

最低2週間は間をあけなくてはなりません。

そのことをクリニックのスタッフに伝え予約した日は3月8日となりました。

7日は歯科に行く予定なので接種の副反応等で体調が悪くなるといけないので

丁度良かった。

前回のコロナワクチン1回目、2回目とも大した副反応はなかったです。

若干体温が上がったくらいです。

3月からのタイへの入国制限が緩和されるようです。

2月23日にTwitterを見ていたらタイ入国に関する制限が緩和されることが書かれてあった。

タイ到着時のPCR検査2回していたのを

3月からは入国時のPCR検査1回と5日目にATK（抗原検査キット）で

自分自身で行うようなことに緩和されるようです。

これだとSHAエクストラプラス認定ホテルも初日の1泊だけでいいようになります。

更にもっと重要なのがタイランドパス登録時に必要な医療保険最低5万ドルが

最低2万ドルに補償額が引き下げられるということです。

2万ドルだとオイラが持っているクレジットカードの付帯保険（300万円）で

カバーできる金額になります。

2万ドルは23日のレートだと230万円くらいですのでカバーできます。

これが本当であとはオイラのやる気があれば

去年勝手にスケジュールを作ったのでも使えそうです。

このスケジュールでは特典航空券で日本→タイの片道ですが

ビザなしの片道チケットだけでは入国審査の時ダメと言われると嫌なので

1ヶ月か2ヶ月の往復航空券を買った方がよさそうです。

そしてその間に長期ビザの手配（取得）ができれば

ビザ取得後に一時日本に戻り直ぐにタイへの片道チケット（特典航空券）を

手配すればいいかもと思っています。

ビザ取得を手伝ってくれる業者を探しておかなくてはならないな。

以前利用した業者はどうなっているのか調べておきましょう。

3月からの日本入国制限が緩くなるようです。

日本人が日本に帰ってくるとき（入国）の制限が3月1日より緩くなるようです。

オイラに関係するタイからの入国に関して書いておこう。

タイを出国するときにPCR検査での陰性証明書があり

ワクチンを3回接種しているなら3日間の待機期間です。

（オイラは2回接種済で3月か4月に3回目を打つ予定です。）

ただしタイが非指定国になれば待機期間はなしとなる。

現在は指定国になっているので待機が必要です。

でも入国後自宅等までの移動に公共機関が使えるようです。

この部分の影響が大きいです。

ということは公共機関を使ってタイ→羽田空港

そしてセントレア→電車→タクシー→自宅まで一気に戻れるということになります。

日本入国に関してのハードルはグーンと下がりました。

公共機関が使えるので無駄金を（ホテル代）使わなくて済みます。

https://t.co/oIKjZeZb9I

↑から確認できます。

あとはタイ入国時の制限緩和です。

一番のネックは5万バーツ相当のコロナ保険（強制保険）です。

これとタイでのPCR検査です。

現在はタイ入国に関しての制限で飛行機代の他に

約10万円近くのお金が必要になっています。

10万円あればもう1回タイー日本が往復できる金額です。

悲しいがまだタイには戻れんなー。

2回目の帯状疱疹ワクチンを打ちました。

去年の11月に1回目の帯状疱疹のワクチンを打って2カ月以上経ちましたので

2月15日に2回目のワクチンを打ってきました。

腕への筋肉注射でした。

24時間経っても注射のところが痛いです。

当日（15日）はなんか体がだるい感じがしました。

寝る前に体温計ると36.7度いつもより1度ほど高いです。

翌日（16日）の朝も同じように1度ほど高いです。

熱が出ているようです。

家の体温計での計測と外での計測値を比較すると

外で測ったものが1度ほど高く出ます。

そうすると今のオイラの体温を外で測ると37.7度くらいで

熱があると判定されますね。

注射を打って翌日（16日）の寝る前の体温測定では37.2度となりました。

外で計ったら38.2度以上の感じになります。

当日（16日）の夜は体調が相当悪い感じです。

午後9時には寝ることにしました。

17日の朝の測定は36.4度で寝る前は36.2度と下がってきていました。

まだ熱がある感じです。

注射から3日経った18日の朝の体温は35.6度といつもの体温になっていました。

注射を打った腕の痛みは押さえると若干痛いという感じになりました。

ワクチン1回目の時の体温上昇より

2回目のワクチンでの体温上昇は大きかったようです。

1回目のﾜｸﾁﾝ接種後の体温変化

2回目のﾜｸﾁﾝ接種後の体温変化

これで約10年間は帯状疱疹の発症が抑えられるでしょう。

運が悪ければ発症するかもしれません。

でも今回のワクチンは効果がジジイでも90％はあるようなのでたぶん大丈夫でしょう。

知っているはずのタイ語が出てきません。

10年くらいタイ語を勉強して少しは意味が分かるようになっていたのですが

コロナの影響で日本に2年近く戻っています。

タイにいるなら多少タイ語が必要で話さなくてはならないが

日本にいると全然必要ないのでタイ語を話すことがないです。

先日タイ人とLINEで話をしていて「プラトゥを買いに行く」というのを聞きました。

タイ語で発音ならﾊﾟｲ　ｽｰ　ﾌﾟﾗﾄｩなのですがプラトゥの意味が出てこない。

タイ語を勉強していた時に知っていた言葉なのですが日本語の訳が出てこない。

英語ではドアと言っていたのですがわからん。

タイ語での英語は日本語英語とは若干違うのでドアと言われてもわからん。

ドアーと言ってくれたなら分かったと思います。

何故ドアーを買いに行くかということなのですが

飼っている犬が家の近くを通ったバイク乗りとか人に嚙みに行くから

それを防止するために簡単に外に出れないようにするためのようです。

更に話をしていてドアーでなく柵を買いに行くようです。

これを機会にタイ語の勉強を開始しましょうか。

まずは「汗」と「汗をかく」。

日本語発音では「グゥア」、「グゥア　オー(ク)」

タイ文字は「เหงื่อ」、「เหงื่อออก」

直ぐに覚えたような気がします。

エクセルのマクロ式が消えてしまったので再度作成しました。

日本に長期一時帰国中のオイラです。

家の中にいる場所は夕方くらいからは2階です。

ここに古いPCを置いています。

日中は1階の南側の部屋にいます。

こちらには去年買ったPCを置いています。

ファイルの管理はグーグルのドライブかDropboxで行っています。

これにより1階のPCでも2階のPCでも同じファイルにアクセスできます。

2階にある古いPCにはoffice365が入っていたのですが去年の何月か忘れましたが

この365を使おうとしたら期限がきれたのでコードを入力して下さいというような

メッセージが表示され使えなくなった。

コードを再入力すれば使えるようだがそのコードが書いてある紙が見つからない。

たぶんタイのアパートに置いてきたのだろう。

このままでは2階のPCではエクセルが使えないので何かないかと探してみた。

こんなのが出てきました。

使えそうなので使ってみたがエクセルに入れてあるマクロが動かなくなってしまった。

マクロ式を読むとフリーソフトでは読み込めないマクロ式があるような感じです。

マクロ無しでもエクセルは使っていけますが

毎日使っているエクセルなので何とかマクロが使えるように

1階にあるPCを使って挑戦してみました。

Dimを使うマクロなので作っていくのが難しいかった。

マクロを勉強している人には簡単だろうがオイラはほぼ独学なので難しかった。

何とか1日で完成した。

このブログに式を残しておけば今回のように必要になった時直ぐに使えるので

転ばぬ先の杖ではないが転んだとき用にその式をここに張付けておく。

Sub 一行足し()

'

' 一行足し Macro

' マクロ編集用 Macro

 'Sub CからSまで数式をコピー()

'

' 数式をコピー

' 再表示 Macro

'(前準備)

    Application.ScreenUpdating = False

    Columns("B:AC").Select

    Selection.EntireColumn.Hidden = False

    Range("B1").Activate

    Selection.End(xlDown).Select

'日付の横の列の書いてある最終セルを選択

   Dim Range1, 行1 As Range

   'Set 行1 = Range("C1")

   Set Range1 = Range("C1").End(xlDown)

   Set 行1 = Range1.Offset(0, 0)

   Dim Range2, 行2 As Range

   Set Range2 = Range("X1").End(xlDown)

   Set 行2 = Range2.Offset(0, 23)

   Range(行1, 行2).Select

   

 '数式をコピー

   Selection.Copy

   

 '数式を貼付るセルを選択

    Dim Range3, 行3 As Range

   Set 行3 = Range1.Offset(1, 0)

   Dim Range4, 行4 As Range

   Set 行4 = Range1.Offset(1, 0)

   Range(行3, 行4).Select

   

   ActiveSheet.Paste

   

   Range("B2").Select

Application.ScreenUpdating = True

 Application.CutCopyMode = False

 

 '日付用

 Range("B1").Select

    Selection.End(xlDown).Select

    

    'Dimを使う

    Dim Range5, 行5 As Range

   Set 行5 = Range("B1")

   Set Range5 = Range("B1").End(xlDown)

   Set 行5 = Range5.Offset(0, 1)

   'Dim Range2, 行2 As Range

  ' Set Range2 = Range("C1").End(xlDown)

  ' Set 行2 = Range2.Offset(0, 23)

'数式をコピー

   Selection.Copy

  '数式を貼付るセルを選択

  ActiveCell.Offset(1#).Select

   '日付1日プラスする式

   ActiveCell.FormulaR1C1 = "=R[-1]C+1"

    'Range("B1138").Select

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

  

    Dim Range6, 行6 As Range

'   Set 行6 = Range6

  ' Set 行6 = Range6.Offset(1, 0)

    'Dim Range4, 行4 As Range

   'Set 行4 = Range1.Offset(0, 1)

   'ActiveCell.Offset(1.0)Select

   ' Range(行6).Select

'   ActiveSheet.Paste

 '  Range("B2").Select

End Sub

赤字は不要ですが作成途中試した式ですので残しておきました。

頭に「'」があるので実際のマクロ実行時には関係ありません。

一番最後の「 Dim Range6, 行6 As Range」も要らないと思う。