簡単！マクロ講座第14回

Top	hiroyuki.tank.support.site

簡単！マクロ講座

第14回～穴埋め問題？？～

　いままで自動記録から始まり，マクロを自分で書いて，そのマクロを使うところまでできるようになりました。
　自動記録でも十分事務能率の向上にはなりますが，どうしてもマクロを自分で書いていかないとうまくいかないことが出てきます。
　今回からちょっと難しくなりますが，それができるようになります。難しいと思うところはさっととおりすぎ，わからないところは書いてあるとおりにやってみてください。
　それでは，マクロを書き実務に活かすことを例をみながら練習しましょう。

　まず次のように準備してください。

　いくつかのセルに「〃」と入力されています。「〃」は「どう」とタイプして変換すると出ます。
　これはワープロ時代には上と同じ場合は「〃」とタイプして印刷する場合が多くあった名残です。
　コンピュータで処理しようと思うとこれはまずいのです。
　エクセルで説明しますと，１行を１レコードとしてみると，１列２行目は「東京」というデータがありますが，１列３行目は「〃」というデータがあります。人間の目で見ると「あっこれは上と同じで東京だな」と判断できますが，コンピュータはそんなことは理解できません。１レコードだけをみると「『〃』というデータなんだな」と判断してしまいます。
　ですから，後々データ処理をすることを考えると，いくら少しのデータといえども「〃」を使わないということを頭に置いておく必要があります。

　前置きはさておき課題です。
「県名や市区町村名が入力されているセルはそのままで，「〃」と入力してあるセルは一つ上のデータ（県名または市区町村名）を入れてください。」
　これを手動でやるにはコピーをしていけばいいのですが，これが１００行，１０００行あったら大変ですね。マクロを使ってあっという間に処理してしまいましょう。
　今回は自動記録ではできません。きちんとプログラムを順を追って書いていく必要があります。
　プログラムを書いていくコツは，「まず手順を紙に書いてみる」ということです。紙に書くことです。頭でわかっていてもダメです。
　それでは書いてみましょう。みなさんも自分なりに考えてみてください。

①セルA2を見る。
②A2に県名が入力されているか確認する。（セルA2には先頭ですから必ず県名があるはずです。）
③A3を見る。
④A3がもし「〃」だったら，A2をコピーしてA3に貼り付ける。
⑤A3がもし「〃」でなかったら，そのままにしておく。
⑥A4をみる。
⑦④，⑤を繰り返し。
⑧A12までいったら終わり。

　ではこれをエクセルがわかるようにVBAで書いてみましょう。
　いきなりは難しいので，わかるところからやりましょう。
④は次のようになります。
If Range("a3") = "〃" Then Range("a3")= "東京" End If

　でもこれではいつも「a3」で，しかも「東京」しか入力されません。
　⑦の繰り返しも難しそうです。ポイントは，何という文字を「〃」と入れ替えるかと言うことと，繰り返しをどうやって実現するかです。
　途中までは添付ファイルにマクロ「穴埋1」「穴埋2」「穴埋3」がありますのでそれぞれ何が違うかを順を追ってみていってください。
注：「'」以下はコメント行ですのでプログラムとは関係ありません。

************************************************************
Sub 穴埋1() 'A3が「〃」だったら「東京」を入力-rangeを使う
If Range("a3") = "〃" Then
Range("a3") = "東京"
Else
MsgBox "同じじゃないよ"
End If
End Sub

Sub 穴埋2() 'A3が「〃」だったら「東京」を入力-cellsを使う
If Cells(3, 1) = "〃" Then
Range("a3") = "東京"
Else
MsgBox "同じじゃないよ"
End If
End Sub

Sub 穴埋3() 'A列i行目が「〃」だったらセルA3に「東京」を入力（iは変数）
i = 3
If Cells(i, 1) = "〃" Then
Cells(i, 1) = "東京"
Else
MsgBox "同じじゃないよ"
End If
End Sub
############################################################

　内容がどう違うか詳しくわからなくても問題ありません。どこが違うかがわかればＯＫです。次回はプログラムを完成させます。わかる方は自分で完成させてみてください。