如何检测部门报过来员工姓名有误

zpy2

xmgslx123 发表于 2018-9-26 09:27
下属部门造的表会把员工姓名写错了，又不好退回去，而且即使退回影响效率

表单验证一下，如果不符合，不能保存，就像验证码一样。

xmgslx123

朱荣兴 发表于 2018-9-26 10:02
如果硬要核对的话可以用字的办法啊:
可以先把职工表忠的员工姓装入字典关键字然后在新的表中查找找不到则 ...

谢谢你的关注，方便的话你帮忙写一个带有正确的职工表名单的工具，然后把各部门导入进去发现名字有误的提个醒改正，不知有没有办法

xmgslx123

李兴德 发表于 2018-9-26 08:59
至少得有一个正确姓名的汇总表才好比对

比对正确员工名字的表是放在“职工表”里

xmgslx123

xmgslx123 发表于 2018-9-26 10:21
比对正确员工名字的表是放在“职工表”里

顶顶，这个问题如何用来解决，大师们不吝惜赐一个代码啊

Chip_Kenny

應該如 2/F, 或直接用工号,
以下代碼須然做到, 但實際是不安全

1. Sub zz()
   
2. Dim d As Object, rp As Object, nn$, a, n%
   
3. Dim rrng As Range, rng As Range
   
4. Set d = CreateObject("scripting.dictionary")
   
5. Set rp = CreateObject("vbscript.regexp")
   
6. ar = Sheets(2).[a1].CurrentRegion.Value
   
7. Set rrng = Sheets(2).Range("b2:b" & UBound(ar))
   
8. For i = 2 To UBound(ar)
   
9.     d(ar(i, 2)) = ""
   
10. Next
    
11. rp.Pattern = "\s*"
    
12. rp.Global = True
    
13. With Sheets(1)
    
14.     ar = .[a1].CurrentRegion.Value
    
15.     For i = 3 To UBound(ar)
    
16.         k = rp.Replace(ar(i, 1), "")
    
17.         If Len(k) Then
    
18.             If Not d.exists(k) Then
    
19.                 .Cells(i, 1).Interior.Color = vbYellow
    
20.                 For j = 2 To Len(k)
    
21.                     t = Left(k, 1) & Application.WorksheetFunction.Rept("?", j - 2)
    
22.                     t = t & Mid(k, j, 1)
    
23.                     Set rng = rrng.Find(t)
    
24.                     If Not rng Is Nothing Then .Cells(i, 1) = .Cells(i, 1) & " / " & rng.Value
    
25.                 Next
    
26.             End If
    
27.         End If
    
28.     Next
    
29. End With
    
30. End Sub

复制代码

zpy2

xmgslx123 发表于 2018-9-26 10:20
谢谢你的关注，方便的话你帮忙写一个带有正确的职工表名单的工具，然后把各部门导入进去发现名字有误的提 ...

要是我的话，可以只开放编辑权限。输错了再改。。。

xmgslx123

zpy2 发表于 2018-9-26 11:10
要是我的话，可以只开放编辑权限。输错了再改。。。

给个附件吧，是office什么版本的

zpy2

xmgslx123 发表于 2018-9-26 11:29
给个附件吧，是office什么版本的

不是Excel,网页的

xmgslx123

zpy2 发表于 2018-9-26 11:36
不是Excel,网页的

Excel功能强大，所以高手们解决办法多，希望用宏来解决