文件名称:
vba execl录入数据后跳转到最上面
开发工具:
文件大小: 11kb
下载次数: 0
上传时间: 2011-10-12
详细说明： 采购同事遇到新的问题了，他来找到我，需要我给他设计一个，采购进度管理的表格，要求是他每次录入完或者修改完数据后，自动把采购完成的项目下移动到最后，让那些还没采购完成的项目始终排在最上面的行。这样他可以方便他的日常采购进度的追踪。 问题既然提出来了，我就要尽最大的努力来帮助同事。 1.首先我认为要自动把采购完成的项目下移到最后的话，其实不怎么科学，应该是把采购完成的项目移动到最上面才是科学的，因为要录入新的项目，在最后插入是最方便的，在中间或者最上面插入比较麻烦。 2.我就想到排序的方法可以实现让采购完成的项目移动到最上面。 于是我查阅了一些vba实现execl的自动排序，最终编写好的代码如下（请下载相应的附件execl表格，这样比较容易理解）： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 9 And Target.Column <> 8 And Target.Column <> 7 Or Target.Count > 1 Then Exit Sub On Error Resume Next Range(&q uot;A2:I999").Sort Key1:=Range("I1"), Order1:=xlAscending, Key2:=Range("H1") _ , Order2:=xlAscending, Key3:=Range("G1") _ , Order3:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _ xlSortNormal, DataOption2:=xlSortNormal End Sub ps：在设计过程中，还进行了进一步的改进，例如：采购进度其实排序关键字段不是只有一个关键字段，而牵涉到3个之多。当然第一关键字还是采购完成日期，后面2个排序关键字段也是能起到追踪进度的作用的。另还加入了数据有效性的设计，让采购进度录入更方便，规范。 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
