玖叶教程网

大家好，我是捌贰春秋VBA。

每当员工入职需留存相关证件电子版，面对大量的数据，我们如何核查证件是否有缺失，我今天用VBA解决此问题。

操作步骤：

1、选择证件所在文件夹

2、将缺失证件的人员所在单元格底色标记为黄色

代 码

‘选择证件所在文件夹

Private Sub CommandButton2_Click()

Set fso = CreateObject("scripting.filesystemobject")

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

With fd

.Title = "请选择文件夹"

If .Show Then

t = .SelectedItems(1)

End If

End With

Set fso = Nothing

End Sub

’缺失证件的人员标记黄色

Private Sub CommandButton1_Click()

On Error Resume Next

Dim arr, i%, n%

'设置图片所在文件夹

t = t & "\"

'循环上述文件夹图片

ss = Dir(t)

Do

k = k & ss

ss = Dir

Loop Until ss = ""

arr = Range("A1").CurrentRegion

For i = 2 To UBound(arr)

If VBA.InStr(k, arr(i, 2)) = 0 Then

Cells(i, 2).Interior.Color = vbYellow

n = n + 1

End If

Next i

MsgBox "有 " & n & " 人无证件！"

End Sub