新たな問題

先月の28日に受け取ったPCに、新たな問題が発生。 meetをしようとブラウザを立ち上げると、カメラが写らない。 真っ黒で、ちょっと薄くなるときもあるものの、ほぼ真っ黒。 また問題かよと思いながら、とりあえず事情を説明してmeetに参加した。 その後、社内のFAQをみて、書いてあることを試してみても改善せず。 翌日、某DELLのサポートに電話した。 つながって状況を説明すると、シャッターを開けろいう。 シャッター？と思いつつ、よく見るとカメラの横にスライドする小さなボタンがある。 左にずらすと、普通に写った。 なんだ、普通に写るじゃん！ と、問題解決。 こんな下らんことで、電話して申し訳ないと思いながら、丁重に礼を言って電話を切った。

■

なんだよ、そんなものがあること誰も教えてくれなかったぞっ！ と思いながらも、また面倒くさいインストールをしなくてよいことがわかり、ほっとした。
--
いちじ

風呂道具 IN CAR

11月30日のパトロールで、変わったステッカーを見かけた。 前を走っている車のリアに貼ってあって、黒地に黄色で、青森県のシルエットに『風呂道具IN CAT』と書いてある。 気になって、調べてみると、青森県が企画して作られたみたい。 ラ船協の頃あったらウケたと思われ。
--

通院（202512-01）

きょうは、頭痛外来。 昼前まで仕事して、12時ごろ出発。 40分ほどで到着した。 受付けを済ませ、コンビニでおにぎりを購入した。 食べ終わる直前、13時頃呼ばれる。 予定は13時半からだったので、慌てて診察室に向かった。 なんでも、前の患者さんがキャンセルされたらしく、早く呼んだそう。 経過を聞かれ、軽い頭痛が以前に比べて、多くなったことを話す。 季節性はあるかと問われ、自分的には、そんな感覚はないことを伝えた。 とりあえずは、様子を見るということになり、いつもの薬とカロナールの処方と、3ヶ月後に予約をとってもらい終了。 きょうは、会計もすんなり終わり、13時半に撤収。 駐車場の料金がいつもは数百円から千円を超えることもあるのに、今日は100円だった。 途中、薬局でクスリを受け取り、スーパーで食材を調達して帰ってきた。
--

パトロール（2025-11-30）

懲りずに、きょうもパトロール。 きょうは、バルで、蓋を開けて。 変わったことは無し。

■

夜は、『べらぼう』。 史実を知らないので、なんともだけど、一橋と田沼、松平連合の対決は面白い。 これでお仕舞になるのかしら？
--

パトロール（2025-11-29）

いつものパトロール。 仲間（595）を2台見かけた。 1台は、久留米ナンバーでちょっとびっくり。

■

昨夜の『ドキュメント72時間』は、先週行った原岡桟橋の回『南房総 静かな桟橋で』の再放送。 行ったばっかりなので、驚いた。 そして、今朝のドキュメント72時間の再放送は、『新橋　明日に向かってひとり焼き肉』（初見）。 接客業の女性の話が気になった。 例えば、自分のテンションが客にも移る的な...。 人間を相手にする仕事は、大変だろうなと思う。
--
のち

出社

挙動のおかしいPCを交換するため、出社。 新しいPCを受け取り、もろもろのインストールやら、今のCPからデータのコピーやらを行う。 昼は、いつものF氏と『たもいやんせ』でチキン南蛮を頂く。 午後は、2つも会議を入れられて、セットアップは、なかなか進まない。 ほぼほぼ19時過ぎに終わり帰ってきた。
--

宮本浩次

SONGSに宮本浩次が出演。 エレファントカシマシは、名前は知ってたものの、ほとんど聞いたことはなく、比較的最近、歌番組にソロで宮本浩次が出演していて、存在を認識した次第。 マックのCMで『今宵の月のように』が流れていて、アルバムを購入した。 CMの『今宵の月のように』は、ソロで、カバーしたバージョンだそう。 あとでネットで見たら、配信だけのリリースらしい。
--
ときどき

資格確認書

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

贈り物

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

パトロールはパス

夜中じゅう頭痛が続き、未明にカロナールを投入。 あさ、目が覚めると治まっていた。 元気になったので、恒例のパトロールをと思ったものの、なんだか気分が乗らずパス。 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周年記念オフの動画を教えてくれた。 ボクのバルも登場していた。

■

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

パトロール（2025-11-16）

懲りずに、きょうもパトロール。 晴海通りで、信号待ちをしていると、右に、小さい車が止まった。 ミニかと思ったけど、もっと小さい。 向こうが先に発進して、横や後ろも見ると知らない旧車のクーペだった。 あとで調べると、Abarth 750らしい。 違うかも。
--
のち

酷道をめぐる

また、ちょっとした気の迷いで、房総の酷道をめぐる旅に出た。 環七から京葉道路、館山道を市原ICまで走り、297号で牛久、県道81号を老川十字路まで、そこから県道178号、会所から町道会所麻綿原線で麻綿原高原、林道奥谷線で内浦、内浦から県道285号で128号に出た。 ちょっと東進し、日蓮交差点から伊南房州往還に入る。そのまま、128号を越え北上、台宿で県道82号に入り、南進して128号に戻ってきた。 128号を西進して、鴨川、江見、和田から県道297号房総フラワーライン、410号で千倉の浜の郷でクジラを頂く。 県道187号を西進、館山から県道88号を北進、長狭街道を越え更に88号を北進。 465号に出て西進のあと、館山道に沿うように北上、富津中央ICから館山道に乗り、アクアライン経緯で10号を晴海ランプまで。 あとは、いつものパトロールのコースで帰ってきた。
--