排水管の清掃

VBAのプログラミングにもめどがつき、
5時過ぎ街中のオフィスへ。

排水管の一斉清掃。ほかの部屋で順番にやっているようだ。
午後7時という約束だが、部屋にいるとわかれば早めに来るかなと思い、
玄関灯を付けておく。

たぶん、それを見たのでしょう。6時過ぎに、今からいいですかと
早めにきてくれた。

台所、風呂場、洗面所の排水管を高圧水流で清掃するらしい。

台所を見ていたが、結構奥まで届いているようだった。

職場の寮に長いこと住んだが、そこではこんな清掃は一度もなかった。

オフィスはまだできてから3年ほどだが、こんなところまで定期的に
保守するのが、長持ちさせることになるんでしょうね。

終わったぞ！と連れ合いに電話するも、電話に出ない。
まだボランティアの集会が終わっていないようだ。

一週間ぶりにWiiFit。
踏み台昇降？ステップ？で小汗をかく。なかなか満点が取れない。
早すぎても、遅すぎてもダメ。

そのあと増えたフラフープの燃焼系運動をやってみる。
これがしんどい、右回り、左回り、各？合計？3分間。

最後はふらふら、ぜいぜい言ってる所に連れ合いより電話。
それを口実に最後はキャンセル。電話がなくても最後までは
無理だったかも。

集会が終わったので家に帰るというので、こっとも帰ることにする。

夕闇も迫るのでライトをつける。ライトをつけるためにはサポートの
電源を入れる必要があり、最低限のサポートが付加されてしまう。

オフィス近くの平地では、このサポートがあると非常～に楽に
チャリが進む。でもバッテリのインディケータは最後の一つの
メモリを示している。

東山峠ではフルサポートをかける。それでもシンドイ。
と言いつつ、昨夜はセコにギヤを落としていたが、今日はトップのまま
通過した。峠を越えて頃にはインディケータは点滅を始めた。

点滅しはじめてからどの程度走れるのだろう？

何とかサポートが切れることなく、自宅に到着。
連れ合いも今帰ってきたところと、忘れた手紙を出しに行ってくる、
その間に春巻きをまいておけとご指示。

餃子を包むことはやってるが、春巻きなんてはじめての経験。
春巻きの皮が10枚。具材を10枚分に分けるのがちとめんどいだけで、
巻くのは簡単だった。男の料理！？　巻くだけじゃ料理でもないか。

感性的プログラミング

久しぶりにプログラミング。

エクセルでたくさん（1000枚超え）の表を作った（作っている最中）が、
その中から表示したい表をどうやって選択させるか？
そのインターフェースの作成。

ブロッグごとにまとめて一つのエクセルのファイルになっており、
各表はエクセルの標準のBook形式の中で「シート」になっている。
1つのエクセルのファイルには100枚から300枚程度のシートがあり、
タブ形式のシート名を頼りに、シートをめくるのは大変だ。

ということで、目次のシートを先頭に作り、
その目次から目的のシートにジャンプ！　
というのが今回のプログラミングの目標！

先月かに購入していたVBAの本を探すのに手間取ったが、研究室内を
家探しして、見つけ出す。これだけ厚い本だと探すのも楽だ。
やはり大国（ボリューム）は力だ！

マニュアル本で使えそうな関数を探す。
それなりの関数を見つけ、試してみるが、結果として何が帰ってきてるのか？
よくわからない。

プログラミングは理論でなく、感性だと思うことが多い。
わからないなら感性と想像力。こんなもんじゃろと思ってプログラムを
書いてみて、当たっていたらそれなりの結果が戻るし、外れていたら、
その結果からまた感性を働かせる。五感、六感の仕事。

本当は理知的にプログラミングしたいのですがね。
最近のマニュアル本には「全」情報が載ってないので、
プログラミングスタイルも変わってしまった。
当たって砕けろ！　気力が続くかの体力勝負！

結局出来上がったのは10行程度のプログラム。
もっと削れそうなので、半分程度にはなりそうですね。

目次で目的の表名（それがシート名になっている）を右クリックすると、
そのシートを表示する（アクティブにする）だけ。

最初はどの範囲をクリックしたら・・・とか考えていたが、
どこでもいいやと落ち着く。目次以外でもいいから、右クリックしたセルの
内容に一致するシートがあれば、そのシートを表示することにしたので
10行程度のプログラムに落ち着いた。

書き写すだけだったら１分程度ですが、
そこに落ち着くまでには数時間。単純化は大事ですね。

あとは各エクセルのブックに目次の頁を作り、マクロを貼り付けていくだけ。

最初は各都道府県をひとつのブロックと考えていたので、
47個のエクセルファイルにするつもりだったが、
このプログラムだったら、目次が数枚のシートに分かれていても
問題ないことに気づく。

ということは都道府県ごとの目次シートを作れば、
1つのファイルにまとめることも可能？
（正確にはちょっと問題もありますが）
でも、そうすると馬鹿でかいファイルになってしまうので、
適当に（ファイル用量として、読み込む時間の問題）ブロッグに
分割し、都道府県別（これも１府県、１シートとは限りませんが）
に目次シートをを付けることにする。

ということで、岡山県（地元なのでこれだけで一つ）、中国地区、
四国地区、九州・沖縄地区がほぼ完成。残りは来週にでもｍに
作ってもらおう。

成人病と薬

6月7日(土)
いい天気の土曜日。
昨夜、職場からの帰路に街中のオフィスに寄ると、今日(6日)が
排水管の清掃日に割り当てられていたらしい。以前に通知が
来ており、連れ合いに変更依頼を出しておくように言ってたのに
出すのを忘れていたらしい。

ので、今朝8時過ぎに電話を入れると、今日(7日)の午後7時と指定
された。中途半端な時間より夕方になったので、助かった。
連れ合いはボランティアの集まりがあるというので、立会いを
引き受ける。

朝は3週間ごとの定例の医者通い。
いつもの薬をもらう。効いてるのかどうかと思っていたが、
前回の血液検査の結果では、飲んでないと悪い結果が出ているので、
やっぱり薬は効いてるんですね。（当り前か？）

いつも医者に行く時には車で行ってたのだが、今日はチャリで。
昨夜充電するのを忘れていたので、下りは言うまでもなく、平地も
サポートを切って、バッテリを節約。少し汗ばむ程度で到着。
待つこともなく診察なので、血圧の値を心配していたが、
いつもより低めの値が出た。

薬をもらって、そのままチャリで研究室へ。