計算式があると表示しないのか？

質問

N3が終了と表示されたら　A列に　5／3が表示できるようにしたい(＋１日後)

B列が毎週なら、A列は(＋７日後)を表示したい

現在　下記のような計算式が入っているのですが、動作しません。

その理由として、

N列には=IF(I1>0,"終了","未着手")
B列は　プルダウンで　=$B$8:$B$9から選ぶようにしています

つまり、I列によって　自動的に、終了か、着手が決まっています。
B列は私が手動でプルダウンで２つのいずれかを選んでいます。

このような計算式が入っていると下記のやり方では無理なのでしょうか？

－－－－－－－－－－－－－
エクセルのシート名タブを右クリックしてコードの表示－現れたシートに下記をコピー貼り付けています

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("N:N"))
If h = "終了" Then
If h.Offset(0, -12) = "毎日" Then
h.Offset(0, -13) = h.Offset(0, -13) + 1
ElseIf h.Offset(0, -12) = "毎週" Then
h.Offset(0, -13) = h.Offset(0, -13) + 7
End If
End If
Next
End Sub

回答No.1

osamuy · ベストアンサー

計算式による内容変更に対しては、イベントが発生しないとか。

参考URL：

http://msdn.microsoft.com/ja-jp/library/aa220862(v=office.11).aspx

お礼

ありがとうございます、できないなら他の方法を考えないないとなりませんね