ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 293|回复: 27

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-1-10 18:48 | 显示全部楼层 |阅读模式
第一个问题  销售输入界面   上  增加  "修改"  按键  因为容易出错  错了以后要到 销售明细内去删除
第二个问题  销售分类  运行 代码 速度太慢 有没有快点的代码

每日销售第一次使用四.rar

234.46 KB, 下载次数: 12

每日销售表

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-11 21:47 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 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、双击 销售分类 表 任意单元格即可重算

TA的精华主题

TA的得分主题

发表于 2019-1-12 01:44 | 显示全部楼层
请参考
每日销售第一次使用四.rar (54.96 KB, 下载次数: 2)

评分

参与人数 1鲜花 +1 收起 理由
albeezxp + 1 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-12 10:21 | 显示全部楼层
本帖最后由 albeezxp 于 2019-1-12 10:25 编辑

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

TA的精华主题

TA的得分主题

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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-12 22:40 | 显示全部楼层
YZC51 发表于 2019-1-12 14:08
1、是清除最后一行,还是全部清除?
2、在哪行留下空行?
3、什么样的重复现象?

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

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

每日销售第一次使用五.rar

52.54 KB, 下载次数: 3

TA的精华主题

TA的得分主题

发表于 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

TA的精华主题

TA的得分主题

发表于 2019-1-13 08:48 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-1-13 09:27 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-1-24 20:27 , Processed in 2.653515 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表