UC知道VBA和语句
来源：百度知道 编辑：UC知道 时间：2024/06/11 10:59:56
这哪有错啊。
Sub ad()
Dim gh,hg,io,chan
For gh=1 to 200
If range(“b”&gh)=”物料” THEN
RANGE(“D”&GH)=io
End if
For hg=1 to 10
Chan=gh-hg
If range(“a”&gh)=range(“a”&chan) and range(“b”&chan)=”鞋” THEN
Range(“d”&chan)=range(“d”&chan)+io
End if
Next hg
Next gh
End sub
其实就是将符合条件的一行数加到符合条件的另一行
Sub ad()
Dim gh,hg,io,chan
For gh=1 to 200
If range(“b”&gh)=”物料” THEN
RANGE(“D”&GH)=io
End if
For hg=1 to 10
Chan=gh-hg
If range(“a”&gh)=range(“a”&chan) and range(“b”&chan)=”鞋” THEN
Range(“d”&chan)=range(“d”&chan)+io
End if
Next hg
Next gh
End sub
其实就是将符合条件的一行数加到符合条件的另一行
如果 range("B1") 到 range("B200")任何一个值等于“物料”那么 range("D?")=io "?"是1到200中等于物料的那个数
下面依次类推吧 就是一个简单的if语句加个循环.