復帰

きょうから仕事に復帰。 休み前に作り掛けだったVBAを完成させた。 ここでまた不可解な現象が起きて、色々調べたら例の修飾の問題で解決することが出来た。 下のコードを参照。

■

それから書いているコードは、過去の直近の営業日を求めるコードなんだけど、これも例によってネットを見ると、ワークシート関数の"WorkDay"関数を使えば良いと出ていた。 この関数、基準日と、求めたい日との差（過去はマイナス）、祝祭日のテーブル（必要であれば自社の休みも含めたり）の3つの引き数を与えると土日、祝祭日を勘案して求めたい営業日を返してくれる。 確かに、その通りの結果を返してくれた。

■

普通のときはそれでいいのだけど、年を跨いだときに上手く行かない。 ネットに出ている例は、年ごとの祝祭日テーブルを指定するようになっている。 年が変われば、その年用の祝祭日テーブルを指定し直す。 至極真っ当な処理だと思うので、同様の実装をしたのだけど、例えば1月2日を基準日として指定すると前営業日は去年の12月31日と返してくれる。 それはそうだ。そういう指定をしているのだから。 でも、返してほしいのは年末の休みになる前の12月27日（今年の年初を指定した場合）を返してほしいのよ。

■

ちょっと考えて、求める日が去年になるような場合は、テーブルを去年用に挿げ替えるとか。 でも、去年まで行かないかもしれないし、どうもそれは複雑になりすぎて違う気がしてきた。 困ったときのネット頼み、探してみたけど、そんな例はで出て来ない。 困ったなあと思いながら、あれこれ考えてみると、今年のテーブルに去年の年末の休みを追加すればどうだろうとひらめいた。 やってみるとバッチリ。 想定してた日付が返ってきた。 やれば出来るじゃん！

    ' 例によって変数宣言は割愛


    ' 今年のデータ数を得る
    MaxRow = ThisWorkbook.Worksheets("Holiday").Range("B1"). _
                    Offset(0, iColumn).End(xlDown).Row

    ' ダメなコード（Cells()の修飾がない）
'    Set rngHoliday = ThisWorkbook.Worksheets("Holiday"). _
                  Range(Cells(2, 2 + iColumn), Cells(MaxRow, 2 + iColumn))

    ' おっけーなコード（Cells()も修飾している）
    Set rngHoliday = ThisWorkbook.Worksheets("Holiday"). _
                 Range(ThisWorkbook.Worksheets("Holiday").Cells(2, 2 + iColumn), _
                 ThisWorkbook.Worksheets("Holiday").Cells(MaxRow, 2 + iColumn))
    
    ' 前営業日を求める
    valDay = Application.WorksheetFunction.WorkDay(dDate, -1, rngHoliday)
    dDate = valDay                              ’ Variant型からDate型に変換




’ テーブル例（Excelのシートのどこぞのセル）

    休日名称            2020年
-----------------------------------
    自社休日        2019-12-28
    自社休日        2019-12-29 
    自社休日        2019-12-30
    自社休日        2019-12-31
    元日            2020-01-01
    自社休日        2020-01-02 
    自社休日        2020-01-03
    成人の日        2020-01-13
    建国記念の日     2020-02-11
    天皇誕生日      2020-02-23
    休日            2020-02-24
    春分の日        2020-03-20
    昭和の日        2020-04-29
    憲法記念日      2020-05-03
    みどりの日      2020-05-04
    こどもの日      2020-05-05
    休日            2020-05-06
    海の日          2020-07-23
    スポーツの日    2020-07-24
    山の日          2020-08-10
    敬老の日        2020-09-21
    秋分の日        2020-09-22
    文化の日        2020-11-03
    勤労感謝の日    2020-11-23
    自社休日        2020-12-29
    自社休日        2020-12-30
    自社休日        2020-12-31

--

リハビリ

きょうは、大事をとって休むことにした。 ネットを覗いていると、Twitterのトレンドにオリンピック中止、AKIRAの文字が。 ナニナニ、ツイートを見てみると、新型コロナウィルスの影響で中止か？、オリンピック中止はAKIRAと一緒やんみたいなツイートが並んでいる。 中止はデマらしいが、IOCとWHOが接触をしたとドイツのDPA通信が伝えたのは事実らしい。 ボク的には、是非中止してもらいたいと思っているのだけど。
--

退院

尿路感染の発熱による入院も点滴の抗生剤で完治した模様。 右腎ろうのわき漏れは、相変わらずなものの入院の要因とはならず退院となった。 依然、しんどい感もなくなった訳ではないものの大分楽になったかもしれない。 体重も入院前より1～2kgほど改善した。
--

きょうは

医師団の回診もない。 午後、シャワー。

■

夕方、医師が退院後の受診について知らせに来る。 その後、夕食時医師団が回診。 予定通り明日の退院を告げに来た。
--

あまり

進展はなし。 朝の回診で、打つ手もないのでもう一度右の腎ろうを交換してみようと云うことになった。 昼食後、12月まで外来で交換をしてくれていた医者が登場し、病室のベッドの上で交換してくれた。 その後、予定されていたシャワーを浴びて、腎ろうの刺入部の処置をしてもらい、やっと一段落。 大した事はしてないのにやっぱりしんどい。

■

夕食後、回診。 様子を聞かれたので、漏れは少なくなっている旨を話す。 退院の話しになり、明日か明後日と云われ、明日と云われても心の準備がナニなので明後日にしてもらう。
--

入院4日目

はや入院も4日目。 日曜日は、いつにも増して閑散とした感じ。 朝の食事のあと、看護師の夜勤と日勤が交代で顔を見せたとき、パウチが漏れて急遽シャワーを浴びることになった。 午前中、きのうは顔をみせなかった医師団が、きょうは1人顔を見せた。 相変わらず右のわき漏れは続いている旨を話すと、普段の様子を聞かれた。 普段は交換後に漏れることはあるけど、最近はないこと、漏れも1日くらいで収まりこんなに続くことはなかったことを話した。 体調は大分戻ったものの、わき漏れが続くと日常生活が不便でしょうがない。 夕方は、大相撲。 心情的には正代に優勝して欲しいと思ってTVを見ていた。 本割りで勝ったので、結びの徳勝龍貴景勝戦の結果を待つ。 結びは、徳勝龍が圧勝。 勝ったときの徳勝龍の涙にはもらい泣きした。 幕尻の優勝は20年振りらしい。 遠藤も優勝争いには関われなかったけど殊勲賞を受賞した。
--
のち

食事会

きょうは恒例の月イチ食事会の日。 ボク以外は、全員集まれたらしい。 長男一家が気を利かせて病院まで見舞いに来てくれた。

■

体調は、変わらず熱が下がってもう普通の感じ。 右腎ろうのわき漏れがなければ、外で生活できるレベル。 不思議と食後の膨満感や胸やけも起きない。
--
のち

入院2日目

きのうは、あんなにしんどかったのに、きょうは大分元気になった。 相変わらずわき漏れが酷い。 午後シャワー。 夕方CT。

■

日によって、こんなにしんどさが変わるのも困ったもんだ。 てか、1日ほほほぼベッドの上にいたからかもしれない。 それから、あんなに食べられなかった食事が、ここでは3食ペロリと平らげられた。 全然苦しくない。 確かに量は少ないけど、入院前に食べていた量はもっと少なかったはずだ。

■

CTの帰りに手に入れたTVカードでドラマ10の新作を途中からとドキュメント72時間をみる。 ドラマ10は、予告編の通り面白そう。 72時間の方は、秋葉原の千石電子が舞台。昔ハード屋さんに頼まれて何度か行ったことがある。
--

通院からの入院

きょうは、元々のカテ交換と腎臓内分泌の受診なので病院に向かう。 昨日からしんどいのがたまらず、右の刺入部も痛たくて、さらに右腎ろうからのわき漏れもあり、入院して面倒を見てもらおうと思いなおし、泌尿器科を受診。 いつもの野崎先生に泣きついて入院をお願いした。 直ぐに了解してもらい入院の手続きをはじめてくれた。 元々予定されていた採血を済ませ、腎臓内分泌を受診したら再び泌尿器科の外来に戻って来るように云われた。 採血後、腎臓内分泌で待つものの予約時間から1時間経っても呼ばれず、ナースステーションで聞いてみると、入院になったため腎臓内分泌の受診はキャンセルになった模様。 色々話したい事もあったのに残念。 泌尿器科に戻り経過を説明すると、入院日の受診はグレーゾーンではあるんだよねと野崎先生。 入院の手続きは出来ているようで、入退院センターに行くように云われセンターに向かった。 何時もの手続きのあと病棟に上がり無事病院の人となった。 病棟は泌尿器科が一杯らしく2階上の10階北。 担当の看護師が昔何度か看てもらったことのある人でお互いにびっくりした。 殆ど死んでいたので云われるがまま大人しく過ごした。 そうそう、下っ端の若い先生が1発でルートを取ってくれて驚いた。
--

引き続き

調子が芳しくない。 あすは通院日だけど、きょうをやり過ごせないように思い休むことにした。 熱も出ていたし、腎臓もなんだか痛いように思っていたら、わき漏れがありこれは詰まっているかもと思い、病院に電話して診てもらうことにした。 病院で熱を測ると9度2分まで上がっていて、あわや入院かもと云うことになったけど、採血と交換で抗生剤を処方してもらい、明日も調子悪ければ受診すると云う約束で帰ってきた。
--

しんどい

なんだか今朝は、やけにしんどかった。 やっとの思いで駅まで歩き、ホームのベンチで一休みして、来た電車にのり次の駅で降りる。 10分ほど待つと隣の駅始発の電車がやってきて、それに座ってうとうと。 ほぼ30分ほどで表参道に着き、銀座線に乗り換えて1駅で渋谷。 さらに井の頭線で1駅。 坂の多い街を上ったり下りたりして会社の前のコンビニでコーヒーを買ってビルに入ってエレベーターに乗れば、やっと仕事場に着く。 1日、なんとかこなして帰ってきた。
--

Facebookで

津布久さんが紹介していた『ピーマンの塩炒め』のレシピ。 これなら、家にある材料ですぐできると思い先日挑戦してみた。 オリーブオイルは消費期限が怪しかったのでサラダオイルで代用したけど。 作るのも簡単だし、その割に結構美味しい。 また作ろうかと思いきょう帰りに寄ったスーパーでピーマンを見るとヤケに高かったので今回はパスした。
--

正しい休日の過ごし方

ほとんどベッドの上でウトウトしたりTVを見たり。 全国都道府県対抗男子駅伝は、埼玉が行くのかと思っていたら結局3位でちょっと残念。 高知は47位だったのが2人抜いて45位だった。 大相撲も、見られる時には見ているのだけど、もう贔屓の力士も居なくなってあまり身が入らない。 そんななか、遠藤と炎鵬はちょっと応援している。 奇しくもきょうは直接対決。 星的には遠藤に勝って欲しかったけど、炎鵬が勝った。 そして、満を持して始まった大河ドラマ『麒麟がくる』。 まあ、いいんじゃない（偉そう）。 きっと1年間見ることになりそうな予感。
--

偵察

バルの様子を見に小川町まで行ってきた。 天気は生憎の雪が舞っている。 ボク的には、この冬初めて。 借りている代車はスタッドレスなので大体安心ではある。 いちみんさんの都合で午後3時ごろ到着。 暫く待っていると帰ってきた。 早速、板金屋さんに移動。 平地は平気だけど、向こうの山が薄っすら雪化粧だ。 塗るのがもう始まっているかと思ったら、まだ。 フロントガラスを取り外したと云うのはいちみんさんから聞いていた。 サイドマーカーの板金は終わっている。 板金屋さんに話を聞くと、今月中は無理らしい。 まあ、しょうがない。 時間よりもきれいにやってねとお願いして撤収した。 いちみん邸にもどり、代車のオイルを補充してもらい帰路に就いた。
--
のち

渋谷駅の

銀座線問題。 今は、旧発車ホームと新ホームの間に、旧線が横たわっていて分断されているのだけど、そこを繋げてやれば、以前使っていた階段やエレベーターが利用できるようになるので、今のひどい動線が多少はマシになると思うのだけど、そんなことはだれも考えないのだろうか？
--

昨日

遅かったし、帰りにしんどかったので、きょうは休みかなと思っていたけど、起きると休むほどでもなく、ちゃんと出社した。 今朝は、千代田線が遅れていて表参道でいつもの銀座線に間に合わず、仕事場に着くのが10分ぐらい遅くなった。 電車が遅延する要因なんてないと思うんだけど、たまーに遅れることがある。
--

新年会改め

職場の仲間と新年会の予定が、1人休んだためそのサポートで2人が抜けることになり、結局参加できるのはボクを含めて2人だけになった。 もう一人はいつものF氏。 そこで予定を大幅に変えて、F氏の案内で三軒茶屋のチャンポン屋とバーに向かうことになった。 三茶は、彼が少年時代から大学まで暮らした街らしい。 チャンポン屋は、無茶苦茶量が多い。 チャンポンと半チャーハンのセットを頼んだのだけど、版チャーハンは普通の中華屋の1皿と同等。 チャンポンも相当量が多い。 新年会のために、朝昼と調整していたのだけど、両方とも完食できなかった。 そして、バー。 ボクはバーって初体験。 JAZZを聞かせてくれる店らしい。 腹ごしらえをして、店に向かうも閉まっている。 時間が早すぎて開店前だとわかり、近くのイートインでコーヒーを飲んで時間をつぶした。 再び店に向かう。 ドアを開けると、右側にカウンターがあり椅子が8脚ほど並んでいる。 左側はテーブル席になっているけど、使われてはいない模様。 狭いカウンターの手前にはターンテーブルが回っていて、結構な音量でジャズが掛かっていた。 カウンターには、小柄で優しそうな高齢の女性が立っていた。 F氏の話しによると先代のマスターの奥様とのこと。 F氏は、バーボン、ボクはピンクレモネードをオーダーした。 ピンクレモネードは、酸味と甘みが絶妙でクセになりそう。 色々ジャズの蘊蓄を聞くことが出来た。 それから、いろんなバージョンの『TAKE FIVE』を聞かせてもらった。 客は、ボクらだけだったんだけど、帰るころちらほらやって来た。 なかなか貴重な体験が出来た。
--
のち

体調の行方

日によって、やけにしんどい日と、割と普通の日がある。 体重が去年の夏から徐々に下がり始め、約4kgほど軽くなった。 たぶん、体重が減ったせいでしんどいとは思うのだけど...。 そして、食欲がないわけではないのだけど、胸焼けてか膨満感てかで3食は満足に食べられなくなった。 なんだか悪循環。
--

普通の担々麺

が食べたくなり、近くのバーミヤンに。 前は日高屋にあったんだけど、無くなってしまった模様なので、バーミヤンにしてみた。 まさしく普通の担々麺で、満足した。 ただ、トッピングの野菜が日高屋はチンゲン菜だったけど、ここはホウレン草でそこだけはちょっと残念。
--

たまたま

髙村薫原作のドラマをやっているのを見つけて、途中から見た。 そこはかとなく髙村臭が漂っていて楽しめた。 終わってチャネルを回していると、既に大相撲初場所がはじまっていた。 このところ、贔屓の力士もいなくなり、あんまり興味なくなったけど、炎鵬の取り組みは面白いかも。
--
のち

牛すじ煮

冬になると前の仕事場でランチに通っていた焼肉屋の牛すじ煮が無性に食べたくなる。 たまたま子どもも休みだったので、みんなでランチに向かったまでは良かったのだけど、もしやと思い店に電話してみると、これが出ない。 11時半過ぎても出ないところをみると、休みかもしれない。 前に聞いたときには、土日もランチ営業してると云ってたけどなあ。 しょうがないので途中から引き返し、近所のいつもの焼肉屋でランチとなった。
--

ソートの罠

あるシートのデータを条件によってソートするコード。 何回か書いたことがあるけど、もう忘れているので何時ものようにネットをググれば解答例がいっぱい出てくる。 同じように書いて、勿論条件は自分の必要な条件に書き換えて実行してみると、上手く行く時と、ソートしなかったり、実行時エラーになる時がある。 いろいろやってみて、やっとわかった。 SetRengeメソッドでセットするRengeの修飾が抜けていたので、開いているシートによって結果が違っていたみたい。 ネットの例では、Withステートメントで書かれていたんだけど、With使うのあんまり好きじゃないので都度修飾する文を入れていたのだけど、SetRengeメソッドのところは入れてなかった。 当然Withでくくれば修飾はいらないので書き換えたボクの失敗ではある。 以下に不完全なコードと正しいコードを書いておく。

■ダメなコード

    ThisWorkbook.Worksheets("ほげほげ").Sort.SortFields.Clear
    ThisWorkbook.Worksheets("ほげほげ").Sort.SortFields.Add _
        Key:=Range("D2"), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal
        
    ThisWorkbook.Worksheets("ほげほげ").Sort.SetRange Range("A1").CurrentRegion
    ThisWorkbook.Worksheets("ほげほげ").Sort.Header = xlYes
    ThisWorkbook.Worksheets("ほげほげ").Sort.Apply


■正しいコード

    ThisWorkbook.Worksheets("ほげほげ").Sort.SortFields.Clear
    ThisWorkbook.Worksheets("ほげほげ").Sort.SortFields.Add _
        Key:=Range("D2"), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal
        
    ThisWorkbook.Worksheets("ほげほげ").Sort.SetRange ThisWorkbook.Worksheets("ほげほげ").Range("A1").CurrentRegion
    ThisWorkbook.Worksheets("ほげほげ").Sort.Header = xlYes
    ThisWorkbook.Worksheets("ほげほげ").Sort.Apply

--

渋谷駅の解

帰りにちょっと野暮用で渋谷から半蔵門線に乗った。 銀座線が酷いことになって、通勤に半蔵門線もアリかなと思った。 銀座線は、たぶん地上3階にホームがあって、２階にある井の頭線に乗り換えるので、朝はいまのままで良いのだけど帰りは、井の頭線から地下に潜って半蔵門線に乗ればいいかもしれない。 ちょっと距離は伸びるかもしれないけど。 千代田線乗り換えの表参道駅は、銀座線と半蔵門線が同じホームに到着するので乗り換えは問題ない。 幸い、定期は銀座線経由だけど、半蔵門線に乗っても課金されることはない。
--

カレンダー情報 2020

例によって今年のカレンダーの撮影日と場所を公開しますよ。 写真はモアレってますが...。

Month	Date	Shooting location	Note
Jan	2011-01-15	富山県内北陸本線の踏切	タカハシさんの個展を見に行ったとき
Feb	2018-11-21	愛媛県伊予市JR下灘駅	ドキュメント72時間を見て...
Mar	2019-04-06	東京都千代田区千鳥ヶ淵	お堀のサクラ
Apr	2014-08-12	高知県高岡郡四万十町	里芋の葉
May	2019-05-03	高知県高岡郡四万十町	鯉のぼりの川渡し発祥の地
Jun	2019-06-22	神奈川県鎌倉市明月院	紫陽花見物
Jul	2015-10-22	埼玉県秩父郡小鹿野八丁トンネル	バル生誕20周年記念オフ
Aug	2019-08-17	静岡県沼津市御浜岬	戸田御浜海水浴場
Sep	2014-05-18	東京都江東区若洲東京ゲートブリッジ先	9月はなんとなく飛行機枠
Oct	2015-11-15	山梨県南都留郡富士河口湖町	紅葉ハントで訪問
Nov	2019-09-19	東京都足立区	自宅そばの早朝
Dec	2017-11-03	長野県長野市善光寺参道	バルオフで見かけた唐辛子屋さん

--

大丈夫かも

きのうは、相当きつかったけど、きょうはわりと元気。 きのうは、腎臓内分泌の予約をとって診てもらおうと思っていたけど、これなら元々の受診日まで頑張れるかもしれない。 帰りも自力で歩いて帰ることが出来た。
--
のち

仕事始め

無事出社することが出来た。 朝の通勤はちょっとしんどいだけでそれほどでもなかったけど、仕事中は結構厳しかった。 ただ座っているだけなんだけど。

■

それから銀座線渋谷駅がリニューアル。 これが酷い。 乗り換えの距離が伸びた上にエスカレーターが使えない。 お陰で今まで乗ることができた電車に乗れなくなった。

■

地元のスーパーで食材を調達したものの歩いて帰る元気がなくタクシーのお世話になった。
--

最終日

長かった正月休みも今日でお仕舞い。 明日からの食材等を買いに行こうと思いながら、また1日うだうだして1歩も外へ出なかった。 明日から仕事行けるかしら？
--

なはなは

別に熱があるわけでもないのに、妙にしんどいのが続いていて、きょうもなはなは。 来週からの仕事がちょっと心配。
--

年始

長男一家と共に実家を訪問。 例年通り駅伝がゴールしたあと、出発。 途中、幕張PA で長男一家と合流し、実家を目指す。 もう高齢なので、食事の準備はしないと云われていたのだけど、すき焼きと鍋、それからお寿司も用意してくれていた。 まったく申し訳ないことだ。 孫たちも前回の訪問から間が短かったせいか、我がもの顔で走り回っていた。 食事のあと、持参したケーキでお茶をして、暇した。 京葉道路が渋滞で思いのほか時間が掛かったものの無事帰宅した。

■

昨夜、ラジオ深夜便の新春インタビューに加藤健一が出ていた。 懐かしい話しをいろいろ聞けた。
--

駅伝

結構気合いを入れて見ていたのだけど、5区になる頃眠ってしまい、結果は分からず。 夜のニュースで青学が往路優勝したことは知った。 夕方、カレンダーを送った高校時代の友人からお礼の電話があった。
--

あけまして

おめでとうございます。 お節のようなものと、お雑煮をいただいて、あとは半病人のようにベッドの上でウトウトしたり熟睡したりで1日が終わりました。 こんなことでどんな1年になるのか先が思いやられますが、無理せずぼちぼちやって行ければと思っています。
--