[已解决]送货单帮忙修改下添加点程序

naive薇 · 发表于 2014-10-23 14:28

su45 发表于 2014-10-22 22:38

保存不了

su45 · 发表于 2014-10-23 19:29

是不是点保存出现的？这个文件中“保存”的代码不是咱做的！

zyouong · 发表于 2014-10-23 19:37

本帖最后由 zyouong 于 2014-10-23 19:39 编辑

你保存的单据内容是空的吧，也就是A8：A13中没有内容吧。将保存代码中的If D > 20Then MsgBox "未填写必要内容，不能保存！", vbInformation, "提示": Exit Sub
改成If D > 15 Or D < 8 Then MsgBox "未填写必要内容，不能保存！", vbInformation, "提示": Exit Sub

或者将D＝[a14].end(3).row 改成D＝[b14].end(3).row

su45 · 发表于 2014-10-23 19:44

你把它换成咱做的就行了

naive薇 · 发表于 2014-10-27 16:20

zyouong 发表于 2014-10-23 19:37
你保存的单据内容是空的吧，也就是A8：A13中没有内容吧。将保存代码中的If D > 20Then MsgBox "未填写必要内 ...

按照你那修改后，送货单中6行内容的只能保存前四行的内容。再改改呗{:081:}

zyouong · 发表于 2014-10-27 16:50

.Cells(B, 4).Resize(D - 9, 9) = AR
.Cells(B, 1).Resize(D - 9, 3) = BR
.Cells(B, 6).Resize(D - 9).Delete xlShiftToLeft
D-9改成D-7

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

[已解决]送货单帮忙修改下添加点程序

评分

评分