|
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lot_Num, i%
If Target.Address = [c5].Address Then
Lot_Num = [c5].Value
Range("d11,d12,d13,c4:d4,f4:g4,e30:i30,e31:i31").ClearContents
For i = 19 To 25
Range("D" & i).ClearContents
Next
If Dic.exists(Lot_Num) Then
[c4] = Dic(Lot_Num)(2): [f4] = Dic(Lot_Num)(1)
[e30] = Dic(Lot_Num)(14): [e31] = Dic(Lot_Num)(15)
[d11] = Dic(Lot_Num)(4): [d12] = Dic(Lot_Num)(5): [d13] = Dic(Lot_Num)(6)
For i = 19 To 25
Range("D" & i) = Dic(Lot_Num)(i - 12)
Next
End If
End If
End Sub
亲可以,说明一下各代码意思吗??
我正在找 同一工作蒲中,有一张信息汇总表,如何在不同表中根据汇总表中某栏的条件 自动提取到不同表某区域下。 |
|