セルのコメントに他のセルの値を表示

質問

Excel2010です。下記を実現するための方法（マクロ？）を教えて頂けないでしょうか。

A1～A5セル：管理Noとして１－１、１－２、２－１、２－２など任意の数字
B1～B5セル：項目名（例：りんご、みかん・・・）

A11～A15セル：A1～A5にある管理Noのうち、任意の数字を手入力

このような状況の時、A11～A15セルのコメント欄に、
そのA11～A15セルに記入された管理Noに対応する、B1～B5の内容を表示させたいです。

例：
A1セル：１－１
B1セル：りんご
A11セル：１－１
A11セルのコメント欄：りんご

上記のイメージです。

お手数ですがよろしくお願いします。

回答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("A11:A15"))
　h.clearcomments
　h.addcomment application.vlookup(h.value, range("A1:B5"), 2, false)
　next
end sub

必要に応じて，どこのセル範囲に入力したら動作させたいのか，実際の対応表データはどこに記入されているのかなどを適切に修正する
ファイルメニューから終了してエクセルに戻る
Ａ１１：Ａ１５に記入する。

補足

ありがとうございます！ばっちり動作しました。
もしお手数でなければ、後学のために簡単に解説していただけませんか？