在EXCEL中怎样将表格内的辞职人员自动跳到另一个表格内

mars1028

很想学习很不错？

sunya_0529

原帖由 柠熙 于 2010-1-23 13:14 发表
可不可以表1内不显示已经辞职的人，只有表2内显示呢？？

纯用函数实现难度挺大，用宏的话就小菜了。

如附件所示，在F列输入“离职”，会自动在“离职”表里添加数据，然后在“在职”表中减掉

高玉甫

不错，您的代码确实不错，谢谢您。

tyjie1218

做个记号，明天来下载
应该是个好东西

yizhbi

老师能说明一下吗？，怎么没看到公式啊？

wzyqwdl

用03版的，打开38楼附件。没看代码前，想想也是，先复制 符合条件的到表2，然后回头删除表1。
见：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "离职" Then
  Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
  Target.EntireRow.Delete
End If
End Sub

38楼的代码！

回39楼，用EXCEL 的 菜单栏--工具-->宏，点击 V B 编辑器 就能看到了.

=====重新回来编辑下========
由于用宏删除后，无法撤销。那么，涉及个问题，就是重新返回最近的记录，即:撤销功能。

如果需要撤销，则可以再编辑个宏，在“在职”表中，插入个“撤销”按钮。
内容大意应该为：
读取“离职”表最后条内容，复制到“在职表”--有数据的行+1 中的行，即 数据只有到A5行了，那么撤销后，返回的数据，则要放在A6。

如果非要弄得更加清楚的话，则在 离职表中，员工信息最后列（工号、姓名、部门、入职时间、转正时间、是否离职）后面加1列，就是“删除信息时间”。
方法1是：按时间先后（按最大值）来计算。
方法2：目前的时间 - 删除时间，数字越小的优先。
复制到“在职”表后，最后列清空(="").
就能完成了。

本人学过编程(C,C++,PowerBulider,可惜JAVA和Delphi 当时学时候，感觉学比较麻烦，就没认真学习了，所以弄到现在这个下场，弄啥啥不会~~)，但大致上还是知道个编程思想。
但可惜的是，不懂VB,最近EXCEL人事表弄的头疼。可以放个模板上去给大家看看，没完工的，不过目前还是自己做，每天弄到凌晨2点。有时候测试几个函数是否能成功套用，都用1~2个小时。目前还在自学中。

仅奉个小作，半拉子工程，没做完的，但大致思想放在最后个“详细要求表”里了。

[ 本帖最后由 wzyqwdl 于 2010-5-24 23:45 编辑 ]

wzyqwdl

俺的数据有2000条左右，诶。做的郁闷死了。3天都是半夜睡觉的。
现在还在码字，找相关函数中，如有人能看到40楼的附件，给个建议，用啥函数之类的都行。先谢谢了。
关键是查询功能，每次都感觉郁闷~~

[ 本帖最后由 wzyqwdl 于 2010-5-24 23:45 编辑 ]

zjk518888

32楼的把离职的自动归类了,方法不错

sunya_0529

原帖由 wzyqwdl 于 2010-5-16 00:52 发表
俺的数据有2000条左右，诶。做的郁闷死了。3天都是半夜睡觉的。
现在还在码字，找相关函数中，如有人能看到40楼的附件，给个建议，用啥函数之类的都行。先谢谢了。
关键是查询功能，每次都感觉郁闷~~

建议楼主去看一下我做的《退工开单系统》：http://club.excelhome.net/thread-271504-1-1.html

这里面从数据录入、保存，到数据的查询显示，基本功能都包含了。

数据录入时的数据验证也有，针对身份证的验证有一个专门的自定义函数。

其实写这样的系统本身并没有多难，关键在于搞清楚你要存储什么样的原始数据，然后希望从原始数据中统计分析出何种结果。接下来才是设计输入、查询界面，完善数据验证等功能。

另外，借鉴数据库管理的思想，数据里要有一个唯一并且不重复的识别字段作为索引，如“工号”（身份证号有的人有，有的人没有，这个不能作为索引字段的）。同质型的数据在Excel里最好放在一张表里，比如关于员工的个人信息，工作相关信息等以员工为单位识别的数据都放在一张工作表里，以减少跨工作表引用带来维护成本。“奖罚情况”则有可能同一个人有多条记录，这个应该放在另一张表里，为方便标识，应该有一个“序号”列以保证每条记录可以被唯一索引到。

最后，再补充一句，做类似的系统，既然用到了VBA，就尽量用VBA去解决相关的问题，而不要大量依赖公式，除非是固定不动的报表，否则，太多的公式应用可能会加重维护成本，因为用VBA可能就是一句代码的事，公式的话很难全部顾及到。

以上言论纯属个人观点，仅供参考:)

xyl1226

用INDEX 和SMALL 函数的组合，确实不错！佩服