文件名称:
VBA自动生成时间自动计算合计价格.rar
开发工具:
文件大小: 9kb
下载次数: 0
上传时间: 2011-09-27
详细说明： 遇到一个问题是这样的：有个做采购的同事，他来找到我，让我给他设计一个execl表格，能完成它日常采购东西的流水账，要求是能够自动输入当天日期和时间。 然后我开始分析这个问题，用=now（）这个函数能够做到自动获得当前日期和时间，但是问题在于怎么触发它，于是我有想到if语句。然后我制作一张简单的样表，A2设置为输入序号，B2里放日期和时间，当A2输入内容后，B2自动输入当前日期和时间。那么B2列里设置函数=IF(A2="","",NOW()) 开始以为就这么简单，但是发现这个表格如果重新打开后，所以B列都会变为最新的日期，而且当A2被重新编辑后，B2就会变更日期为最新日期，这样完全实现不了采购同事的需求。于是我查阅了资料，找到了Target更新事件和Offset获得焦点，让他们配合起来达到目的，经过不懈的努力，终于让我把代码写成功了，初步达到了采购同事的要求。特此把代码写在下面。供大家参考（以下代码最好配合实际案例的execl表的环境进行阅读，这样事半功倍，execl表，我把它挂载到一个下载链接吧）： Private Sub Worksheet_Change(ByVal Target As Range ) If Target.Column <> 1 And Target.Column <> 5 Or Target.Count > 1 Then Exit Sub On Error Resume Next With Target If .Column = 1 And .Offset(0, 1).Value = "" Then '判断该单元格是否已经写入时间 .Offset(0, 1) = Now() End If If .Column = 5 Then '计算合计价格 .Offset(0, 1) = .Offset(0, 0) * .Offset(0, -1) End If End With End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
