|
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
x = Target.Value
Dim arr, d, d2, i&
Set d = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
arr = Sheets("数据").UsedRange
For i = 4 To UBound(arr)
If arr(i, 1) = "" Then Exit For
If arr(i, 9) = "改造" And arr(i, 1) <= x And arr(i, 2) <> "" Then
d(x & "," & arr(i, 2) & "," & arr(i, 9)) = ""
End If
If arr(i, 1) <= x And arr(i, 2) <> "" Then d2(x & "," & arr(i, 2)) = ""
Next
[c2] = d.Count
[c4] = d2.Count
End If
End Sub
|
|