と云っても腎臓ではなく、カテの刺入部が痛い。
背中をたたいても響くような痛みはないし、この前の検体検査でもCRPの値はそれほど高くなかったので腎臓は大丈夫だと思われ。
--
☁
みつかった
新潟県五頭連山で遭難した親子とみられる遺体が発見された模様。
当然、予想した結末ではあったんだけど、良かったんだか悪かったんだか。
てか見つからないよりはよっぽど良いか...。
どこぞで別の人生を生きてるのかなんて妄想したけど、ただ遭難しただけだったみたいね。
--
☁ のち ☂
--
☁ のち ☂
今朝
ラジオで聞いたんだけど、中華民国と国交断絶する国が増えてるらしい。
米朝首脳会談の話題に隠れて、ほとんど報道されることもないようだけど、最近も2つの国が断絶したらしい。
当然、バックには中国の思惑があるんだろうけど、どうやらそれだけでもないらしい。
そして、仮に国交する国が1つも無くなったら、独立することになるかもみたいな話しもしていた。
どうやら、2つの中国ではなく、まったく別の国になることになるみたい。
ボクにはよくわからんが...。
何れにせよ、米朝の駆け引きに限らず、国際政治の権謀術策は難しくてついていけない。
--
☁ のち ☀
--
☁ のち ☀
通院
東大から紹介された大腸外科の新しい病院の初めての外来。
ここは、土曜日もやっているので仕事は休まなくても済む。
ほぼ時間通りに呼ばれて診察室に入ると、入院時の主治医が待っていた。
その後の経過を話し、薬を処方してもらい、次回の予約をして終了。
ほんの30分ほどで病院を後にした。
東大よりよっぽど早い。
--
☀
--
☀
通院
前回の入院で受診できなかった腎臓内分泌内科とストマ外来。
いつの間にか検体検査もオーダーされていて、内分泌の受診は1時間ほどおくれた。
受診してわかったんだけど、先生が予約が入ったので検体検査のオーダーを入れてくれたそう。
結果もぼちぼちというところ。
次回の予約をして終了。
続いて12時からストマ外来。
時間があるのでちょっと病院を抜け出して御徒町で買い物。
ストマ外来は、佐々木さんも長期休暇だそうで、初めてのナース。
両方のパウチを順に交換する。
新しいパウチの紹介をしてもらい半年後の予約を取ってもらい終了した。
--
☀
--
☀
イマイチ
--
☀
図柄入りナンバープレート
が決定したらしい。ニュースでやってた。
図柄入りもいいんだけど、欧州連合と同等の1:5のアスペクト比のプレートを導入してほしい。
むかし、そんな話もでてたけど、立ち消えになったみたいだし。
それこそ、現行の形状と欧州の形状を選択できるようにすればいいのに。
--
☁ のち ☂
--
☁ のち ☂
通院
きょうは、カテ交換。
ほぼほぼ予約の時間に呼ばれ、次回の予約をした後、処置。
サクッと終了した。
幸い、痛みもない。
相当早く終わったので、ちょっとツーリングがてら実家に。
お昼をご馳走になり、暇。
両親も高齢になり、特に母親は耳が遠くなりなかなか会話が成立しない。
そんな母親を見てるのは、なんだか切ない。
ろくに親孝行もしないままでこの歳になってしまい、両親にはまったく申し訳ないことだ。
帰る途中、この夏用のワードローブを購入。
また散財する。
--
☀
--
☀
ボンゴレ・ビアンコへの道
昨日狩ったあさありでボンゴレを作ろうと思い、必要な食材を調達した。
家に帰り、いざ作ろうと思ったものの、おなかがいっぱいな感じで食べられそうにないので断念した。
明日、作ろう！
--
☀
--
☀
狩る
--
☀
気になること
新潟の少女が殺害された事件、犯人の人となりがイマイチ不明な感じ。
それよりもボク的には、同じく新潟で遭難した親子の方が気になる。
6日に連絡があってから既に10日以上経過しているのに不明のまま。
目撃情報はあるみたいだけど、他に手掛かりがない（コンビニの画像は知ってる）ってどういうこと？
実は、とっくに下山していて何処かで別人として生活してるとか？
--
☀
以下、NHK NEWS WEB 5月16日の記事を引用する。
今月５日、新潟県阿賀野市の五頭連峰に登山に出かけた親子の行方は、今も分かっていません。
警察や消防などは、捜索活動の開始から１０日目となる１６日も行方を捜しましたが見つからず、１７日以降も捜索することにしています。
今月５日、新潟県阿賀野市の五頭連峰に登山に出かけた新潟市北区の会社員、渋谷甲哉さん（３７歳）と、長男で小学１年生の空くん（６歳）は今も行方が分かっていません。
警察や消防などは、捜索活動の開始から１０日目となる１６日も、６０人あまりの態勢で、親子が向かったとみられる松平山の登山道周辺の急な斜面や沢などを中心に捜しましたが、親子は見つからず、午後６時に中断しました。
阿賀野警察署の穴沢隆次長は「全力を尽くして親子の発見と救助に努めたい。なにか手がかりがあればぜひ連絡してほしい」と話していました。
警察や消防などは、１７日以降もすでに調べた場所も含めて、捜索することにしています。
（http://www3.nhk.or.jp/lnews/niigata/20180516/1030003198.html）
☀
ブックカバー
--
☁
まだ寒い
世間では、真夏日だとか。
TVのニュースや天気予報では、『きょうも暑かったですね』なんて云っているけど、本当か？
朝は平気になったけど、昼間、仕事場の空調が寒い。
帰りの電車も空調が寒い。
ボクの感覚は、そんなに世間とズレているのかしら？
--
☀
--
☀
クラウドサービス
件の2010年以前のページの画像をどうしたもんかとずっと考えていたんだけど、OneDriveが良さそうと云う結論に達した。
今のブログ（Blogger）の画像は、ただアップするだけで管理はBlogger任せでいいんだけど、以前のページは自分でフォルダを切って画像とかcgiとか管理していたので、クラウド上もフォルダを切って管理したいと思っていた。
BloggerもGoogleの傘下なので、当然GoogleDriveの利用を考えたのだけど、どうにもGoogleDriveにアップした画像を表示させることができない。
ネットにいろいろ情報が出ているけど、結局ボクには表示させることができなかった。
で、ナニかいいクラウドサービスはないかと探していたら、OneDriveが出ていて、そうだこれがあったと思い出した。
OneDriveは前から利用していたので、ちょっと試してみると画像を埋め込み表示させるコードを自動生成してくれる機能があり、そのコードをブログに張り付けてみるとすんなり画像が表示された。
なんだ、簡単じゃん！と云うわけで、当面はOneDriveを使ってみることにした。
--
☀
--
☀
寒い
今朝の気温は16℃台。
電車を待ってるときや、電車に乗ってからも寒かった。
５月も半ばだし、16℃ってどうなんだろう？
去年は、5月になっても寒いなんて感じなかったと思うんだけど。
やっぱ、代謝が変なんだろうか？
流石に昼間は寒いとは思わなかったけど...。
--
☀
--
☀
朝練
--
☁ のち ☂
ボタンコントロールにパラメータ付きの関数を登録する
■ ボタンを作るコード
Private Sub MakeButton(ByVal row As Long)
'
' @brief ボタンを作る
' @note
' @date May 10, 2018
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim strOnAction As String
' strOnAction = "'Module1.UpdateButtonClick " & Chr(34) & row & Chr(34) & "'"
strOnAction = "'UpdateButtonClick(" & row & ")'"
' strOnAction = "'UpdateButtonClick(""" & row & """)'"
' ボタンを作成
With ThisWorkbook.Sheets("MailAddressData").Buttons.Add(Cells(row, 5).Left + 1, _
Cells(row, 5).Top + 1, _
Cells(row, 5).Width - 1, _
Cells(row, 5).Height - 1)
.OnAction = strOnAction ' ハンドラ関数（文字列）
.Font.Size = 8 ' フォントサイズ
.Font.name = "Meiryo" ' フォントファミリ
.Characters.Text = "Update" ' キャプション
End With
End Sub
■ ボタンをクリックしたときに呼ばれるコード
'Private Sub UpdateButtonClick(ByVal ClickRow As String)
'Public Sub UpdateButtonClick(ByVal ClickRow As String)
'Private Sub UpdateButtonClick(ByVal ClickRow As Long)
Public Sub UpdateButtonClick(ByVal ClickRow As Long)
'
' @brief ボタンがクリックされた
' @note
' @date May 10, 2018
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim strMailAddress As String
Dim strPageUrl As String
Dim objIE As Object
' オープンするURLを作る
strMailAddress = ThisWorkbook.Worksheets("MailAddressData").Range("A1").Offset(ClickRow - 1, 0).Value
strMailAddress = Replace(strMailAddress, "@", "%40")
strPageUrl = PAGE_URL & strMailAddress
----- 以下企業秘密のため省略 -----
注）PAGE_URL はConstで定義している文字列
お蔭さまで上手くいった。
そうそう、呼ばれる側、Publicにしないとうまく行かない。てか、標準モジュールに書いてるのがいけないのかもしれない。
シート側に書いて、シート名で修飾してやれば上手くいくのかも...。
--
☁ のち ☀
契約更新
職場の偉い人との面談があり、6月からの半年も契約を続けたいとの話しがあった。
ボク的には、願ったり叶ったりなのでよろしくとお願いした。
ただ、欠勤は仕方ないにしても、就業中の居眠りが自分でも酷いと思われるので、その旨話すと会社的には、それも織り込み済みなので気にしなくていいと云ってくれた。
なんて優しい会社なんだろう。
まあ、給料が安いのが玉に瑕なんだけど。
てか、仕事中に寝てることを考えれば文句は云えない。
--
☂ のち ☁
--
☂ のち ☁
連休最終日
天気も良いし、昨日はうとうとしただけだったので、ちょっと走りに行ってきた。
プント乗りの子供が、よく行ってるらしい筑波山を目指す。
常磐道は、安定して空いているのがうれしい。
ナビと標識に云われるがまま適当に進む。
山の西側から登って、ケーブルカーの近くを通り、ロープウェイの駅でちょっと休憩して、登ってきたルートより東側のルートを下りつくば市に戻ってきた。
ルートはそれなりに良いんだけど、登り下りとも前に遅い車がいて結構ストレスがたまった。
やっぱり普通の時間帯に峠を攻めるのは無理な気がする。
つくば市街から、長男に電話してちょっと顔を見せたいと云うとおっけーしてくれたので寄り道をする。
上の子は相変わらず単語しか話せないが、2人とも会うたびに成長が感じられる。
小一時間ほどお邪魔して、昼過ぎに出発。
1時過ぎには自宅に帰り着いた。
--
☀
--
☀
飯田への道（2日目）
飯田への道（1日目）
--
☂ のち☀
流す
昨日、きょうは仕事を休んで週明けから仕事に行く予定。
で、きょうは、久しぶりに都内を流してきた。
ふたを開けるのも年が明けて2度目くらい。
やっと気持ちいい季節になった。
相当久しぶりだったので、記憶と違う景色がちらほら。
ルートは変わらず環七から湾岸道路を西進、晴海通りを北上して、銀座、桜田門、半蔵門と進み千鳥ヶ淵の交差点を右折し竹橋に抜け、専大前を右折。
神保町から駿河台下を左折して明大前、JR御茶ノ水駅を通って外堀通りに入り順天堂前を右折して北上。
本郷消防署前を右折して春日通りを暫く進み厩橋で隅田川を越えて更に進み、本所三丁目を左折して三ツ目通りから6号に入って帰ってくる。
約2時間、いい息抜きができた。
--
☀ のち ☂
--
☀ のち ☂
通院
退院の翌日は、通院日。
きょうは、循環器内科。
採血のあと診察。
病院に着くのが予定より遅くなってしまい、受診時間も採血結果が出るのに連動して遅れる。
入院の顛末を話すと、利尿剤とワーファリンの処方を循環器内科で処方することのなった。
そして、カルベジロールの処方量が増える。
--
☀
--
☀
Subscribe to:
Posts (Atom)