久しぶりの会心作

久しぶりに会心の macro が書けたので、誰の得にもならないと知りつつ

自己満足を抑えることができずに、blog にアップすることにした。

sheet2 と sheet8 を行ったり来たりしながら、とあるデータの山をいじくり

まわしている。1070個とかあるデータから500個を抜き出し、抽出した

データをもとに版下データを print out する予定なんだが、macro を

使わないでやってた作業が、

sheet8 のとあるセルの数値を sheet2 の X列で探し、それを起点にした

8*9マスのデータを sheet2 の L列に順にコピペしていく。ただしコピーの

前にさっき参照した sheet8 のセルの4つ右にあるセルのデータをコピペ

したいエリアの右下に書き込む。コピペの後にエリアの左下2マスには前回の

処理で記録されている書式をコピーする。さらに次回検索するデータを

適当な場所に張り付けておく、というややこしくて、ミスを誘発する手順。

これが Macro のお世話になると、1分以上かかっていた作業がものの10秒。

試行錯誤の結果、まあまあ満足のいくものが出来た。使い方は、

1.検索のダイアグラムの入力欄をダブルクリックする。

（クリックだけではデータを書き足すので、ダブルクリックは必須。）

2.さっき適当なところに張り付けておいたデータがクリップボードに残って

いるので、それをペースト。

3.X列を指定して検索。

X列のデータがシリアルナンバーと時間データが混在しているため、

検索結果を判断しながら、ターゲットのセルを決める。

４.あとは ctrl+q(ショートカットキー）でMacro が走りだす。

問題は、これを500回やらねばならないこと。世の中、GWってんで浮かれ

てるようですが、きっといつか飯のタネになるんだと信じて、飽きずに

コツコツと進めなければならない。え、進捗状況ですか？。現在153/500です。

本日のマクロ

Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+w
'
    Sheets("Sheet8").Select
    ActiveCell.Offset(0, 4).Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveCell.Offset(8, 5).Select
    ActiveSheet.Paste
    ActiveCell.Offset(-8, -5).Select
    Selection.Range("a1:i9").Select
    Selection.Copy
    Range("l5071").Select
    Selection.End(xlUp).Select
    Selection.Offset(3, 0).Select
    ActiveSheet.Paste
    Selection.Offset(-4, 0).Select
    Selection.Range("a1:a2").Select
    Selection.Copy
    Selection.Offset(10, 0).Select
    ActiveSheet.Paste
    Sheets("Sheet8").Select
    ActiveCell.Offset(1, -4).Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveCell.Offset(1, 22).Select
    ActiveSheet.Paste  

End Sub

どないしたん？ 何があったん？

あんじょうおきばりやすと、ひそかに応援していた川﨑春花が、最終日の

前半に２バーディーとスコアを伸ばして、一時は首位と3打差の2位タイだった

らしい。休日は例のプロジェクトにつきっきりで、NHK杯の将棋も今日は

封印して版下データを作っていたんだが、気分転換にとリーダーボードを覗いて

みると、あれまあ、バック9で3つもボギーをたたいて結局14位タイだったんだと。

ボギー3つの代わりにバーディー2つでも優勝だったのに、一体何があったん？。

さて、例のプロジェクトのほうなんだが、版下データぐらいは作った方がやはり

説得力があるだろうということで、レイアウトも煮詰まったし、ってんで試しに

#1を print out してみたら、肝心のデータが明らかにミス。だよな。初期段階では

データはみんな手打ちだったもんな。こんなのやってらんねえってんで、ボタン

一つでコピーできるようになって、信頼度が格段にアップしたんだよな。

で、保存しといた画像と見比べることに。まあ、金を払ってまで間違い探しを

する人だっているんだ。脳トレだと割り切りゃあ、それほどの苦行ではない。

で、印刷を再開すると、今度はレーザープリンターのドラムが汚れたらしく、

プリントに等間隔の汚れが現れてまたもやルーティンから逸脱。これにも的確な

対処して本来業務に復帰したんだが、どうにも操作が煩雑だ。あっちのシートの

データを確定したレイアウトにコピペして、範囲を指定して印刷って、これ

マクロでやれないかな。5年前なら多分やってたハズなんだが、今じゃなんか面倒

くさい。アミロイドβとやらが溜まり始めたかな。

 

3月も去っていった

記録的な早さで桜が咲いて、じっくり愛でる暇もないうちに4月に突入。

気が付けばもう9日だ。優先順位の関係で更新が後回しになってしまうのは

いつものことだ。ご無沙汰している間にプロ野球のペナントレースも開幕

したんだが、以前のような入れ込みようではない自分がいる。

藤井六冠は名人位奪取に向けて幸先のいいスタートを切ったんだが、これも

気はそぞろ。

この2，3週間で、1000個以上のファイル名を書き換えるという退屈な単純

作業をする羽目になり、その催眠効果がてきめんなので、一向に進捗しない

まま時計の針だけが進んでいった。explorerでもExcelのようにmacroが使え

ればとか、キーが4個だけのscreenkeyboardは作れないものかとか、無いもの

ねだりの悪あがきも結局はくたびれ儲けに終わって、先ほどその苦行を

終えたところだ。

話は横道にそれるが、WBCで頂点に返り咲かせた栗山監督とその手腕には

十日ばかり話題が集中した。「できると信じているからやらせるんです。

できるかできないかじゃなくて、やるかやらないか、なんです」のような言葉が、

連日TVで流れていた。あれじゃ理想の上司に名指しされちゃうわけだよ。で、

現状を見回すと、できないかもしれないからやめとこか、になりかけてた

疑心暗鬼で弱気な自分がいる。自分が自分を信じないでどうする？。

栗山語録に後押しされて、取り敢えずもう一歩前へ。