Tìm nhanh nhiều tham chiếu trong thư mục windows (1 người xem)

[Emyeuexcel]

Chào anh chị em GPE,

Mình có file kèm, cột C mình có nhiều mã hợp đồng, mình muốn tìm trong 1 thư mục windows (ví dụ thư mục tên là: MA HOP DONG), tìm xem mã hợp đồng nào trong list này đã có lưu trong thư mục này rồi (dĩ nhiên trong thư mục đó có tên mã hợp đồng tương ứng).
Nhưng với cách làm thủ công là copy vào ô search trên thanh công cụ windows từng cái thì lâu quá.
Anh chị có công thức nào hay code nào nó link đến thư mục và tìm nhanh, cái nào có nó báo cho mình biết (ví dụ OK) cái nào chưa có nó báo chưa có.
Mình vô cùng đa tạ anh chị diễn đàn!

 

[Maika8008]

Chào anh chị em GPE,

Mình có file kèm, cột C mình có nhiều mã hợp đồng, mình muốn tìm trong 1 thư mục windows (ví dụ thư mục tên là: MA HOP DONG), tìm xem mã hợp đồng nào trong list này đã có lưu trong thư mục này rồi (dĩ nhiên trong thư mục đó có tên mã hợp đồng tương ứng).
Nhưng với cách làm thủ công là copy vào ô search trên thanh công cụ windows từng cái thì lâu quá.
Anh chị có công thức nào hay code nào nó link đến thư mục và tìm nhanh, cái nào có nó báo cho mình biết (ví dụ OK) cái nào chưa có nó báo chưa có.
Mình vô cùng đa tạ anh chị diễn đàn!

Bạn thử nhé. Chạy sub Check_Contract, chọn thư mục chứa các hợp đồng. Giả định file hợp đồng của bạn có đuôi là .docx. Nếu khác thì đổi đuôi trong code. Hợp đồng nào đã có thì cell tô màu đỏ

 

[Emyeuexcel]

Bạn thử nhé. Chạy sub Check_Contract, chọn thư mục chứa các hợp đồng. Giả định file hợp đồng của bạn có đuôi là .docx. Nếu khác thì đổi đuôi trong code. Hợp đồng nào đã có thì cell tô màu đỏ

Chào bạn,

Cảm ơn bạn nhưng sao mình sửa lại theo file PDF (.pdf) và rất ok.
Nhưng cho mình hỏi, vỉ file mình lưu có thêm thành phần khác so với tên HD cột C, có cách nào cho nó nhận biết dù tên file lưu có thêm vài chi tiết:
ví dụ: CHST_1820_US UNC STEMILT hoặc CHST_1820_US UNC thay vì CHST_1820_US.
Chân thành cảm ơn bạn!

 

[Maika8008]

Chào bạn,

Cảm ơn bạn nhưng sao mình sửa lại theo file PDF (.pdf) và rất ok.
Nhưng cho mình hỏi, vỉ file mình lưu có thêm thành phần khác so với tên HD cột C, có cách nào cho nó nhận biết dù tên file lưu có thêm vài chi tiết:
ví dụ: CHST_1820_US UNC STEMILT hoặc CHST_1820_US UNC thay vì CHST_1820_US.
Chân thành cảm ơn bạn!

Thay đổi 1 chút trong sub Check_Contract:
Sub Check_Contract()
Dim i As Long, j As Long

With Application.FileDialog(4)
.Show: .AllowMultiSelect = False
On Error Resume Next
ListFilesInFolder .SelectedItems(1), True
If Err.Number <> 0 Then Exit Sub
End With

For i = 3 To Range("C3").End(xlDown).Row
For j = 1 To UBound(Arr, 2)
If Arr(2, j) Like Cells(i, 3) & "*" Then 'Thay cho câu lệnh cũ If Arr(2, j) = Cells(i, 3) & ".docx" Then
Cells(i, 3).Interior.Color = vbRed
Exit For
End If
Next
Next

End Sub

 

[Emyeuexcel]

Thay đổi 1 chút trong sub Check_Contract:
Sub Check_Contract()
Dim i As Long, j As Long

With Application.FileDialog(4)
.Show: .AllowMultiSelect = False
On Error Resume Next
ListFilesInFolder .SelectedItems(1), True
If Err.Number <> 0 Then Exit Sub
End With

For i = 3 To Range("C3").End(xlDown).Row
For j = 1 To UBound(Arr, 2)
If Arr(2, j) Like Cells(i, 3) & "*" Then 'Thay cho câu lệnh cũ If Arr(2, j) = Cells(i, 3) & ".docx" Then
Cells(i, 3).Interior.Color = vbRed
Exit For
End If
Next
Next

End Sub

Chào bạn!

Chân thành cảm ơn bạn! Mình chạy ok rồi!