この前、一緒にカピバラさんCafeに行った後輩に「VBAでこんな事出来ますか?」といった質問を受けたのでプログラムを組んでみました(・∀・)
1.郵便番号から都道府県を求める
郵便番号が入っているセルを参照して、都道府県名を返すというもの。
都道府県と言いつつも東京、神奈川、千葉、埼玉を判定してそれ以外は"その他"でOKという簡単な内容でした。
一応Excelの数式のみでも達成出来る内容なんですけど、IF文が冗長になって見辛いしVBAで組んだ方が楽だと思います。
難しい判定内容でも無かったので30分位で終わりました。
2.入力元のExcelファイルの奇数行に色付けを行い、2行毎に行を挿入する
これはファイル操作や行挿入、色付けといったExcel VBAの基本的なテクニックが詰まったプログラムになりました。
他のファイルを開く際のエラー判定とか可変である最終行列の取得等、他でも流用できそうなソースがてんこ盛りになりました。
最終行数を出してそこから挿入する行数を計算する部分とかが上手く出来たと思います。
楽しく組めたので有意義な時間でした。
この内容で大丈夫か今度渡して使ってもらおうと思います、後は微調整でOKなはず。