11111111111111111111111

想吃想喝想睡觉

两个回复都在审核中

小凡、、、

想吃想喝想睡觉 发表于 2024-8-23 15:53
可以先导出簿(单单复制)，然后在用VBA做条件吗

你的R和I列都是空的，实在不懂你这需求到底要改啥，在在职C列的不是新员工标红，新员工标绿？

想吃想喝想睡觉

小凡、、、 发表于 2024-8-23 16:03
你的R和I列都是空的，实在不懂你这需求到底要改啥，在在职C列的不是新员工标红，新员工标绿？

11111111111111

ykcbf1100

想吃想喝想睡觉 发表于 2024-8-23 15:26
不好意思我好久没上论坛规矩都忘了

。。。。。。。。。。。

ykcbf1100

参与一下，附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.23
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set d1 = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("离职花名册")
   
6.         r = .Cells(Rows.Count, 3).End(3).Row
   
7.         arr = .[c1].Resize(r, 1)
   
8.         For i = 2 To UBound(arr)
   
9.             d(arr(i, 1)) = ""
   
10.         Next
    
11.     End With
    
12.     With Sheets("在职花名册")
    
13.         r = .Cells(Rows.Count, 3).End(3).Row
    
14.         arr = .[c1].Resize(r, 1)
    
15.         For i = 2 To UBound(arr)
    
16.             d1(arr(i, 1)) = ""
    
17.         Next
    
18.     End With
    
19.     For Each sht In Sheets
    
20.         If InStr(sht.Name, "汇总") Then
    
21.             With sht
    
22.                 r = .Cells(Rows.Count, 1).End(3).Row
    
23.                 arr = .[a1].Resize(r, 11).Value
    
24.                 .Cells.Font.ColorIndex = 0
    
25.                 For i = 3 To UBound(arr)
    
26.                     If arr(i, 3) <> Empty And arr(i, 3) <> " 门店" Then
    
27.                         For j = 4 To 10
    
28.                             If arr(i, j) <> Empty Then
    
29.                                 s = arr(i, j)
    
30.                                 Set Rng = .Cells(i, j)
    
31.                                 If InStr(s, ",") = 0 Then
    
32.                                     If d.exists(s) Then Rng.Font.ColorIndex = 3
    
33.                                 Else
    
34.                                     st = Split(s, ",")
    
35.                                     For x = 0 To UBound(st)
    
36.                                         s1 = st(x)
    
37.                                         l = InStr(s, s1)
    
38.                                         If d.exists(s1) Then Rng.Characters(l, Len(s1)).Font.ColorIndex = 3
    
39.                                     Next
    
40.                                 End If
    
41.                                 If InStr(s, ",") = 0 Then
    
42.                                     If Rng.Font.ColorIndex <> 3 Then
    
43.                                         If d1.exists(s) Then Rng.Font.ColorIndex = 10
    
44.                                     End If
    
45.                                 Else
    
46.                                     st = Split(s, ",")
    
47.                                     For x = 0 To UBound(st)
    
48.                                         s1 = st(x)
    
49.                                         l = InStr(s, s1)
    
50.                                         If Rng.Characters(l, Len(s1)).Font.ColorIndex <> 3 Then
    
51.                                             If d1.exists(s1) Then Rng.Characters(l, Len(s1)).Font.ColorIndex = 10
    
52.                                         End If
    
53.                                     Next
    
54.                                 End If
    
55.                             End If
    
56.                         Next
    
57.                     End If
    
58.                 Next
    
59.             End With
    
60.         End If
    
61.     Next
    
62.     Application.ScreenUpdating = True
    
63.     MsgBox "OK！"
    
64. End Sub
    

复制代码

想吃想喝想睡觉

ykcbf1100 发表于 2024-8-23 16:22
参与一下。。。

举个例子：张三100，张三101，张三102   
若离职里面出现张三101标红张三101这几个字符
若调动里面出现张三102标黄张三102这几个字符