自動更新のNOW（）機能を停止

Question

私は、左側の隣接セルが変更された時刻を記録したいセルがあります。私はNOW（）関数でそれを行います。ただし、問題は、ブックが再計算されるたびに時間が更新されることです。だから私は、この非常にセルが自動更新されないようにする独創的な方法があるのか​​どうか疑問に思っています。

細胞内の私の現在の式：

= IF（ISBLANK（H11）、 ""、IF（H11 = "興味" NOW（）、IF（H11 = "NOW、" 興味なし（） 、「」）））

私は個人的にこれが出ている：このコードで

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim Destination As Range 
    If Not Intersect(Target, Range("H:H")) Is Nothing Then 
     Target.Offset(0, 1).Value = Now 
    End If 
End Sub 

私の問題は、それが細胞内の任意のデータを探しているということです。私は、「興味がある」か「興味がない」のいずれかが含まれている時間をセルに記録したいだけです。現在見ているセルには、「進行中」が含まれています。私はこれらの基準を取り入れるために私のコードで遊んでみましたが、私はエラーで打撃を受けています。私がこれを解決するために何ができるかについてのアドバイスはありますか？前もって感謝します。

Answer 1

代わりに次のコードを試してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim Destination As Range 
    If Not Intersect(Target, Range("H:H")) Is Nothing Then 
     If LCase(Trim(Target.Value2)) = "not interested" Or LCase(Trim(Target.Value)) = "interested" Then 
      Application.EnableEvents = False 
      Target.Offset(0, 1).Value = Now 
      Application.EnableEvents = True 
     End If 
    End If 
End Sub 

Answer 2

別のアプローチは、 `あなたはあなたが使用して確認することができます= TimeChanged（H11）

Option Explicit 
Option Compare Text 
Public Function TimeChanged(theCell As Variant) 
    If TypeOf theCell Is Range Then theCell = theCell.Value2 
    If theCell = "Interested" Or theCell = "Not Interested" Then 
     TimeChanged = Now 
    Else 
     TimeChanged = "" 
    End If 
End Function