判断三列数据相同的内容出现的次数并显示出来

ベ.わそ德

将A列，B列，C列的同行单元格数据进行整理成如G列那样，H列判断G列活动单元格在G2到活动单元格的区域出现的次数，当单击D列任意单元格后显示到窗体文本框内；
如：单击D7单元格，窗体文本框显示的结果应为2
H列和G列是公式显示的结果，希望能用VBA单击活动单元格时直接显示，请老师帮忙填加下VBA代码

ベ.わそ德

此贴，我自己已经解决，不需要再回复了。

ベ.わそ德

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Parent.Range("A" & Target.Row) = "" Then
        Exit Sub
    End If
    If Target.Column = 4 And 1 < Target.Row Then
    If Target.Parent.Range("D" & Target.Row) = "" Then
    On Error Resume Next
    Dim y, x, t，j
     y = ActiveCell.Row
     j = 0
     x = Mid(Cells(y, 1), 5, 4) & Cells(y, 2) & Right(Cells(y, 3), 5)
     For i = 2 To y
       If Mid(Cells(i, 1), 5, 4) & Cells(i, 2) & Right(Cells(i, 3), 5) = x Then
       j = j + 1
       End If
     Next
     t = j
       With wbqqw
       .TextBox1.Text = t
       .Show
        End With
    Err.Clear
    End If
    End If
    Exit Sub
End Sub