[已解决]请教一个员工排班的问题

neoplanz · 发表于 2014-5-29 23:10

需要以下操作:
1. 先将通讯录从网页上导入excel,主要是部门/姓名/手机号码

2. 对这些人员进行排班

3. 针对排班表,对当天需要上班的人员进行短信通知,如何提取这些人员数据并生成一条短信内容

最佳答案

grf1973

2014-6-3 10:57

请看附件。

youfang · 发表于 2014-5-29 23:34

路过

pengyx · 发表于 2014-5-29 23:44

这个不是一般的难哈

baksy · 发表于 2014-5-30 04:03

附件及排班原则？

su45 · 发表于 2014-5-30 09:48

没附件，高手也抓瞎(咱不是高手)

neoplanz · 发表于 2014-6-3 10:20

请各位高手帮忙,谢谢!!!

grf1973 · 发表于 2014-6-3 10:56

Sub 生成短信()
Set d = CreateObject("scripting.dictionary")
arr = Sheets("通讯录").Range("a3:c" & Sheets("通讯录").[a65536].End(3).Row) '通讯录
For i = 1 To UBound(arr)
d(arr(i, 1) & arr(i, 2)) = arr(i, 3)
Next
With Sheets("排班表")
arr = .Range("a3:k" & .[c65536].End(3).Row)
For i = 1 To UBound(arr)
arr(i, 5) = d(arr(i, 3) & arr(i, 4))
arr(i, 8) = d(arr(i, 6) & arr(i, 7))
tel1 = arr(i, 8)
If i < UBound(arr) Then
x2 = arr(i + 1, 3) & arr(i + 1, 4)
tel2 = d(x2)
arr(i, 10) = "'" & tel1 & "," & tel2
arr(i, 11) = "今天（" & Month(arr(i, 2)) & "月" & Day(arr(i, 2)) & "日）晚班值班人员是" & arr(i, 3) & _
"，明天（" & Month(arr(i, 2) + 1) & "月" & Day(arr(i, 2) + 1) & "日）白班值班人员是" & arr(i, 6) & "，请按要求值班"
Else
arr(i, 10) = tel1
arr(i, 11) = "今天（" & Month(arr(i, 2)) & "月" & Day(arr(i, 2)) & "日）晚班值班人员是" & arr(i, 3) & "，请按要求值班"
End If
Next
.Range("a3:k" & .[c65536].End(3).Row) = arr
End With
End Sub

复制代码

grf1973 · 发表于 2014-6-3 10:57

请看附件。

neoplanz · 发表于 2014-6-3 11:14

高人!多谢! 我想从零开始学,介绍下怎样学,有没入门教程,需要看哪些资料,多谢!

grf1973 · 发表于 2014-6-3 13:28

《别怕，Excel VBA其实很简单》

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