vba セルの書き換えとコメントアウト

質問

こんにちは。以下のコードをご教授願えませんでしょうか。

A列に日付B～L列にそれぞれ項目があり、値はそれぞれ入力済であり今後も増える予定です。
B列に【抹消】と入力したら、

(1)A列の入力されている日付をコメントにコピー（コメントは非表示）
(2)A列に現在の日付を入力
(3)E～L列に抹消と入力（すでに入力されている別の値を入力）

すでに入力してある情報を書き換えるときに使用したいです。

よろしくお願いします。
エクセル2013の環境です。

回答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("B:B"))
　　if h = "抹消" then
　　　with cells(h.row, "A")
　　　　.clearcomments
　　　　.addcomment
　　　　with .comment
　　　　　.visible = false
　　　　　.text text:=cells(h.row, "A").text
　　　　end with
　　　　.value = date
　　　end with
　　end if
　　cells(h.row, "E").resize(1, 8).specialcells(xlcelltypeconstants) = "抹消"
　next
end sub