資格確認書

懸案だった資格確認書が送られてきた。 ボク的には、立憲民主党ががんばっていたので、マイナ保険証の阻止もワンチャンあると思っていたけど、ダメだった。 そんなわけで、いまだにマイナンバーカードを持っていないのだけど、そろそろ作る手立てを講じないといけないかなと思っている、きょうこの頃。
--

贈り物

高知の叔母から、贈り物が届いた。 手作りの干し柿と、郷土のお菓子が詰まっていた。 同封の手紙によれば、ほかの叔父や叔母も高齢になり、なかなか厳しい生活を送っているらしい。 夜、お礼の電話をする。
--
ときどき

パトロールはパス

夜中じゅう頭痛が続き、未明にカロナールを投入。 あさ、目が覚めると治まっていた。 元気になったので、恒例のパトロールをと思ったものの、なんだか気分が乗らずパス。 BSでやっていた『新幹線大爆破』を見る。 いままで、見た記憶はなさそう。 パニック映画ではあるのだけど、良い悪いではなく、なんとなく日本的なしめっぽい感じがした。 最後は、射殺されるのね。 あとで、wikiを見たら、リブート版が最近Netflixで公開されたそう。 こっちも見てみたいな。
--
のち

頭痛

終日頭痛で死んでいた。 そんな中、途中から途中までコロンボを見て、大相撲中継の最後のほうを見る。 大の里の休場には、びっくりした。 不戦勝で豊昇龍が優勝かもと思っていたけど、安青錦が本割で琴桜に勝って優勝決定戦になる。 ボク的には、安青錦を応援していたので決定戦も勝って優勝できて良かった。
--

面会

久しぶりに、母親の面会に行ってきた。 前回は、ベッドの上での面会だったけど、今回は、車椅子での対面だった。 食事も摂れているそうで、前回より状況は良い模様。 本人曰く、食事はあまり美味しくないそう。 ボケも進んでいるようで、ボクのことを理解しているのかも怪しい感じ。 30分弱で暇した。

■

面会の後、またちょっとした気まぐれで、富浦の原岡桟橋を訪れることにした。 袖ヶ浦ICからアクアライン連絡道に上がり、木更津JCTから館山道を南進。 富浦ICまで走り切り、127号をちょっと北上して原岡桟橋に到着。 土曜日の昼とあって、そこそこ観光客がいる。 しばらく、散策して撤収。 帰りは、そのまま127号を北上。 磯根崎に寄り道して、からめんや Maruでみやざきからめんを頂く。 さらに県道157号を北上、16号で木更津、木更津港をめぐる県道を北上して木更津金田ICからアクアラインに上がった。 14時を過ぎていたけど、橋の途中までは渋滞もなく、普通に進んだ。 トンネル内は渋滞でも流れてはいて、そのまま、湾岸線を進み、C2経由で返ってきた。
--

色選択ダイアログの怪

セルに色を付ける処理で、あらかじめ色をユーザが設定できるようにしようと思い、Excelに組み込まれている色選択ダイアログを表示するコードをいつもの生成AIに教えてもらって書いてみた。 ところが、実行時エラーになって上手くいかない。 更に質問を重ね聞いてみるも、表示できず、エラーになる。 ネットを見ても、生成AIが教えてくれたコードとほとんど同じなので、みんなこれで表示できているように思われる。 なんでエラーになるんだろうと思いながら、ネットに出ていたあるページのコードをコピペして実行するとすんなり表示できた。 生成AIのコードと、そのコードの違いは、ダイアログを表示する関数の引数が違うだけだった。 後から、再生AIに聞いてみると、やっぱり引数を与えることで表示できるようになったという回答。 それなら、最初っからそのコードを教えてくれればいいのに...というのが、最近、生成AIを使っていてよく思うこと。

■ 上手くいくコード
  Application.Dialogs(xlDialogEditColor).Show(Index, R, G, B)

  引数
  Index     Variant  任意変更したいカラーパレットのスロット番号（1～56）
  R         Variant  任意初期色の赤成分（0～255）
  G         Variant  任意初期色の緑成分（0～255）
  B         Variant  任意初期色の青成分（0～255）
  戻り値は、ダイアログのOK（True）/ キャンセル（False）

■ ダメなコード
  Application.Dialogs(xlDialogEditColor).Show()

  引数がないと、現在アクティブなセルの背景色をセット
  戻り値は、ダイアログのOK（True）/ キャンセル（False）

--

通院（2025-11-20）

きょうは、外科のフォローアップ。 午前中、仕事して、12時半ごろ出発。 13時15分ごろ到着。 受付を済ませ、外科のフロアに移動。 14時からの予定が、13時半に呼ばれる。 経過と、次回の世楽、処方箋を出してくれ、1、2分で終了。 会計も5分ほどで終了。 帰りに、薬局でクスリを受け取り、スーパーで食材を調達して帰ってきた。
--

クラスの罠

この前、書いた通りクラスを作ってレコードをDictionary（辞書）に突っ込むコード。 できたので、Dictionary からキーで引いてみると正しいレコードが引けないことが分かった。 生成AIと相談しながら、やっと解決できた。 Dictionary に突っ込むとき、インスタンスを New して突っ込んでるんだけど、その変数の定義位置が原因だった。 ダメな方のコードも生成AIに教えててもらったんだけどね。

■ ダメなコード

    Dim iRow          As Long
    Dim iLastRow      As Long
    Dim dictProduct   As Object        ' Scripting.Dictionary

    ' 辞書を作る
    Set dictProduct = CreateObject("Scripting.Dictionary")

    ' ワークシートを変数に仕舞っておく
    Set wsSource = Wb.Worksheets(1)

    iLastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row

    For iRow = 2 To iLastRow
        ' インスタンスを作る
        Dim recordData      As New ProductCategoryRecord

        ' A列 CONT_HIN_CD 品目コードをキーとする
        key = wsSource.Cells(iRow, 1).value

        If key = "" Then Exit For
            ' レコード情報の読み込みと構造体への格納
            recordData.ContHinCD = key                              ' CONT_HIN_CD
            recordData.ShouhinDiv = wsSource.Cells(iRow, 2).value   ' SHOHIN_DIV
            recordData.Course = wsSource.Cells(iRow, 3).value       ' COURSE
                .
                .
                .

■ おっけーなコード

    Dim iRow          As Long
    Dim iLastRow      As Long
    Dim dictProduct   As Object        ' Scripting.Dictionary
    Dim recordData    As ProductCategoryRecord

    ' 辞書を作る
    Set dictProduct = CreateObject("Scripting.Dictionary")
    
    ' ワークシートを変数に仕舞っておく
    Set wsSource = Wb.Worksheets(1)

    iLastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row

    For iRow = 2 To iLastRow
        ' インスタンスを作る
        Set recordData = New ProductCategoryRecord

        ' A列 CONT_HIN_CD 品目コードをキーとする
        key = wsSource.Cells(iRow, 1).value

        If key = "" Then Exit For
            ' レコード情報の読み込みと構造体への格納
            recordData.ContHinCD = key                              ' CONT_HIN_CD
            recordData.ShouhinDiv = wsSource.Cells(iRow, 2).value   ' SHOHIN_DIV
            recordData.Course = wsSource.Cells(iRow, 3).value       ' COURSE
                .
                .
                .

--

通院（2025-11-18）

きょうは、腎臓内分泌内科と循環器内科のフォローアップ。 朝ドラを見て出発。 きょうは、この時間にしては珍しく空いていて、1時間足らずで到着。 いつものように、受付けを済ませ、採血。 お茶を買って、内科のフロアに移動して、呼ばれるのを待つ。 普段は、そこまで待たされないのに、今日は予定より1時間近く遅れt呼ばれる。 経過を話したあと、採血の結果の説明。 クレアチニンの値は横ばい。 フロセミドの服用を体重見合いで飲んだり飲まなかったりしている効果が出ているのかも？ ほかの値もおおむね良好。 それから、そろそろ上部内視鏡をやらないかと、先生のほうから言ってもらい、お願いした。 次回の予約と処方を出してもらい終了。

■

診察が遅れたせいで、次の診察まで2時間ほどになってしまった（本来は3時間近くあったはず）ので迷ったものの、ちょっと病院を抜け出して、外苑のイチョウ並木を見に行くことにした。 病院からは、30分ほどで到着。 平日だというのに、すごい人ででびっくりした。 ちゃんと写真を撮るなら、千鳥ヶ淵みたいに早朝に行かないとダメそう。 しょうもない写真を撮って、病院に引き返した。 帰りも30分足らずで戻ってきた。

■

循環器は、ほぼ予定通りの時間に呼ばれる。 経過を聞かれ、腎臓内分泌から、フロセミドを減らすように言われて、ほぼ一日おきに飲んでることなんかを話す。 血圧も測ってもらい、110くらいで問題なし。 あさ測ると、130を超える時があると話すと、一般的にあさのほうが高いので、気にしなくていいそう。 次回の予約とクスリを処方してもらい終了。 会計も比較的早く済んで、14時半過ぎに撤収。 途中、クスリを受け取り、給油をして帰ってきた。
--
いちじ

Happy Barchetta Meeting Movie

バル友の山村さんが10月30周年記念オフの動画を教えてくれた。 ボクのバルも登場していた。

■

終日、軽い頭痛。 あさ、カロナール投入するも改善せず。
--