とても狭くて恥ずかしい話だが。
失敗談として記憶するため。
その１：PCとスマホ間でファイル転送したり、PCを使っている時にスマホの操作をPC上から広い画面で行う（文字入力をPCのキーボードから行うような）ことが出来るアプリがある。 AirDroidというアプリなんだが、スマホとPCにアプリをダウンロードしてインストールするか PC側はブラウザからでも可能になるという優れモノ。 WiFi環境下ではそうした機能をリモート接続しないローカルのネットワークを使ってデータ転送出来るのでセキュリティ上も安心で、何よりファイル転送にいちいち USBコード接続する必要もないので便利に使っている。
それが、昨日からローカルではPCからスマホに接続できなくなった。信州に出かけた時のスマホの写真をPCに取り込もうと AirDroidを立ち上げたが、スマホと接続できずリモート接続（外部のインターネット～４G回線経由）しか出来ない。何か設定が変わったのかとあれこれチェックしたが、どうも分からない。それがさっき、AirDroidの FAQを見ていて「ハッ」と気づいた。先週末から信州に出かける時、それまで切ったことがなかった WiFiの電源を抜いたままだったんだ。よく家電製品の不具合原因の上位に「コンセントを挿してない」という話は聞くがまさか己がハマるとは！・・・・とんだミスだった。
上図が正常時の PC側デスクトップ(左)とスマホ側(右)の表示。デスクトップ側ではスマホ側でPCに転送したファイルが左側①に、スマホ側に転送したファイルが右側②に見える。（表示が小さいが一番上のコメントは「転送に失敗しました」というエラー時のコメント）スマホ側画面(右)では URLにローカルのIPアドレスが、その下にWiFiの電波アイコンと接続している WiFiターミナルの SSID名が見える。次回からは、接続不良になったら真っ先にここをチェックしよう。

その２：他人に話すのも憚られるが、戒めのメモとして。信州に出かけている間に エクセルの VBAプログラムを納品した先から「エラーが発生した」と電話があった。出先でプログラムコードを見るわけにもいかないので、帰って来てから動作履歴記録のファイルを送ってもらって確認した。それで完全に原因が分かったわけではないが、動作履歴を見ながら電話でエラー発生時の状況を聞いていてほぼ原因が分かった。後からプログラムを見たら、プリント範囲の指定の末尾に空の行を指定した時にエラーが発生することが分かった。何と言うことはない、 リストの中からプリントするデータの行を見つけるのに、セル範囲の検索するときに使用するVBAプログラムので命令で
Set FoundCell = Range(Cells(r1, c1), Cells(r2, c2)).Find(what:=・・・・) とやっておいて、見つかったセルを取得する場合、見つからなかったケースも想定して
If Not FoundCell Is Nothing Then ・・・・　とやるんだが、＜ Is Nothing ＞がすっぽり抜けていた。だから　＜ If Not FoundCell ＞ の判断を実行した途端、エラーが起きていたんだ。多分　どこか別の行の同じ処理をコピペした時に選択範囲を間違えてコピーしたんだろう。・・・・何と言うケアレスミスだ！ 　と嘆いたが、どうも過去にも同じようなエラーの経験がある事に思い至った。ケアレスミスではなく能力の問題かもしれない。

---

今日の写真も信州での撮影。娘の家の庭に植えられたハナミズキの紅葉と実。奇麗なコントラストだ。