vba - データ検証ドロップダウンからExcelVBAでイベントをトリガーする

Question

ユーザーに計算タイプの選択肢を提供したいシートがあります。計算タイプは、データ検証でのリスト選択を介して行われます。選択したら、イベントをトリガーして、そのタイプの選択に適したセルをロードします。[データ検証]ドロップダウンでデータ変更イベントを検出するにはどうすればよいですか、またはこれにアクティブXコントロールを使用する必要がありますか？

ワークシート変更イベントのコードがアクティブ化されていません：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.count > 1 Then Exit Sub

Application.EnableEvents = False

On Error GoTo Errortrap


'~~> Change it to the relevant string with which you want to compare
StringToCheck = "+"

If Not Intersect(Target, Range("D47")) Is Nothing Then
    '~~> Check for the cell value
    If Target.Value = StringToCheck Then
      'setup row to capture addition fields
       Cells(33, 4).Value = "Input File 1"
       Cells(33, 4).Value = "Worksheet 1"
       Cells(33, 4).Value = "Cell 1"
       Cells(33, 4).Value = "Input File 2"
       Cells(33, 4).Value = "Worksheet 2"
       Cells(33, 4).Value = "Cell 2"
    End If
End If

LetsContinue:
   Application.EnableEvents = True
   Exit Sub
Errortrap:
    MsgBox Err.Description
    Resume LetsContinue
End Sub