セルの値を変更する方法BEFORE Change_Eventを適用する[Excel/VBA]

Question

セルの値を変更する必要があります。例えば、私はWorksheet_Changeイベントを持っており、それが起動したとき、私はMsgBox "Target.value"場合には、「ケーキ」ではなく「バブルガム」になり、Range("B1").valueは「ケーキ」であると私は

Range("B1").value = "Bubblegum" 

を行います。しかし。ここで

は私のイベントです：

Private Sub Worksheet_Change(ByVal Target As Range) 

    Dim cellAdress As String 
    cellAdress = Target.Column 

    If cellAdress = 5 Then 
     If Target.Value = "X" Then 
      Range("F" & Target.Row).Value = "0,0€" 
     ElseIf Target.Value = "O" Then 
      If Range("A" & Target.Row).Interior.ColorIndex = 2 Then 
       Range("F" & Target.Row).Value = Worksheets("Astreinte").Range("B10").Value 
      Else 
       Range("F" & Target.Row).Value = Worksheets("Astreinte").Range("B11").Value 
      End If 
     Else 
      Range("F" & Target.Row).Value = "Valeur Incorrecte" 
     End If 
    End If 

End Sub 

そして、ここでは私のコード

For Each myDate In DateMonthCorrespondante 
    Range("E" & (2 + Day(myDate))).Value = "O" 
Next 

どのように私はそれを変更することができますか？

Dim v 

Private Sub Worksheet_Change(ByVal Target As Range) 

MsgBox v 

End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

v = Target.Value 

End Sub 

すなわちあなたがのSelectionChangeを使用して試してみて、タンデムでのイベントを変更することができ、あなたの助け

Answer 1

ため

おかげで、このすべては、シートモジュールになります。次に、ボックスを表示させたい状況を制限するための条件を追加することができます。

Answer 2

以前にイベントを無効にしてから再度有効にします。

Application.EnableEvents = False 
Range("B1").value = "Bubblegum" 
Application.EnableEvents = True 

Answer 3

まあ、あなたの助けを借りて私は最終的に私の問題を解決しました。

私はライン

Range("E" & (2 + Day(myDate))).Value = "O" 

のエラーを持っていたし、ため、イベントのために、それは私にそれを言いませんでした。