作者：绿色风
分类：
时间：2022-08-17
浏览：135
楼主
liuguansky |
Q:部门员工分派明细统计表我们公司总共有10名技术人员，每天都要派出几名为客户提供上门服务。这10名员工的编号是从1--10，老总根据部门主管提供的分派表统计每一个员工的分派情况（出外勤多少天，在单位值守多少天，并据此核算工资）。每天出外勤的员工（这是由主管根据客户需求情况统一分派的），把出外勤的员工的编号从小到大排列在左边，并统计出人数，把值守员工的编号也从小到大排列在右边，同样统计出人数。这样逐日登记，到月终提交到老总处。现在我想设计一个程序，根据左边出外勤员工的编号，自动把值守员工的编号按顺序排在右边并统计出人数（登记表见附件
 桌面.rar
），这样的代码应如何编写？
A:用如下代码可以实现
- Sub justtest()
- Dim dic, i&, j%, k%
- Set dic = CreateObject("scripting.dictionary")
- Range("m:x").ClearContents
- For i = 1 To Cells(Rows.Count, 1).End(3).Row
- For j = 1 To 10
- If Not dic.exists(j) Then dic.Add j, ""
- Next j
- For k = 1 To 8
- If dic.exists(Cells(i, k).Value) Then dic.Remove Cells(i, k).Value
- Next k
- Cells(i, 13).Resize(1, dic.Count) = dic.keys
- Cells(i, 24) = dic.Count
- Next i
- Set dic = Nothing
- End Sub
|
2楼
bishunbiao |
这个很有用，收藏用于安排员工值班不错 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一