如何从全体人员名单中自动生成部门人员的工作表

weiguoyin868 · 发表于 2007-12-1 19:07

我有一个工作簿,其中有一个全体员工的工作表,内容有序号,姓名,部门；还有几个工作表名称按部门名称命名的，我想让带有部门名称的工作表，从第二行开始根据全体员工的工作表自动填上部门人员名单，有没有好的方法？表格附上

wddn · 发表于 2007-12-1 19:12

人数很多时，用VBA。人数不多时用函数公式。请上传附件。

weiguoyin868 · 发表于 2007-12-1 20:17

附件

hkrn5XHu.rar (3.72 KB, 下载次数: 322)

xolf · 发表于 2007-12-1 22:40

重复发帖<a href="http://club.excelhome.net/viewthread.php?tid=283032&px=0">http://club.excelhome.net/viewthread.php?tid=283032&px=0</a>请不要重复发帖，谢谢合作。该帖锁定，稍后删除！

[此贴子已经被作者于2007-12-1 22:40:37编辑过]

m82389110 · 发表于 2007-12-6 09:28

国家劳动和社会保障部HR职业资格认证分4个级别，由低到高分别为员级（4级）、助理（3级）、师级（2级）、高级（1级）。报考条件分别为：助理人力资源管理师（以下条件具备其中之一即可）：     1、取得本职业人力资源管理员职业资格证书后，连续从事本职业工作2年以上者，经本职业助理人力资源管理师正规培训达到规定标准学时数，并取得毕（结）业证书。     2、大学本科学历（含同等学历），连续从事本职业工作1年以上者，经本职业助理人力资源管理师正规培训达到规定标准学时数，并取得毕（结）业证书。     3、取得本专业或相关专业硕士学位，经本职业助理人力资源管理师正规培训达到规定标准学时数，并取得毕（结）业证书。     4、大专学历，连续从事本职业工作3年以上者，经本职业助理人力资源管理师正规培训达到规定标准学时数，并取得毕（结）业证书。     5、高中或中专学历，连续从事本职业7年以上，经本职业助理人力资源管理师正规培训达到规定标准学时数，并取得毕（结）业证书。 人力资源管理师（以下条件具备其中之一即可）：1、取得助理人力资源管理师职业资格证书后，连续从事本职业工作3年以上，经本职业人力资源管理师正规培训达到规定标准学时数，并取得毕(结业)证书。 2、取得本专业或相关专业博士学位，经本职业人力资源管理师正规培训达到规定标准学时数,并取得毕(结)业证书者。 3、具有本专业或相关专业硕士学位，连续从事本职业3年以上。 4、具有本专业或相关专业学士学位，连续从事本职业6年以上。 5、大专学历,连续从事本职业8年以上，经本职业正规培训达到规定标准学时数，并取得毕(结)业证书。 6、高中或中专学历，连续从事本职业10年以上，经本职业正规培训达到规定标准学时数，并取得毕（结）业证书。 高级企业人力资源管理师（具备以下条件之一者）：
 　　（1）取得本职业人力资源管理师职业资格证书后，连续从事本职业工作3年以上，经本职业高级人力资源管理师正规培训达到规定标准学时数，并取得毕（结）业证书者。 　　（2）具有本专业或相关专业博士学位，连续从事本职业工作2年以上

szxct · 发表于 2008-10-27 17:57

下载了，但是有点看不明白，谢谢先

fayon · 发表于 2008-10-29 15:23

请问能用函数实现吗？

lenghonghai · 发表于 2007-12-1 20:37

Private Sub CommandButton1_Click() Dim sh As Worksheet Dim x%, m%, cn As Object, rst As Object Set cn = CreateObject("adodb.connection"): Set rst = CreateObject("adodb.recordset") cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName x = Range("a65536").End(xlUp).Row     For Each sh In Worksheets         If sh.Name <> ActiveSheet.Name Then             m = sh.Range("a65536").End(xlUp).Row + 1             rst.Open "select 序号,单位,姓名 from [全体人员$] where 单位='" & sh.Name & "'", cn, 1, 3             sh.Range("a" & m).CopyFromRecordset rst             rst.Close         End If     Next sh     End Sub 这段代码请测试。

lenghonghai · 发表于 2007-12-1 20:38

<div class="msgheader">QUOTE:</div><div class="msgborder">以下是引用weiguoyin868在2007-12-1 20:11:56的发言： 如何从全体人员名单中自动生成部门人员的工作表附件

hr5MMDln.rar (12.31 KB, 下载次数: 358) 具体请看附件。

ELLACHEN · 发表于 2009-3-19 10:23

是不是选用筛选就可以啦。

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