[已解决]发货控制-如何自定计算并表示是否超额度？

心灵有约 · 发表于 2015-2-2 11:56

发货控制-如何自定计算并表示是否超额度？.rar (14.55 KB, 下载次数: 3)

grf1973 · 发表于 2015-2-2 13:35

这个最佳答案由 grf1973 给出，感谢 grf1973 的回答。

单击隐藏图章

Sub tt()
arr = Range("a3:k" & [a65536].End(3).Row)
For i = 1 To UBound(arr)
If arr(i, 10) = "" Then arr(i, 10) = arr(i - 1, 10)
arr(i, 11) = IIf(arr(i, 10) >= arr(i, 7), "否", "是")
Next
[k3].Resize(UBound(arr), 1) = Application.Index(arr, , 11)
End Sub

复制代码

grf1973 · 发表于 2015-2-2 13:36

请看附件。

心灵有约 · 发表于 2015-2-2 14:56

grf1973 发表于 2015-2-2 13:35

继续问题：
1、我想只要余额列中数据有变动，则对应的行的是否超额度表自动修改，不需要点击按钮；
2、判断用的浮动后额度，均以每一个客户的第一行数据为准，不需判断是否为空；

grf1973 · 发表于 2015-2-2 16:07

在你原来的worksheet_Change事件下加了一小段

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r
If Target.Address = "$D$1" Then
If [a:a].Find(Target, , , 1) Is Nothing Then
[a65536].End(3).Offset(1).Select
Else
r = [a:a].Find(Target, , , 1, , 2).Row
Rows(r + 1).EntireRow.Insert
Cells(r, 1).Resize(1, 2).Copy Cells(r + 1, 1)
Cells(r + 1, "g") = Cells(r, "g") + Cells(r + 1, "e")
End If
ElseIf Target.Column = 7 And Target.Row >= 3 Then
arr = Range("a1:k" & [a65536].End(3).Row)
For i = 3 To UBound(arr)
If arr(i, 10) = "" Then arr(i, 10) = arr(i - 1, 10)
Next
i = Target.Row
Cells(i, 11) = IIf(arr(i, 10) >= arr(i, 7), "否", "是")
End If
End Sub

复制代码

grf1973 · 发表于 2015-2-2 16:09

另外“判断用的浮动后额度，均以每一个客户的第一行数据为准，不需判断是否为空”是没错，我判断为空就让他等于上一个，也是为了取得本行的浮动后额度。

心灵有约 · 发表于 2015-2-3 09:14

grf1973 发表于 2015-2-2 16:09
另外“判断用的浮动后额度，均以每一个客户的第一行数据为准，不需判断是否为空”是没错，我判断为空就让他 ...

谢谢您

心灵有约 · 发表于 2015-2-4 14:41

本帖最后由心灵有约于 2015-2-4 14:42 编辑

心灵有约发表于 2015-2-3 09:14
谢谢您

2013

月份：

3

金额单位：

元

file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtmlclip1/01/clip_image001.png

客户名称

日期

期初

发货

回款

余额

限额

级次

浮动后限额

是否超额

甲

1

100.00

150

A

225

否

甲

5

160.00

260.00

是

甲

8

800.00

60.00

1,000.00

是

乙

1

100.00

B

是

目的：是否超额的绿色区域需自动标示出来。

判断依据：每一客户首行的浮动后限额与当前行的余额比较，前者大于或等于后者，为“否”，否则为“是”。如3行：225-100=125>0,为否，4行：225-260=-35<0,为是，6行：0（空）-100=-100，为是

方法：vba

说明：客户不限定，行数不限定

以上为原问题

追加问题：

1、当浮动后限额为0时，运行按钮程序，结果为“是”，符合预期，如乙客户，见下效果表。

2013

月份：

3

金额单位：

元

客户名称

日期

期初

发货

回款

余额

限额

级次

浮动后限额

是否超额

甲

1

100.00

150

A

225

否

甲

5

160.00

260.00

是

甲

8

800.00

60.00

1,000.00

是

乙

1

100.00

B

0

是

2、当浮动后限额为空时，运行按钮程序，结果为“否”，不符合预期（此时作为判断的数据是：乙的余额100和甲的浮动后限额225，正确的应该为乙的余额100和乙的浮动后限额空值），见下效果表。

2013

月份：

3

金额单位：

元

客户名称

日期

期初

发货

回款

余额

限额

级次

浮动后限额

是否超额

甲

1

100.00

150

A

225

否

甲

5

160.00

260.00

是

甲

8

800.00

60.00

1,000.00

是

乙

1

100.00

B

否

期望：判断依据以每一客户的第一行的浮动后限额为准，空值视为0。也即乙的浮动后限额如果为空仍视为0，而不能根据上一客户的浮动后限额作为判断依据。

心灵有约 · 发表于 2015-2-4 14:46

grf1973 发表于 2015-2-2 16:09
另外“判断用的浮动后额度，均以每一个客户的第一行数据为准，不需判断是否为空”是没错，我判断为空就让他 ...

当某客户的浮动后限额为空时，运行结果就不符合预期了，如果添加为0值时，没问题。因此判断的依据一定是该客户的首行的数值（空值视为0），否则就会发生错误的向上寻找比较数据。

2013

月份：

3

金额单位：

元

file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtmlclip1/01/clip_image001.png

客户名称

日期

期初

发货

回款

余额

限额

级次

浮动后限额

是否超额

甲

1

100.00

150

A

225

否

甲

5

160.00

260.00

是

甲

8

800.00

60.00

1,000.00

是

乙

1

100.00

B

是

目的：是否超额的绿色区域需自动标示出来。

判断依据：每一客户首行的浮动后限额与当前行的余额比较，前者大于或等于后者，为“否”，否则为“是”。如3行：225-100=125>0,为否，4行：225-260=-35<0,为是，6行：0（空）-100=-100，为是

方法：vba

说明：客户不限定，行数不限定

以上为原问题

追加问题：

1、当浮动后限额为0时，运行按钮程序，结果为“是”，符合预期，如乙客户，见下效果表。

2013

月份：

3

金额单位：

元

客户名称

日期

期初

发货

回款

余额

限额

级次

浮动后限额

是否超额

甲

1

100.00

150

A

225

否

甲

5

160.00

260.00

是

甲

8

800.00

60.00

1,000.00

是

乙

1

100.00

B

0

是

2、当浮动后限额为空时，运行按钮程序，结果为“否”，不符合预期（此时作为判断的数据是：乙的余额100和甲的浮动后限额225，正确的应该为乙的余额100和乙的浮动后限额空值），见下效果表。

2013

月份：

3

金额单位：

元

客户名称

日期

期初

发货

回款

余额

限额

级次

浮动后限额

是否超额

甲

1

100.00

150

A

225

否

甲

5

160.00

260.00

是

甲

8

800.00

60.00

1,000.00

是

乙

1

100.00

B

否

期望：判断依据以每一客户的第一行的浮动后限额为准，空值视为0。也即乙的浮动后限额如果为空仍视为0，而不能根据上一客户的浮动后限额作为判断依据。

grf1973 · 发表于 2015-2-5 09:29

把运行有误的做成附件上传，在附件里说明问题。

		自动登录	找回密码
密码			注册