毎年クーラーをつけた日をメモっているのだが、忘れてたので書いておく。
ってか、日付は忘れたけど、たぶん6/23とか、24だったはず。
今年はまだそんなに暑くはなかったし、梅雨に入ったというのに、？？？というほど雨が降らず、と思ってたら、クーラーをつけた次の週ぐらいから梅雨らしい日々が続く天気予報。
湿気がきつくなりそうなので、もう早めにつけておけい！と、クーラーを掃除。
つけ始めたら、天気予報ほど雨は降らず。
まぁ、それでも、風呂上りはムシムシするし、ちょうどいいわと思うこの頃。
これからどんどん暑くなるのだなぁ、今年も。
仕事しながら、渡辺美里の「さくらの花の咲くころに」を聞いていた。
20代、30代、そして40代と、あの頃とおんなじ曲をリピートして聞いているから、久しぶり感はまったくないのだが、今日は、ふと、中学生だったか高校生だったかに感じた空気というか、匂いというか、なんかそんなものを思い出した。
音楽聞きながらホームの上で電車を待っている学生時代の私。
なんだろうな、こういう過去を思い出すのって大抵ホームの上だよなぁ・・・
渡辺美里って、力強いボーカル！って感じなんだけど、しっとりくる曲も多くて好きだ。
「悲しいね」とか「Believe」「White days」とか、なんとなく好きだ。
Blogの外観をちょいと変えてみた。また変えるかも。
さて、Windows10でExcel2010とか2013とかを使うようになって、Windows7で作ったExcelマクロのActiveXコントロール（コンボボックス）がうまく表示されないようになった。
これは困った・・・
グループ化すれば治る・・・って、治んない。
困りましたな・・・
ってことで、もうフォームコントロールに変えることにした。
面倒だわ・・・
ActiveXコントロールだと、リストの情報はマクロ上で設定すればいいのだが、フォームコントロールはリストの情報をセルに持たせて、そのセルとリンクを貼る・・・という厄介な手順を踏まなければならない。
ということで、ActiveSheet上にあるフォームコントロール「DLIST」のリストにしたい情報が、同じシートのセル「A2～A10」にあるとすると、
With ActiveSheet.Shapes("DLIST").ControlFormat
.ListFillRange = "A2:A10"
.LinkedCell = "B2"
End With
参照リストセルが別のシート(仮に「Sheet2」とする)にある場合、ListFillRange の設定をちょっと変える必要がある。
.ListFillRange = "Sheet2!A2:A10"
でも、コントロールのフォントサイズの変え方がわかんない・・・
もうヤダ。
SQLiteでテーブルの一覧を取得する場合、コマンドの「.schema」を使う方法もあるが、面倒な時もあるので、以下のようにSELECT文を使う。
SELECT * FROM sqlite_master WHERE type = 'table' ORDER BY name;
WHERE句の条件を外すと、オブジェクトの一覧になって、INDEXの情報なんかも取得できる。
さて、6月も中盤。
4月から3か月間かけて行う新人研修も終盤だが、どうも、今年はイマイチ。
新人がイマイチなのか、我々がイマイチなのか、どちらもダメなのか・・・
それはともかく、中学生や高校生が読めるような漢字を読めない人がいるのがまずウンザリ。
昨今、高等教育の無料化を声高に言う人がいるが、そもそも、初等・中等教育をしっかりしてほしい。
小学生でも読めそうな漢字も読めない大人って、社会に必要なのか？
初歩的な現代国語ぐらいちゃんと勉強させてほしいものだ。