ロビーさんの「年賀はがき当選番号発表」を読んで、
- 「エッ! 当選番号は4本しかないの?」
- 「昔はもっとあったのになぁ〜」
で、以前のブログを検索したら‥‥
- お年玉付き年賀はがきの当選番号を並び替えてスッキリしよう!(まりふのひと - 2008.01.28)
成人の日頃だったお年玉付き年賀はがきの抽選日、今年は27日だった。
どうせ当っていないのだから(確率的には切手シートが2枚当たるはず)、調べることはないのにやはり気になる。
で、いつも気になるのが当選番号の並び。今年は、Excelで並び替えた。
下2桁で並べると、はがき1枚毎に番号をなめる必要はない。直感的に当たっているか否かが判ってスッキリするハズだ。
今は当選本数が4本しかないので、「
Excelで並べ替え‥‥」は
レガシーになるのではないか。で、この際、「昔の手順」を残すことにした。
§1.目的
お年玉付き年賀はがきの当選番号の表を、当選番号の下2桁で並べ替え、はてなダイアリーにアップする。
- Excelの表を Wordに貼り付ける。
- 新しい文書に貼り付ける。
- 文書中のカーソルの移動にマウスを使わないとマクロ化できる。
- 表を解除する。(区切り記号は、半角パイプ)
- 表の中にカーソルを移す(Ctrl+Home)
- レイアウト・タブ/データ・グループの[表の解除]をクリックする。
- 文字列の区切り:8その他 を選択し、“|” を入力する。
- [OK]する。
- 文頭に半角パイプを入力する。
- Ctrl+Home
- “|”を入力する。
- 各行の行頭、行末に半角パイプを入力する。
- ホーム・タブ/編集・グループの[置換]をクリックする。
- [オプション]をクリックし、
- □あいまい検索 のチェックを外す。
- 下図のように入力する。
- 検索する文字列にカーソルを移し、
- [特殊文字]をクリックし、段落記号を選択する。
- 置換後の文字列にカーソルを移し、
- 半角パイプを入力、
- [特殊文字]をクリックし、段落記号を選択、
- 半角パイプを入力する。
- [すべて置換]する。
- 検索を終了する。
- 不要な文字(パイプ)を削除する
- 文末にカーソルを移し(Ctrl+End)
- BackSpaceを5回押す。
- 完成!
- はてなダイアリーに貼り付ける
- すべて選択し、(Ctrl+A)
- コピーする。(Ctrl+C)
- ブログの下書き編集の画面を出し、
- 貼り付ける。(Ctrl+V)
- [確認する]
- タイトルセルにする場合は、文字列の先頭に、半角アスタリスクを付ける。
|*等級|*賞品名|*当せん番号|*下2桁|
- 下の表は1行目をタイトル行にしてある。
等級 |
賞品名 |
当せん番号 |
下2桁 |
1等(下6けた) |
セレクトギフト |
293633 |
33 |
3等(下2けた) |
お年玉切手シート |
45 |
45 |
3等(下2けた) |
お年玉切手シート |
51 |
51 |
2等(下4けた) |
ふるさと小包など |
6470 |
70 |
編集後記
上記§3の 2.〜5. の手順は、そのままマクロ化できます。要望があれば、お教えします。