VBAプログラムがバグで苦しんでいる。　何十枚ものシートから転記したデータのシートごとのスタート行を ４行区切りにするという仕様が、間にデータ ０件のシートが入ったり、先頭シートが ０件だったりしてバグってしまった。マクロ命令のほんの些細なオプションの指定の仕方のノウハウが不足しており、スキルの未熟さを思い知らされている。
例えば、Findというセルのデータを検索する命令なんだが　１行から１０００行まで数字が昇順にいくつかずつ並んでいる場合、その先頭行を検索するのに、つい
FoundCell = .Columns(nscol).Find(What:=k, After:= .Cells(1, nscol), _
SearchDirection:=xlNext)
などとやってしまうんだが、これだと kという値が１行目～２行目に入っていても １行目の後ろから検索開始するので ２行目のセルが返されてしまう。 「１」の代わりに 「Rows.Count」 で最終行を指定すると、最終行の次は１行目に戻って検索するから １行目のセルが検出できる。単純な問題なんだが、知らないと最初からはそうは書かない。

---

今日の写真はムクゲ。１週間ほど前から　１輪、２輪と咲き始めた。パソコンと睨めっこしている間に　夏だ！