Ａ列の文字列によってＢ列への入力を変える

質問

こんにちは。マクロ初心者で、質問なのですが、
エクセルで、Ａ列に入力されている文字列によって、
Ｂ列文字を自動で入力するマクロを作成したいのですが、
どのように記述すればよいでしょうか？

例：
Ａ列　｜Ｂ列　｜
　あ　｜　01　｜Ａ列「あ」の場合、Ｂ列の同じ行に「01」
　い　｜　02　｜Ａ列「い」の場合、Ｂ列の同じ行に「02」

といった感じです。
初歩的な質問で申し訳ございませんがご教授願います。

回答No.2

keithin · ベストアンサー

意味がわかりませんが，このマクロではダメだと言うことですね。

＃参考
Ａ列にデータ記入済みのシートに，回答の通りにマクロを取り付ける
Ａ列のデータをコピーし，その場で貼り付ける
と，Ａ列のデータを再入力したことになりマクロが実行される
以後はＡ列を編集する都度，直ちにＢ列に反映する

＞マクロの実行をおこなってからマクロが動作する方がありがたかったです

やることは一緒なので，あとはあなたが実際にヤリタイコトに応じて適切に応用してください。

手順：
前回回答のマクロを全て漏れなく消去する

改めてＡＬＴ＋Ｆ１１でＶＢＥ画面を出す
挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim h as range
　on error resume next

　for each h in application.intersect(activesheet.usedrange, range("A:A"))
　select case h.value
　case "あ"
　　cells(h.row, "B") = "'01"
　case "い"
　　cells(h.row, "B") = "'02"
　case else
　　cells(h.row, "B").clearcontents
　end select
　next
end sub

ファイルメニューから終了してエクセルに戻る
マクロを実行する。

お礼

お手数おかけして申し訳ございません。
大変勉強になりました。
ご回答ありがとうございます。
ベストアンサーに選ばせていただきます。

回答No.1

keithin

シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　on error resume next

　for each h in application.intersect(target, range("A:A"))
　select case h.value
　case "あ"
　　cells(h.row, "B") = "'01"
　case "い"
　　cells(h.row, "B") = "'02"
　case else
　　cells(h.row, "B").clearcontents
　end select
　next
end sub

ファイルメニューから終了してエクセルに戻る
Ａ列に記入する。

お礼

ご回答いただきありがとうございます。
しかし、シートにＡ列のデータが入力されている状態から
Ｂ列を入力したいので、マクロの実行をおこなってから
マクロが動作する方がありがたかったです。
ご回答いただきありがとうございました。