Private Sub Worksheet_Change(ByVal Target As Range)
Dim nRow%, Arr(), cMc$, cPc$, cTxt$, nSum!
If Target.Row =1 Or Target.Column <>4 Then Exit Sub
If Target.CountLarge >1 Then Exit Sub
cMc = Target.Offset(0,-1).Value
cPc = Target.Value
If cMc ="" Or cPc ="" Then Exit Sub
For sh =0 To 1
With Sheets(Array("期初","入库")(sh))
nRow =.Range("a1048576").End(xlUp).Row
Arr =.Range("a1:e"& nRow).Value
End With
For i =2 To nRow
If Arr(i,2+ sh)= cMc And Arr(i,3+ sh)= cPc Then
nSum = nSum + Arr(i,4+ sh)
End If
Next
Next
nRow = Target.Row -1
With Me
Arr =.Range("a1:e"& nRow).Value
End With
For i =2 To nRow
If Arr(i,3)= cMc And Arr(i,4)= cPc Then
nSum = nSum - Arr(i,5)
End If
Next
With Target.Offset(0,1).Validation
.Delete
.Add 2,1,8, nSum
.InputTitle ="最大值".InputMessage = nSum
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nRow%, Arr(), cMc$, cTxt$, sh%
If Target.Row =1 Or Target.Column <>4 Then Exit Sub
If Target.CountLarge >1 Then Exit Sub
cMc = Target.Offset(0,-1).Value
If cMc ="" Then Exit Sub
For sh =0 To 1
With Sheets(Array("期初","入库")(sh))
nRow =.Range("a1048576").End(xlUp).Row
Arr =.Range("a1:d"& nRow).Value
End With
For i =2 To nRow
If Arr(i,2+ sh)= cMc Then
If Not cTxt &"," Like "*,"& Arr(i,3+ sh)&",*" Then
cTxt = cTxt &","& Arr(i,3+ sh)
End If
End If
Next
Next
With Target.Validation
.Delete
If cTxt <>"" Then .Add 3,1,1, cTxt
End With
End Sub
AGI 时代,AI 无处不在,形成新的社会分层:
AI 使用者,使用别人开发的 AI 产品AI 产品开发者,设计和开发 AI 产品基础模型相关,训练基础大模型,或为大模型提供基础设施
越向下层,重要…
在硬件管理器中调试 AXI 接口 IP integrator 中的 System ILA IP 支持您在 FPGA 上对设计执行系统内调试。在 Versal 器件上 , System ILA 核已被废 弃。现在 , 在含 AXIS 接口的标准 ILA 中支持接口调试。如需监控 IP integrator 块设计中的…