又碰到两个新问题了请大侠出手相助谢谢了

albeezxp · 发表于 2019-1-10 18:48

第一个问题销售输入界面上增加 "修改" 按键因为容易出错错了以后要到销售明细内去删除
第二个问题销售分类运行代码速度太慢有没有快点的代码

albeezxp · 发表于 2019-1-11 21:47

没有大侠协助吗

YZC51 · 发表于 2019-1-12 01:37

1、
Sub 修改()
   r = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
   Response = MsgBox("你确实要删除吗？？？", vbYesNo, "删除提醒！！！")
   If Response = 6 Then Sheet2.Rows(r) = ""
End Sub
2、双击销售分类表任意单元格即可重算

YZC51 · 发表于 2019-1-12 01:44

请参考

每日销售第一次使用四.rar (54.96 KB, 下载次数: 2)

albeezxp · 发表于 2019-1-12 10:21

本帖最后由 albeezxp 于 2019-1-12 10:25 编辑

YZC51 发表于 2019-1-12 01:44
请参考

第一个问题  销售输入界面上  增加  "修改"  按键，清除时存在两个问题
1、不能全部清除，销售明细内会有很多清除不干净的
2、销售明细表内清除时会留下  空行
3、销售明细内有清除不干净时，销售输入界面  输入键还可以输入，造成销售明细中有重复现象，此次输入时，价格没有汇总

  以上问问  请帮忙  谢谢

YZC51 · 发表于 2019-1-12 14:08

albeezxp 发表于 2019-1-12 10:21
第一个问题销售输入界面上增加 "修改" 按键，清除时存在两个问题
1、不能全部清除，销售明 ...

1、是清除最后一行，还是全部清除？
2、在哪行留下空行？
3、什么样的重复现象？
4、最好还是上附件说明下

albeezxp · 发表于 2019-1-12 22:40

YZC51 发表于 2019-1-12 14:08
1、是清除最后一行，还是全部清除？
2、在哪行留下空行？
3、什么样的重复现象？

1、当按修改键时销售明细中会有空行  如黄色标识地方
2、每次按修改时  以当天日期及编号输入到销售明细的  不会一次性清除干净如红色的1/12号及 XK0112
3、重复是因为我按了修改键销售明细未清理干净  如1/12号及 XK0112还在销售明细内，但是还可以按输入键。
4、按输入键时销售输入界面单价合计总销售额出不来（这个前提是我按过修改键）

以上不知道我表达清楚不麻烦了

YZC51 · 发表于 2019-1-13 08:47

albeezxp 发表于 2019-1-12 22:40
1、当按修改键时销售明细中会有空行如黄色标识地方
2、每次按修改时以当天日期及编号输入到销 ...

请参考
Sub 修改()
   r = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
   Response = MsgBox("你确实要删除吗？？？", vbYesNo, "删除提醒！！！")
   If Response = 6 Then Sheet2.Rows(r).Delete
End Sub

YZC51 · 发表于 2019-1-13 08:48

附件

每日销售第一次使用五.rar (57.55 KB, 下载次数: 2)

albeezxp · 发表于 2019-1-13 09:27

YZC51 发表于 2019-1-13 08:48
附件

收到谢谢我试试

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

[求助] 又碰到两个新问题了请大侠出手相助谢谢了

评分

最新热点 /1

[求助] 又碰到两个新问题了 请大侠出手相助 谢谢了

评分

最新热点 /1

[求助] 又碰到两个新问题了请大侠出手相助谢谢了