どこを修正すれば 日付が変わるのか？

質問

先ほど、

http://okwave.jp/qa/q7454676.html

の質問して　サンプルにはきちんと作動することを確認しました。

そこで、サンプル版ではないものに手を加えても動作がうまくいきません

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("C:C"))
　　if h = "完了" then
　　if h.offset(0, -1) = "毎日" then
　　　h.offset(0, -2) = h.offset(0, -2) + 1
　　elseif h.offset(0, -1) = "毎週" then
　　　h.offset(0, -2) = h.offset(0, -2) + 7
　　end if
　　end if
　next
end sub

－－－－－－－－－－－－－
　for each h in application.intersect(target, range("N:N"))

と変更したのですが、動作しません。
どこを修正すれば、動作するでしょうか？

回答No.1

hallo-2007 · ベストアンサー

非表示の列を再表示にしてみてください。
どんな動作をしているか確認できますよ。

h.offset(0, -1)
変数hに格納されているセル（N列のセル）から
１つ左のセル
h.offset(0, -2)
は。２つ左のセル　を指定しています。
C列からN列へ変更したので、そこからいくつ左へ移動するかも
変更が必要です。

お礼

ありがとうございます。とても参考になりました　動作が確認できました