セルを空欄にできますか？

質問

M列に０以上の数字が入力されたらA列の日付を変えるシートです

B列の　毎日は　＋１日後
B列の　毎週は　＋７日後

下記がその計算式です。

　アドインで「分析ツール」「分析ツール－ＶＢＡ」のチェックを入れてWORKDAY関数
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("M:M"))
　if h > 0 then
　　select case cells(h.row, "B")
　　case "毎日"
　　　cells(h.row, "A") = cells(h.row, "A") + 1
　　case "平日"
　　　cells(h.row, "A") = application.run("ATPVBAEN.XLA!WorkDay", cells(h.row, "A"), 1)
　　case "毎週"
　　　cells(h.row, "A") = cells(h.row, "A") + 7
　　case "隔週"
　　　cells(h.row, "A") = cells(h.row, "A") + 14
　　case "毎月"
　　　cells(h.row, "A") = dateadd("M", 1, cells(h.row, "A"))
　　case "隔月"
　　　cells(h.row, "A") = dateadd("M", 2, cells(h.row, "A"))
　　end select
　end if
　next
end sub

－－－－－－－－－－－－－－－－－－

そこで　質問ですが

B5　の　「－」が入ると　A５が空欄になるなんて　可能ですか？
上記の式になんと追加すればいいのでしょうか？

回答No.1

keithin · ベストアンサー

マクロのご相談では、「寄せられた回答のマクロをコピーして掲示する」みたいな嘘情報は絶対にやめて、寄せられた回答を見て「あなたが今実際に動かしているそのマクロ」を、アナタの実際のエクセルから必ずコピーして、正直な生の今の真実の情報提供をするようにしてください。

で。
＞B5　の　「－」が入ると　A５が空欄になる

Ｂ列に－が「入る」ってどういう事ですか？あなたが「手で記入すると」という意味で間違いないんでしょうか。

作成例：
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("M:M"))
　if h > 0 then
　　select case cells(h.row, "B")
　　case "毎日"
　　　cells(h.row, "A") = cells(h.row, "A") + 1
　　case "平日"
　　　cells(h.row, "A") = application.run("ATPVBAEN.XLA!WorkDay", cells(h.row, "A"), 1)
　　case "毎週"
　　　cells(h.row, "A") = cells(h.row, "A") + 7
　　case "隔週"
　　　cells(h.row, "A") = cells(h.row, "A") + 14
　　case "毎月"
　　　cells(h.row, "A") = dateadd("M", 1, cells(h.row, "A"))
　　case "隔月"
　　　cells(h.row, "A") = dateadd("M", 2, cells(h.row, "A"))
　　end select
　end if
　next

　for each h in application.intersect(target, range("B:B"))
　　if strconv(h, vbnarrow) = "-" then
　　cells(h.row, "A").clearcontents
　　end if
　next
end sub

補足

回答ありがとうございます。
説明が悪く申し訳ありません。　B列の「－」は私が手で入力するものです。