web-dev-qa-db-ja.com

セル値の変更時にVBAトリガーマクロ

これは単純なはずです。セルの値が変更されたときに、VBAコードをトリガーしたいと思います。セル（D3）は、他の2つのセルからの計算です=B3*C3。私は2つのアプローチを試みました：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 4 And Target.Row = 3 Then
    MsgBox "There was a change in cell D3"
  End If
End Sub

セルは計算であるため、計算は同じままであるため、値が変更されてもこれはトリガーされません。私も試しました：

Private Sub Worksheet_Calculate()
  MsgBox "There was a calculation"
End Sub

しかし、シートに複数の計算があり、それが複数回トリガーされます。計算イベントで変更された計算を特定する方法はありますか？または、D3が変更されたときに追跡できる別の方法はありますか？

excelvbaexcel-vbaevent-handling
4
Kyle Weller

このようなことを試していただけませんか？式を=D3AlertOnChange(B3*C3)に変更します。

Private D3OldVal As Variant

Public Function D3AlertOnChange(val)
    If val <> D3OldVal Then MsgBox "Value changed!"
    D3OldVal = val
    D3AlertOnChange = val
End Function
5
Chel

または試してみてください

Private Sub Worksheet_Change(ByVal Target As Range)
Dim numdependences As Integer
On Error Resume Next
HasDependents = Target.Dependents.Count
If Err = 0 Then
    If InStr(Target.Dependents.Address, "$D$3") <> 0 Then
        MsgBox "change"
    End If
End If
On Error GoTo 0
End Sub

依存関係のないセルを変更する場合は、エラー制御が必要です。

3
Diego

これを試して：

 Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Target.Worksheet.Range("B1")) Is Nothing Then

      Call macro

    End If

 End Sub

セルB1の値の変化を探し、「マクロ」を実行します

1
walter's human

Worksheet_Changeの場合のみを確認している場合は、前の値と同じであっても、入力されたすべての変更がカウントされます。これを克服するために、Public変数を使用して開始値を取得し、それを比較します。

これはこれを行うための私のコードです。また、ワークシートの一部を省略したり、ワークシートのすべてのセルを評価するために使用したりすることもできます。

このコードをワークシートに配置します。

Public TargetVal As String 'This is the value of a cell when it is selected


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Then 'If more then one cell is selected do not save TargetVal. CountLarge is used to protect from overflow if all cells are selected.
    GoTo EXITNOW
Else
    TargetVal = Target 'This sets the value of the TargetVal variable when a cell is selected
End If
EXITNOW:
End Sub

 Sub Worksheet_Change(ByVal Target As Range)
'When a cell is modified this will evaluate if the value in the cell value has changed.
'For example if a cell is entered and enter is pressed the value is still evaluated
'We don't want to count it as a change if the value hasn't actually changed

Dim ColumnNumber As Integer
Dim RowNumber As Integer
Dim ColumnLetter As String

'---------------------
'GET CURRENT CELL INFO
'---------------------
    ColumnNumber = Target.Column
    RowNumber = Target.Row
    ColumnLetter = Split(Target.Address, "$")(1)

'---------------------
'DEFINE NO ACTION PARAMETERS
'   IF CELL CHANGED IS IN NO ACTION RANGE, EXIT CODE NOW FOR PERFORMANCE IMPROVEMENT OR TO NOT TAKE ACTION
'---------------------
    If ColumnNumber <> 4 Then 'This would exempt anything not in Column 4
        GoTo EXITNOW
    ElseIf RowNumber <> 3 Then 'This would exempt anything not in Row 3
        GoTo EXITNOW
    'Add Attional ElseIf statements as needed
    'ElseIf ColumnNumber > 25 Then
        'GoTo EXITNOW
    End If

'---------------------
'EVALUATE IF CELL VALUE HAS CHANGED
'---------------------
Debug.Print "---------------------------------------------------------"
Debug.Print "Cell: " & ColumnLetter & RowNumber & " Starting Value: " & TargetVal & " | New Value: " & Target

    If Target = TargetVal Then
        Debug.Print " No Change"
        'CALL MACRO, FUNCTION, or ADD CODE HERE TO DO SOMETHING IF NOT CHANGED
    Else
        Debug.Print " Cell Value has Changed"
        'CALL MACRO, FUNCTION, or ADD CODE HERE TO DO SOMETHING IF CHANGED
    End If
Debug.Print "---------------------------------------------------------"

EXITNOW:
 End Sub
0
Andrew Prostko