前立腺がんの放射線治療を終え3週間経った。ライナック室のDr.からは「治療の効果が出るのに1～2週間掛かる」と聞いている。「24時間トイレ回数」、治療の効果を自分で見るのはこれしかないので、環境は変わっているが続けている...
データが増えると必然的に小さな文字となり見難くなる。この種のグラフはこれで最後とする...（ファイル名：24Hrトイレ回数v1.xlsm）
最終的にはこうなるのではないか‥‥ と思い作成してみた。
24回/日（1時間に1回）を超える日も珍しくなかったが、最近はほゞ 12回/日をキープしている。これは肺腺がんで入院した昨年 11月（14.8回/日）より少ない。 7週間、32回の前立腺がん/放射線治療を終え、25日に退院した。
当初「通院でも可能」と言われていたが、放射線治療の前に排便し、膀胱内に蓄尿するのが自分にとって大変で、治療がお休みの日は何故か自然と排便されるなど、プレッシャーに弱いことも判った。これを通院で行うのはとてもじゃないが出来ない‥‥ と、改めて感じた。
退院翌日の昨日は、体を慣らすためと称して一日中入院中（甚平）時と同じパジャマ着で、
で、ブログをアップする予定だったが、「トイレ回数」のグラフが明日の午前5時にならないと、一日分が取れないので諦めた（ことにし）、ファンヒーターで室温を病院並み？にし体を動かすようにした...
そして今日の午後より「24時間トイレ回数」を更新した。
≪今後の課題≫
ライナック室のDr. は成果が出るには 1～2週間掛かる と言うが、自分にとって一番気になるのは頻尿の回数がどれだけ減るか‥‥ である。その意味で「トイレ回数」はしっかり取りたい思うがどれだけ取れるか‥‥ である。
現在の方法は
スマホの［Keep メモ］
に時刻をメモっている。
現在の時刻が入力できるので便利。
の［区切り位置］コマンドで、区切り文字「コンマ」で貼り付ける。4月1日に泌尿器科を受診する予定なので、最低限、この日まではしっかりデータを取りたい‥‥ と思っている。
文章を考えるのがだんだん億劫になった。
そんな中、孫たちが見舞いに来るというので‥‥
で、Dr.に聞いた
看護師（男）に聞いた
9日の土曜日、
玄関前の駐車場の陽の当たる場所で面会となった。
その時に孫娘から貰ったのが付近から集めた松ぼっくり。
孫が計算してた訳でもないだろうが、二男が持ってきた沖縄名物のお菓子の箱にちょうど納まった。しかも6ヶは見舞いに来た人の数に一致する‥‥
これを病室の簡易テーブルの上に置いてあるが看護師には好評 👍
何でも観葉植物は呼吸をするので置いてはいけないとか。その点、松ぼっくりは枯れているので問題ないと...
どうも新型コロナの時に出来た決まりらしい。植物にマスクは出来ないからであろう。
孫たちに言われそう「ボーっと いきてんじゃ ねーよ！」
放射線治療も残り5回となった。
5日連続して午前中に排便する辛さは相変わらずであるが、来週は中休み（春分の日）があるので、少しは楽かなぁ～っと思うが...
トイレ回数は一時下降したかに見えたが最近また増えている。
そんな中、時間帯の区切り（朝・昼・夜）をより現実的なものにしようと変えデータを作り替えた。
この四日間20回越えが続いているが、昨夜は隣人の いびきでよく眠られなかった。
で、今日は15時過ぎまで寝ていた‥‥ と云っても、それなりの頻尿回数があった訳であるが、何とか元気になったのでブログを更新出来た。
JTrim、起動はするが画像が表示されないので困っていたが、思い切ってダウンロードし直したら動くようになった。
下の写真は今朝撮ったもので、リサイズはしたがその他の加工はしていない。
「頻尿もそのうち落ち着くでしょう」と言われたが、高止まりではやれんなぁ～～～
入院してから4週間が終ろうとしている。
明日から放射線治療の週5回の日が続くが、まさに「お通じ」との闘いを実感している...
Excel2013/VBAで計算式をフィルハンドルでコピーする時、直上のセルが ”＝350*0.05" のような場合はコピーせず、セルを参照しているような場合のみ、例えば "=350*(”A11”)” のような場合はコピーする必要性が出てきて作ったコード。
01.Public Function is英字を含む計算式(argセル値 As Variant) As Boolean
02.Dim i As Long
03.Dim lngMojisuu As Long
04.Dim strString As String, str1 As String
05.
06. is英字を含む計算式 = False
07. If argセル値 = "" Then Exit Function
08. If IsNumeric(argセル値) = True Then Exit Function
09.
10. strString = Trim(argセル値)
11. If Left(strString, 1) <> "=" Then Exit Function
12.
13. strString = UCase(strString)
14. is英字を含む計算式 = True
15. lngMojisuu = Len(strString)
16. For i = 2 To lngMojisuu
17. str1 = Mid(strString, i, 1)
18. If (str1 Like "[A-Z]") Then Exit Function
19. Next
20. is英字を含む計算式 = False
21.
22.End Function
最初は、InStr で、文字コードで探していた‥‥
01. is英字を含む計算式か = True
02. lngMojisuu = Len(strString)
03. For i = 1 To lngMojisuu
04. For j = 65 To 90 'A-Z
05. If InStr(strString, Chr(j)) > 0 Then Exit Function
06. Next
07. For j = 97 To 122 'a-z
08. If InStr(strString, Chr(j)) > 0 Then Exit Function
09. Next
10. Next
11. is英字を含む計算式か = False
が、やっていることが判りやすいように Like関数に変えた。
上記でも事前に大文字に変えておけば For～Next は1回で済むが...
（03行の For～Next は不要だよね）
前立腺がんの放射線治療で入院して今日で18日目になる。この間、放射線を浴びたのは12回、基本は5回/週であるが今週も祭日があるので4回だった。
概ね順調だった。
小用回数は2/21に26回を記録した。
昨夜は向かいの方が嘔吐を繰り返し、殆ど眠っていない。看護師さんも二人掛かりで大変だったろうに...
その影響で午前中は殆ど寝ていたため、午前中の小用の回数は少ない。午後からもあっという間に15時を過ぎてしまい おやつ を買いそびれ、天皇誕生日も終わった感じ。今からまた寝ます。
あッ そうそう、今日のお通じは13時前にあった。
