--
☁ のち ☀
サクラに誘われて
--
☁ のち ☀
通院
--
☁
引き続き
GASのコードを書いている。
てか、WEBアプリなのでhtmlも混ざっていたりするのだけど。
GASからは、しばらく遠ざかっていたので、文法とか仕組みとか忘れてしまい、始めるまでは気が重かったんだけど、始めてみると割と面白かったり。
ちょっと助かった。
--
☁
--
☁
GAS
久しぶりにGASの開発。
すっかり忘れていて、入門書を読みながら、なんとか思いだす。
そう云えば、昨日、久しぶりに娘からメールが来て何かと思えば、『GASで二次元配列にフィルタかける書き方ってわかります……？』なんて書いてある。
そんなこと急に云われても知らない。
ネットでぐってみればと返事をしたら、すでに調べつくして見つけられずメールをしたとのこと。
ちょっと調べると、どうやらフィルターってスプレッドシートのメソッドみたいで、二次元配列だったら自分で実装しないといけないんじゃない？って回答したけど、合ってるかしら？
--
☀
--
☀
Outlook.com で既定の差出人アドレスを変更する
フリーのWebメールは、GmailとOutlookを併用している。
Outlookは古くはhotmailなんて呼ばれていた。
で、ヘルプを見るとメールアドレスを追加できるみたいだったので、数ヶ月前に新しいアドレスを追加した。
そして、追加した方のアドレスをメインとして使う設定をした。
スマホからは問題ないんだけど、PCのブラウザからメールを作成してみると、アドレスが古い方のままになっている。
なんでだろうとか思いつつ、いろいろ設定を見たんだけど、デフォルトのメールアドレスを変更するところが見つからない。
ネットを探してやっと見つけた。
以下がそのページのコピーで、この通りやってみると無事変更することが出来た。
--
☁ のち ☀
まさか『メールの同期』って云うオプションだとは思わなかったよ。既定の差出人アドレスを変更する
- ページの最上部で、[設定] Settings > [Outlook のすべての設定を表示]を選択。
- [オプション] ウィンドウで、[メール]、[メールの同期] の順に選びます。
- [既定の差出人アドレスの設定] で、ドロップダウンリストからアドレスを選びます。
- [保存] を選択します。
--
☁ のち ☀
サクラウィーク2019
--
☀
所用で
実家に。
午前中、いい加減な時間に出たのに、京葉道路が混んでいる模様なので、東関道経由で向かう。
宮野木で少し混んだもののあとはすんなり進んだ。
所用を済ませ、お昼をご馳走になりちょっと高校野球を見て暇する。
野球は横浜の圧勝かと思っていたら、ニュースを見ている間に逆転。
その後も明豊が得点を重ねて勝利。
ちょっとびっくりした。
それから、名豊の校歌、声に聞き覚えがありネットで調べるとやっぱり南こうせつだった。
夜は、子供のリクエストで粉物。
お好み焼きともんじゃになった。
--
☀
--
☀
メンテナンス
--
☀
通院
きょうはカテ交換と腎臓内分泌内科。
腎内の検体検査のオーダーが入ってなかったので、受付けで先生に確認してもらいまず検体検査を済ませる。
続いて、カテ交換。
左はすんなり。
右は、抜けかけていたようで固定水を2cc入れられるもやっぱり痛い。
医者が機転をきかせ、手術以降太くなっていたカテーテルをもとの太さに替えてくれた。
これだと2ccでも痛くない。
細くなったせいで脇漏れがひどいけど、それもおいおい治まると思われこれで行くことになった。
次は、腎臓内分泌。
採血の結果もほぼほぼ。
クレアチニンの値も前回より改善した。
そして、先週から今週の初めにかけて、結構痛かった会陰部を大腸外科で見てもらえるよう腎内の先生にお願いする。
先生はすぐ了解してくれて手配をしてくれ、大腸外科へ。
既に痛みは治まっているものの、これまでの経緯を話すとCTを撮ることになった。
撮影後、再び診察。
やっぱり会陰部の溜りに大きな変化はない模様。
抗生剤と痛み止めを処方してくれ1週間後にフォローアップの予約を入れてくれた。
--
☁
--
☁
食事会と遥かなる山の呼び声
■
夜、見るつもりはなかったものの『遥かなる山の呼び声』を見始めると、なかなか面白いのでついつい最後まで見てしまった。
昔は健さんが主人公だったのね。
阿部寛も健闘していた。
虻田役も筧くんだし。
最初は、吹越満かと思ったよ。
ニホンとニッポン
ラジオ深夜便でたまに『気になる日本語』と云うコーナーがあって興味深く聞いている。
今回のテーマは『ニホン』と『ニッポン』。
国名に言い方が2つあるのは珍しいらしい。
アメリカ合衆国を略してアメリカとかUSAと云う例はあるけどって。
で、本題。
チコちゃんでは、江戸っ子のせっかちな性格のせいだって云ってたけど、気になる日本語では普通はニホン、特別なニュアンスのときはニッポンになると云っていた。
同様の例として、『やはり』と『やっぱり』や『とても』と『とっても』などが紹介されていた。
促音だと特別感がつくらしい。
スポーツの応援のときは、ニホンとは云わずニッポンと云うと。
なるほどね。
--
☀
--
☀
忘れられたスター
土曜日、ホテルについてTVをつけるとコロンボが佳境に入っていた。
子供のころにも見てるはずだけど、あんまり記憶にない。
病気のせいで自身の犯罪の記憶をなくした犯人。
そして余命は2ヶ月。
その事実を知った昔からの友人が自分が殺したとうその自白をする。
コロンボで泣くとは思わなかった。
良い話だ。
--
☀
--
☀
神の火
先週末、上巻読了。
きょうから下巻を読み始める。
だんだん島田がのっぴきならない状況に追い込まれていく。
良もどうなっちゃうんだろう？
って、知ってるけど。
あの頃の時代状況がなんとも懐かしい。
--
☀ いちじ ☂
--
☀ いちじ ☂
浜名湖への道（2日目）
--
☀ いちじ ☂
浜名湖への道（1日目）
■
次に寄ったのが足柄SA。
もう大丈夫かと思いエンジンを切るも、やはり掛からなくなった。
再びボンネットを開けバッテリーを見る。
プラス側の端子を触ってみると緩んでいる模様。
これかもしれないと思い、工具箱からプライヤーを取り出しネジを締め直した。
それ以降は、問題なくなったので、端子が緩んでいたせいらしい。
緩んだくらいで電気が流れなくなるんだとあらたな発見をした。
■
その後は、順調に進み11時過ぎに浜松西I.C.で高速を降りた。
昼のことは考えていなかったのだけど、ふとさわやかのことを思い出し、インター近くの店に向かった。
流石はさわやか！
既にパーキングはいっぱいで道路で待っているクルマが2、3台。
交通整理のおじさんが80分待ちだと教えてくれた。
80分は厳しいなと思っていると、そのおじさんがクルマで15分ほどのところにある別の店を教えてくれた。
そこならそれほど混まないらしい。
そして、ここはインターから近いので特に混むとのこと。
店名を聞いてナビに入力してその店に向かった。
■
道が混んでいたので20分以上掛かったものの無事到着。
こっちは15分待ちくらいと云うことで暫く待つことに。
20分ほどで席に案内された。
オーダーは、初めてなのでお約束のげんこつハンバーグのランチにする。
むちゃくちゃ美味いというほどでもないけど、20分待ちなら十分おっけー。
80分待ちならパスかなと云う感じ。
食事のあと、はままつフラワーパークと浜松動物園を観光する。
そして、奥浜名湖の湖畔に立つホテルの人となる。
夕食は、バイキング。
場所柄のせいか、うなぎ、餃子、静岡おでんなんかが目を引いた。
--
☁ ときどき ☀
1週間
があっという間に終わる。
天気予報から、サクラの開花予報が聞こえてくる。
例年だと1番は高知だけど、今年は福岡らしい。
東京は20日とか21日とからしい。
来週には開花って割には朝晩の気温が低い気がするんだけど。
--
☀
--
☀
と云うわけで
ピエール瀧は、結構大問題になっている模様。
いだてんにも出てるんだって？
龍馬伝に出てたのは知ってるけど、いだてんは見てないから。
あと、あまちゃんにも出てたって？
ネットを見るとお寿司屋さんの大将の役だったらしい。
そう云えばそうだったかも。
犯罪を犯したのだから本人が処罰されるのは当然だとしても、過去の作品が見られなくなるのはどうなんだろう？
--
☀
--
☀
24時間を超えたTimeシリアル値を"hh時間mm分"にする
勤務時間の計算を行っている。
計算は、まあいいんだけど"hh:mm"って表記された時間、例えば88:20とか（元はシリアル値）を”hh時間ｍｍ分”と表示させる（例だと88時間20分）必要があって、ググりながらいろいろやってみたけどなかなか上手くいかない。
ワークシート上では、DAY関数でシリアル値を日に変えてくれると云うページを見つけた。
この例だと、3を返してくれる。
ところがVBAのDay関数は任意の日付データから日を切り出す仕様で、例のシリアル値を喰わせると2が返ってくる。
と云うわけで、さらに調べてみると、DateDiff関数と云うのがあって、単位（時とか日とか月とか）を指定して開始日時と終了日時の期間を指定した単位で返すらしい。
で、単位を日、開始を0、終了を88:20のシリアル値にすると3が返ってきた。
あとはそれを24倍して時間にして、あまりはHour関数で普通に取ってこれるので足せば時間が求まる。
分の部分もMinute関数で普通に持ってこれるので、文字列にしてつなげればおっけー。
ソースはこんな感じ
--
☁ のち ☀
ソースはこんな感じ
Dim strWhour As String ' 実働時間（時間）
Dim strWmin As String ' 実働時間（分）
Dim strTotalTime As String ' 実働時間
' 実働時間を作る
strWhour = DateDiff("d", 0, ThisWorkbook.Worksheets("Sheet1").Range("J44").Value) * 24 + _
Hour(ThisWorkbook.Worksheets("Sheet1").Range("J44").Value)
strWmin = Minute(ThisWorkbook.Worksheets("Sheet1").Range("J44").Value)
strTotalTime = "実働：" & strWhour & "時間" & strWmin & "分"
■
ネット上では、ピエール瀧の話題が結構盛り上がってるみたい。
--
☁ のち ☀
追悼の一日
8年目のきょうが巡ってきた。
長いような、短いような。
まあ、ボクは被災したわけではないから、被災した人を慮るしかないのだけど、いろいろ理不尽なことばかりなんだろうなあ。
地震や津波は自然災害だからどうしようもないと思うけど、原発事故は人災だからね。
思い返せば、あの日は、尾久から徒歩で帰宅したのだった。
ほとんどの電車や地下鉄が止まる中、都電荒川線だけは徐行運転をしていて、荒川車庫前から町屋駅前まで都電で移動し、そこから歩いて自宅を目指した。
町屋から、どっちに向かっていいかわからず、スマホの地図を頼りに方向を決めた。
たしか2時間ほどで無事家にたどり着けた。
あの時は、尾久だったから帰れたけど、渋谷だと帰宅困難者になりそうな気がする。
--
☂ のち ☀
--
☂ のち ☀
ご機嫌伺
てか、結婚式の写真集が出来上がったので、子供の家まで届けてきた。
ボク的には、新郎の父だったので、思うように写真が撮れずイマイチな出来だったけど、本人たちは喜んでくれた。
孫の上の子は大分状況が分かってきたようで、それなりに相手をしてくれるけど、下の子はまだ慣れず、ブーたれた顔でまだ心を許してくれそうにはない。
それでも帰るころには、 多少慣れてはくれるんだけど。
--
☀ のち ☁
■
大相撲大阪場所が始まった。
豊ノ島が幕内に帰ってきた。
そして初戦を飾る。
--
☀ のち ☁
神の火
ぷらとんの3人が死に、何とか商事が火事になったあたりまで来た。
随分久しぶりに読んだので、当時の時代状況とかもう忘れていた。
まだ東西冷戦が進行中で、日本を取り巻く各国の思惑が交錯する時代。
濃密な時間が過ぎていく。
--
☀
--
☀
次期F-X
ずっと『次期F-X』かと思っていたけど、次期の意味がFみたいで、『第n次F-X』って使うのが正しいみたい。
というわけで、主力戦闘機の車検が近づいてきたので、F-Xをどうするか検討している。
仕事が終わってからディーラーに行ってなじみの営業さんと話してきた。
大分、年式も高いし、ボロボロなので、営業さん的には新車を買ってほしそうだけど、それもどうかなと云う感じ。
場合によっては、F-Xは無しという選択もありそう。
まあ、それはそれでいいかもしれない。
--
☂
--
☂
日々是好日
パウチ的には問題あるものの、腎瘻は落ち着いてくれたので、短期的には平穏な日々が続いている。
夕方、保釈されたゴーン氏、変装ってどうよ？
あれで、取材陣を騙せると思ったのかしら？
まあ、いいけど。
それにしても、保釈金が10億円ってああた。
あるところにはあるんだろうね。
あと、そもそも報酬が多すぎる気はするけど、ネットを見てると元々不正てか犯罪が行われたのかどうかがよくわからないみたいな記事も載っているし、ホントのところってどうなんだろう？
--
☁
--
☁
YMO / Solid State Survivor
--
☀
モードレス表示しているユーザーフォームを操作してシートをアクティブにする（Excelネタ）
モードレスで開いているユーザーフォーム上のコマンドボタンをクリックするとある処理が走るんだけど、同時にシートの方をアクティブするコードってどう書くのか忘れてしまった。
ネットを見てもトンチンカンなことしか出ていない。
確かむかし、同じコードを書いたなあと思い、技をメモしていたファイルを引っぱりだして探してみると書いてあった。
--
☂
Excel 2013より前のバージョン確かにこの1行を入れると、シートの方がアクティブになり、シート側でクリックしなくてもスクロールできる。 今回、なんでネットで探せなかったのかと思い、メモに書いてあったタイトルで検索するとサクッと出てきた。 検索ワードって奥が深い。
VBA.AppActivate "Microsoft Excel"
あるいは
VBA.AppActivate Excel.Application
Excel 2013以降のバージョン
VBA.AppActivate Excel.Application.Caption
--
☂
箱根2日目
--
☂
箱根への道
--
☀ のち ☁
酷い一日
朝、パウチを交換して、出社した。
そして、午前中には剥がれかけているのでテープで補修した。
3時ごろ、ほぼ完全に剥がれてしまい、交換。
職場で交換するのは久しぶり。
そして、16時に退社。
このとき、さっき張り替えたばかりのパウチが、また剥がれかけている。
家に帰りつくと、速攻で交換した。
1日3回って、勘弁してほしいわ。
--
☂ のち ☀
--
☂ のち ☀
Subscribe to:
Posts (Atom)