tìm kiếm ảnh theo danh sách (2 người xem)

[hoang_dr]

Xin nhờ các bác. em có file ảnh khoảng hơn trục ngàn cái, giờ em muốn tìm một số ảnh theo danh sách để riêng ra một tệp khác, ảnh sếp theo mã nv và họ tên ạ. mã nv là chính xác. vậy có cách nào các bác giúp em. e mới học xin thông cảm. Xin trân trọng cám ơn.

 

[hoang_dr]

Xin nhờ các bác. em có file ảnh khoảng hơn trục ngàn cái, giờ em muốn tìm một số ảnh theo danh sách để riêng ra một tệp khác, ảnh sếp theo mã nv và họ tên ạ. mã nv là chính xác. vậy có cách nào các bác giúp em. e mới học xin thông cảm. Xin trân trọng cám ơn.

??

 

[sonna123]

Có phải ý bạn như thế này không. Đây là 1 file mình làm tìm kiếm hình ảnh theo tên theo ý của mình.

 

[ndu96081631]

Xin nhờ các bác. em có file ảnh khoảng hơn trục ngàn cái, giờ em muốn tìm một số ảnh theo danh sách để riêng ra một tệp khác, ảnh sếp theo mã nv và họ tên ạ. mã nv là chính xác. vậy có cách nào các bác giúp em. e mới học xin thông cảm. Xin trân trọng cám ơn.

Tìm ảnh xong rồi làm cái gì tiếp?

 

[hoang_dr]

View attachment 233533
Có phải ý bạn như thế này không. Đây là 1 file mình làm tìm kiếm hình ảnh theo tên theo ý của mình.

bạn ơi . mình muốn lọc các ảnh có trong danh sách riêng ra một folder khác thôi chứ không chèn vào excel. cám ơn bạn

Bài đã được tự động gộp: 18/3/20

Tìm ảnh xong rồi làm cái gì tiếp?

cám ơn bạn. mình muốn lọc các ảnh có trong danh sách đưa ra một folder khác để xử dung ý, bạn ạ. có thể hướng dẫn mình không?

 

[NoDiNaDu]

View attachment 233533
Có phải ý bạn như thế này không. Đây là 1 file mình làm tìm kiếm hình ảnh theo tên theo ý của mình.

bác cho em xin file này của bác được không ạ ?

 

[ndu96081631]

cám ơn bạn. mình muốn lọc các ảnh có trong danh sách đưa ra một folder khác để xử dung ý, bạn ạ. có thể hướng dẫn mình không?

Để yên chỗ đó thì không dùng được à bạn?

 

[NoDiNaDu]

Để yên chỗ đó thì không dùng được à bạn?

Thầy ơi, ý họ muốn kiểu lưu ảnh từ file excel ra dạng jpg mà tên là mã nv + tên nhân viên ấy thầy ạ. Lập thành 1 file dữ liệu chứa tất cả ảnh trong file excel ấy ạ.

 

[hoang_dr]

Để yên chỗ đó thì không dùng được à bạn?

ý mình là trong folder ảnh có rất nhiều mà mình chỉ muốn tìm ra một số ảnh theo danh sách thôi. chứ không lấy ra hết.

Bài đã được tự động gộp: 18/3/20

Thầy ơi, ý họ muốn kiểu lưu ảnh từ file excel ra dạng jpg mà tên là mã nv + tên nhân viên ấy thầy ạ. Lập thành 1 file dữ liệu chứa tất cả ảnh trong file excel ấy ạ.

mình có một tập chứa rất nhiều ảnh. muốn tìm mấy cái trong đó theo danh sách . để riêng ra thôi ạ

Bài đã được tự động gộp: 18/3/20

ý mình là trong folder ảnh có rất nhiều mà mình chỉ muốn tìm ra một số ảnh theo danh sách thôi. chứ không lấy ra hết.

Bài đã được tự động gộp: 18/3/20

mình có một tập chứa rất nhiều ảnh. muốn tìm mấy cái trong đó theo danh sách . để riêng ra thôi ạ

kiểu như thế này ạ.

 

[ndu96081631]

ý mình là trong folder ảnh có rất nhiều mà mình chỉ muốn tìm ra một số ảnh theo danh sách thôi. chứ không lấy ra hết.

Bài đã được tự động gộp: 18/3/20

mình có một tập chứa rất nhiều ảnh. muốn tìm mấy cái trong đó theo danh sách . để riêng ra thôi ạ

Tôi nghĩ là tôi hiểu ý bạn à (nhưng bạn chưa hiểu ý tôi)
Vấn đề là sau khi ta tìm xong, ta lọc các file đúng yêu cầu sang một folder khác, đúng không? Ở đây tôi đang thắc mắc là tại sao phải lọc các file ra riêng một nơi khác? Để yên vậy sẽ có gì khó khăn cho bạn?

 

[hoang_dr]

Tôi nghĩ là tôi hiểu ý bạn à (nhưng bạn chưa hiểu ý tôi)
Vấn đề là sau khi ta tìm xong, ta lọc các file đúng yêu cầu sang một folder khác, đúng không? Ở đây tôi đang thắc mắc là tại sao phải lọc các file ra riêng một nơi khác? Để yên vậy sẽ có gì khó khăn cho bạn?

vâng. trong tệp ảnh của tôi có hơn 13000 cái . tôi cần tìm ra 2000 cái theo danh sách để tôi có thể in hồ sơ bạn ạ. nếu để cả trong folder đó sẽ rất khó ạ.

 

[sonna123]

bác cho em xin file này của bác được không ạ ?

File của mình đây bạn.

Bài đã được tự động gộp: 18/3/20

vâng. trong tệp ảnh của tôi có hơn 13000 cái . tôi cần tìm ra 2000 cái theo danh sách để tôi có thể in hồ sơ bạn ạ. nếu để cả trong folder đó sẽ rất khó ạ.

Bạn có thể thử qua phương pháp này xem có ok không.

bạn có thể tham khảo thêm tại đây :
1. CÁCH LIỆT KÊ CÁC TẬP TIN TỪ THƯ MỤC VÀO TRANG TÍNH EXCEL

Cách liệt kê các tập tin từ thư mục vào trang tính Excel

Nếu bạn muốn tạo ra một danh sách các tên tập tin từ một thư mục vào một bảng tính, bạn có thể dùng các cách sau để có được một danh sách các tập tin từ một thư mục vào trang tinh Excel.

blog.hocexcel.online

2. Kỹ thuật sao chép - di chuyển - xóa tập tin

Kỹ thuật sao chép - di chuyển - xóa tập tin

Xin diễn đàn cho mình hỏi : Có thể dùng VBA để viết 1 lệnh di chuyển (Cut hay copy) 1 file excel từ thư mục này sang thư mục khác được không.Các bạn hướng dẫn giúp mình với

www.giaiphapexcel.com

 

[be_09]

ý mình là trong folder ảnh có rất nhiều mà mình chỉ muốn tìm ra một số ảnh theo danh sách thôi. chứ không lấy ra hết.

Bài đã được tự động gộp: 18/3/20

mình có một tập chứa rất nhiều ảnh. muốn tìm mấy cái trong đó theo danh sách . để riêng ra thôi ạ

Bài đã được tự động gộp: 18/3/20

kiểu như thế này ạ.

Góp ý cho bạn: Theo tôi thì bạn nên theo hướng này.
1/ Bạn nên có 1 Folder cha chứa các Folder con chứa ảnh riêng cho từng bộ phận hoặc tên phòng, kho ảnh cố định một chỗ sẽ dễ dàng cho việc truy vấn hình, ảnh.
2/ Bạn nên có 1 sheet theo dõi chung, trong đó có cột tên bộ phận hoặc tên phòng.
3/ 1 sheet dùng lọc danh sách theo bộ phận.
4/ Dựa vào sheet lọc lấy dữ liệu vào1 sheet được thiết kế sẳn để làm lý lịch, hợp đồng, thẻ nhân viên hay thẻ bảo hiểm...v..v....Vấn đề của bạn cần kết quả chỗ nào lại không nêu cụ thể, rõ ràng nên không ai hiểu để giúp.

 

[NoDiNaDu]

File của mình đây bạn.

Bài đã được tự động gộp: 18/3/20

Bạn có thể thử qua phương pháp này xem có ok không.

bạn có thể tham khảo thêm tại đây :
1. CÁCH LIỆT KÊ CÁC TẬP TIN TỪ THƯ MỤC VÀO TRANG TÍNH EXCEL

Cách liệt kê các tập tin từ thư mục vào trang tính Excel

Nếu bạn muốn tạo ra một danh sách các tên tập tin từ một thư mục vào một bảng tính, bạn có thể dùng các cách sau để có được một danh sách các tập tin từ một thư mục vào trang tinh Excel.

blog.hocexcel.online

2. Kỹ thuật sao chép - di chuyển - xóa tập tin

Kỹ thuật sao chép - di chuyển - xóa tập tin

Xin diễn đàn cho mình hỏi : Có thể dùng VBA để viết 1 lệnh di chuyển (Cut hay copy) 1 file excel từ thư mục này sang thư mục khác được không.Các bạn hướng dẫn giúp mình với

www.giaiphapexcel.com

dạ, em cảm ơn ạ

 

[hoang_dr]

Góp ý cho bạn: Theo tôi thì bạn nên theo hướng này.
1/ Bạn nên có 1 Folder cha chứa các Folder con chứa ảnh riêng cho từng bộ phận hoặc tên phòng, kho ảnh cố định một chỗ sẽ dễ dàng cho việc truy vấn hình, ảnh.
2/ Bạn nên có 1 sheet theo dõi chung, trong đó có cột tên bộ phận hoặc tên phòng.
3/ 1 sheet dùng lọc danh sách theo bộ phận.
4/ Dựa vào sheet lọc lấy dữ liệu vào1 sheet được thiết kế sẳn để làm lý lịch, hợp đồng, thẻ nhân viên hay thẻ bảo hiểm...v..v....Vấn đề của bạn cần kết quả chỗ nào lại không nêu cụ thể, rõ ràng nên không ai hiểu để giúp.

dạ ví dụ như này ạ.

 

[hoang_dr]

Tôi nghĩ là tôi hiểu ý bạn à (nhưng bạn chưa hiểu ý tôi)
Vấn đề là sau khi ta tìm xong, ta lọc các file đúng yêu cầu sang một folder khác, đúng không? Ở đây tôi đang thắc mắc là tại sao phải lọc các file ra riêng một nơi khác? Để yên vậy sẽ có gì khó khăn cho bạn?

đây ạ. tôi muốn làm để có được danh sách (kết quả) như này ạ. mong anh giúp. cám ơn anh nhiều

 

[batman1]

Bạn mở 2 chủ đề với cùng một vấn đề, chỉ sửa tiêu đề chút xíu. Như thế là vi phạm nội qui.

Hoặc có thể bạn được hưởng luật khác.

Bài có trước

lấy ảnh từ danh sách

Xin nhờ các bác. em có file ảnh khoảng hơn trục ngàn cái, giờ em muốn tìm một số ảnh theo danh sách để riêng ra một tệp khác, ảnh sếp theo mã nv và họ tên ạ. mã nv là chính xác. vậy có cách nào các bác giúp em. e mới học xin thông cảm. Xin trân trọng cám ơn.

www.giaiphapexcel.com

 

[hoang_dr]

Bạn mở 2 chủ đề với cùng một vấn đề, chỉ sửa tiêu đề chút xíu. Như thế là vi phạm nội qui.

Hoặc có thể bạn được hưởng luật khác.

Bài có trước

lấy ảnh từ danh sách

Xin nhờ các bác. em có file ảnh khoảng hơn trục ngàn cái, giờ em muốn tìm một số ảnh theo danh sách để riêng ra một tệp khác, ảnh sếp theo mã nv và họ tên ạ. mã nv là chính xác. vậy có cách nào các bác giúp em. e mới học xin thông cảm. Xin trân trọng cám ơn.

www.giaiphapexcel.com

vậy phải làm thế nào bạn ơi.

 

[batman1]

vậy phải làm thế nào bạn ơi.

Nếu bạn được người ta cho hưởng luật đặc biệt thì ...

1. Cấu trúc các tên ảnh không đồng nhất. Sau Mã là "-" hoặc " " hoặc " -". Vì thế code phải xoay xở.
2. Hãy đổi tên trang tính thành "Trang_tinh1", tức không có ký tự Việt. Nếu chọn tên khác thì sửa cả trong code.
3. code cho là đã là MNV thì là duy nhất, tức không có 2 nhân viên nào có cùng MNV.
4. Code cho là ảnh nguồn nằm trong thư mục có tên là "Anh". Hãy đổi tên "danh sách ảnh" thành "Anh". Để như cũ cũng chả sao nhưng chả lý gì bầy đặt như thế. Nếu chọn tên khác thì sửa cả trong code.
5. Tập tin Excel và thư mục Anh phải đặt trong cùng 1 thư mục.
6. Code tự tạo thư mục "Loc_***" và sao chép các ảnh tìm thấy vào đấy.

Mở tập tin Excel -> Alt + F11 -> menu Insert -> Module ... -> dán code sau

Option Explicit

Private Const folder_name = "Anh"

Sub FindAndCopy()
Dim lastRow As Long, k As Long, FolderStart As String, new_folder As String, ma As String, data, sfile, fso As Object, f As Object, dic As Object
    With ThisWorkbook.Worksheets("Trang_tinh1")
        lastRow = .Cells(Rows.count, "B").End(xlUp).Row
        If lastRow < 4 Then Exit Sub
        data = .Range("B4:B" & lastRow + 1) ' lay cac MNV vao mang data
    End With
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = vbTextCompare
    For k = 1 To UBound(data) - 1
        ma = data(k, 1) & "-"   ' "MNV-"
        If Not dic.Exists(ma) Then dic.Add ma, ""   ' cho "MNV-" vao tu dien dic
    Next k
    
    new_folder = ThisWorkbook.Path & "\Loc_" & Format(Now(), "yyyymmddhhmmss")
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateFolder new_folder ' tao thu muc moi
    FolderStart = ThisWorkbook.Path & "\" & folder_name ' thu muc chua anh nguon
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(FolderStart) Then GoTo end_ ' neu thu muc khong ton tai thi nghi choi
    Set f = fso.GetFolder(FolderStart).files    ' doc ra cac tap tin trong thu muc
    If f.count = 0 Then GoTo end_   ' neu thu muc khong co tap tin nao thi nghi choi
    For Each sfile In f
        ma = Replace(sfile.Name, " ", "-", , 1)
        ma = Left(ma, InStr(1, ma, "-"))    ' tao "MNV-" tu ten tap tin
        If dic.Exists(ma) Then fso.CopyFile sfile.Path, new_folder & "\" & sfile.Name   ' neu ma co trong tu dien thi sao chep sang thu muc moi
    Next sfile
end_:
    Set fso = Nothing
    Set dic = Nothing
End Sub

 

[hoang_dr]

Nếu bạn được người ta cho hưởng luật đặc biệt thì ...

1. Cấu trúc các tên ảnh không đồng nhất. Sau Mã là "-" hoặc " " hoặc " -". Vì thế code phải xoay xở.
2. Hãy đổi tên trang tính thành "Trang_tinh1", tức không có ký tự Việt. Nếu chọn tên khác thì sửa cả trong code.
3. code cho là đã là MNV thì là duy nhất, tức không có 2 nhân viên nào có cùng MNV.
4. Code cho là ảnh nguồn nằm trong thư mục có tên là "Anh". Hãy đổi tên "danh sách ảnh" thành "Anh". Để như cũ cũng chả sao nhưng chả lý gì bầy đặt như thế. Nếu chọn tên khác thì sửa cả trong code.
5. Tập tin Excel và thư mục Anh phải đặt trong cùng 1 thư mục.
6. Code tự tạo thư mục "Loc_***" và sao chép các ảnh tìm thấy vào đấy.

Mở tập tin Excel -> Alt + F11 -> menu Insert -> Module ... -> dán code sau

Option Explicit

Private Const folder_name = "Anh"

Sub FindAndCopy()
Dim lastRow As Long, k As Long, FolderStart As String, new_folder As String, ma As String, data, sfile, fso As Object, f As Object, dic As Object
    With ThisWorkbook.Worksheets("Trang_tinh1")
        lastRow = .Cells(Rows.count, "B").End(xlUp).Row
        If lastRow < 4 Then Exit Sub
        data = .Range("B4:B" & lastRow + 1) ' lay cac MNV vao mang data
    End With
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = vbTextCompare
    For k = 1 To UBound(data) - 1
        ma = data(k, 1) & "-"   ' "MNV-"
        If Not dic.Exists(ma) Then dic.Add ma, ""   ' cho "MNV-" vao tu dien dic
    Next k
   
    new_folder = ThisWorkbook.Path & "\Loc_" & Format(Now(), "yyyymmddhhmmss")
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.CreateFolder new_folder ' tao thu muc moi
    FolderStart = ThisWorkbook.Path & "\" & folder_name ' thu muc chua anh nguon
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(FolderStart) Then GoTo end_ ' neu thu muc khong ton tai thi nghi choi
    Set f = fso.GetFolder(FolderStart).files    ' doc ra cac tap tin trong thu muc
    If f.count = 0 Then GoTo end_   ' neu thu muc khong co tap tin nao thi nghi choi
    For Each sfile In f
        ma = Replace(sfile.Name, " ", "-", , 1)
        ma = Left(ma, InStr(1, ma, "-"))    ' tao "MNV-" tu ten tap tin
        If dic.Exists(ma) Then fso.CopyFile sfile.Path, new_folder & "\" & sfile.Name   ' neu ma co trong tu dien thi sao chep sang thu muc moi
    Next sfile
end_:
    Set fso = Nothing
    Set dic = Nothing
End Sub

Trước tiên xin được cám ơn bạn rất nhiều.
M không phải được hưởng đặc biệt, chỉ là người mới và cao tuổi thôi. muốn vọc tý may được addmin thông cảm.
bạn ơi m đã chạy thử code của bạn vẫn thấy báo lỗi. bạn có thể chạy giúp được không. vì mới nên muốn được ưu tiên chút mong bạn hết sức thông cảm. một ần nữa xin được trân trọng cảm ơn.

 

[batman1]

Trước tiên xin được cám ơn bạn rất nhiều.
M không phải được hưởng đặc biệt, chỉ là người mới và cao tuổi thôi. muốn vọc tý may được addmin thông cảm.
bạn ơi m đã chạy thử code của bạn vẫn thấy báo lỗi. bạn có thể chạy giúp được không. vì mới nên muốn được ưu tiên chút mong bạn hết sức thông cảm. một ần nữa xin được trân trọng cảm ơn.

Với tôi "báo lỗi" chả nói lên cái gì cụ thể. Bó tay.

Nếu bạn muốn nói chuyện với tôi thì phải có tập tin, tôi hơi khó tính. Làm sao tôi biết bạn đã đính kèm, chỉnh sửa code của tôi như thế nào.

Tóm lại: đính kèm tập tin và giải thích cụ thể.

 

[be_09]

Trước tiên xin được cám ơn bạn rất nhiều.
M không phải được hưởng đặc biệt, chỉ là người mới và cao tuổi thôi. muốn vọc tý may được addmin thông cảm.
bạn ơi m đã chạy thử code của bạn vẫn thấy báo lỗi. bạn có thể chạy giúp được không. vì mới nên muốn được ưu tiên chút mong bạn hết sức thông cảm. một ần nữa xin được trân trọng cảm ơn.

Bạn nêu mới tham gia diễn đàn là chuẩn.
Còn việc nêu, bạn là người cao tuổi có cái gì đó sai sai, vì sao? Vì trong số vài người trả lời cho bạn ít nhất họ cũng lớn hơn bạn gần 20 tuổi.

 

[đungtb2]

Xin nhờ các bác. em có file ảnh khoảng hơn trục ngàn cái, giờ em muốn tìm một số ảnh theo danh sách để riêng ra một tệp khác, ảnh sếp theo mã nv và họ tên ạ. mã nv là chính xác. vậy có cách nào các bác giúp em. e mới học xin thông cảm. Xin trân trọng cám ơn.

Bạn copy file dưới vào folder của bạn chạy thử xem thế nào nhé.

 

[hoang_dr]

Với tôi "báo lỗi" chả nói lên cái gì cụ thể. Bó tay.

Nếu bạn muốn nói chuyện với tôi thì phải có tập tin, tôi hơi khó tính. Làm sao tôi biết bạn đã đính kèm, chỉnh sửa code của tôi như thế nào.

Tóm lại: đính kèm tập tin và giải thích cụ thể.

đây ạ. bạn xem giúp

Bài đã được tự động gộp: 19/3/20

Bạn nêu mới tham gia diễn đàn là chuẩn.
Còn việc nêu, bạn là người cao tuổi có cái gì đó sai sai, vì sao? Vì trong số vài người trả lời cho bạn ít nhất họ cũng lớn hơn bạn gần 20 tuổi.

cám ơn bạn. vậy ra 70 tuổi vẫn đam mê, như vậy tôi chắc quá trẻ rồi . hì

 

[Daisy19081994]

View attachment 233533
Có phải ý bạn như thế này không. Đây là 1 file mình làm tìm kiếm hình ảnh theo tên theo ý của mình.

cho mình xin file được không ạ

 

[batman1]

đây ạ. bạn xem giúp

Tôi là người thường hướng dẫn rất kỹ. Vì tôi lường được là trong tập tin thực bạn sẽ có rất khác với tập tin ví dụ. Bạn để ý sẽ thấy là rất nhiều người không hướng dẫn đâu.

Hãy đọc lại 6 điểm trong bài #19 của tôi xem bạn có làm đúng không.
Trích

2. Hãy đổi tên trang tính thành "Trang_tinh1", tức không có ký tự Việt. Nếu chọn tên khác thì sửa cả trong code.

Bây giờ tên sheet không còn là "Trang_tinh1" nữa mà là "Sheet1". Nhưng bạn không sửa trong code. Trong code vẫn là

With ThisWorkbook.Worksheets("Trang_tinh1")

Còn một cái tôi thấy nữa. Trong tập tin ví dụ dữ liệu bạn có trong 2 cột B và C, từ dòng 3 trở xuống. Bây giờ bạn có trong cột A và B, từ dòng 1 trở xuống. Làm thế thì code bó tay. Nó thao tác trong B4:C... nhưng bây giờ dữ liệu lại là A1:B... thế thì toi rồi.

Tại sao bạn không đính kèm tập tin với code của tôi? Tập tin XLSX không bao giờ chứa code. Sau khi chèn code thì ghi lại dưới định dạng XLSM.

Thôi tôi gửi luôn tập tin đã có code.

Code không copy ảnh của MNV = 1356 vì trong thư mục ảnh không có ảnh cho 1356.

 

[hoang_dr]

Tôi là người thường hướng dẫn rất kỹ. Vì tôi lường được là trong tập tin thực bạn sẽ có rất khác với tập tin ví dụ. Bạn để ý sẽ thấy là rất nhiều người không hướng dẫn đâu.

Hãy đọc lại 6 điểm trong bài #19 của tôi xem bạn có làm đúng không.
Trích

Bây giờ tên sheet không còn là "Trang_tinh1" nữa mà là "Sheet1". Nhưng bạn không sửa trong code. Trong code vẫn là

With ThisWorkbook.Worksheets("Trang_tinh1")

Còn một cái tôi thấy nữa. Trong tập tin ví dụ dữ liệu bạn có trong 2 cột B và C, từ dòng 3 trở xuống. Bây giờ bạn có trong cột A và B, từ dòng 1 trở xuống. Làm thế thì code bó tay. Nó thao tác trong B4:C... nhưng bây giờ dữ liệu lại là A1:B... thế thì toi rồi.

Tại sao bạn không đính kèm tập tin với code của tôi? Tập tin XLSX không bao giờ chứa code. Sau khi chèn code thì ghi lại dưới định dạng XLSM.

Thôi tôi gửi luôn tập tin đã có code.

Code không copy ảnh của MNV = 1356 vì trong thư mục ảnh không có ảnh cho 1356.

XIN LỖI BẠN. THẬT SỰ CÁM ƠN BẠN RẤT NHIỀU. BẠN RẤT NHIỆT TÌNH VÀ CŨNG KIÊN NHẪN NỮA. XIN ĐƯỢC CÁM ƠN

 

[hoang_dr]

XIN LỖI BẠN. THẬT SỰ CÁM ƠN BẠN RẤT NHIỀU. BẠN RẤT NHIỆT TÌNH VÀ CŨNG KIÊN NHẪN NỮA. XIN ĐƯỢC CÁM ƠN

tôi đã chạy thử . rất ok. chỉ là khi tôi đưa thêm vào tình huống nếu như ảnh chỉ có MNV không có tên. thì không đọc được bạn ạ. vậy phải xử lý như thế nào.

 

[batman1]

tôi đã chạy thử . rất ok. chỉ là khi tôi đưa thêm vào tình huống nếu như ảnh chỉ có MNV không có tên. thì không đọc được bạn ạ. vậy phải xử lý như thế nào.

Chính vì dữ liệu của bạn không đồng nhất nên tôi đã viết ngay từ bài đầu

1. Cấu trúc các tên ảnh không đồng nhất. Sau Mã là "-" hoặc " " hoặc " -". Vì thế code phải xoay xở.

Tức ảnh lúc có dạng "MNV-Tên" (không có dấu cách giữa MNV và tên), lúc là"MNV Tên" (dấu cách thay dấu -), lúc thì "MNV -Tên" (cả dấu cách và -). Bây giờ lại thêm chỉ có MNV không có tên.

Tôi làm thêm cho bạn trường hợp chỉ có MNV không có tên. Tức trong sheet phải có MNV còn Tên có thể có có thể không, nhưng tên ảnh trên đĩa bắt buộc phải có MNV (tên có thể có hoặc không). Nhưng nếu có thêm tên thì bắt buộc phải có ít nhất là dấu cách hoặc dấu - ngăn cách MNV và tên. Tức ảnh trên đĩa phải có 1 trong những dạng sau: "MNV-tên.jpg", "MNV tên.jpg", "MNV -tên.jpg", "MNV- tên.jpg", "MNV.jpg".

Trong Sub FindAndCopy hãy tìm dòng (chỉ có duy nhất 1 dòng như thế)

ma = Replace(sfile.Name, " ", "-", , 1)

và ĐỔI thành

ma = Replace(Replace(sfile.Name, ".", "-"), " ", "-", , 1)

Lưu ý: trong tập tin ở bài #24 trên sheet bạn nhập A4 = 1356, B4 = rỗng (không có tên) code không tìm được ảnh trên đĩa do trên đĩa không có ảnh nào có MNV = 1356. Có 1 ảnh với tên ".jpg". Tức ảnh chỉ có định dạng JPG mà không có tên. Không thể gán ảnh như thế cho MNV = 1356 được. Vì sao? Suy nghĩ lôgíc thì thấy thôi. Giả dụ trên sheet có 2 MNV mà không có tên. A4 = 1356, B4 rỗng, A5 = 9876, B5 = rỗng. Vậy thì ảnh trên đĩa ".jpg" kia là thuộc MNV = 1356 hy thuộc MNV = 9876? Không thể biết được.

Vì thế ảnh trên đĩa luôn phải chứa MNV ở đầu.

Tôi không xét trường hợp có tên (cả trên sheet và ảnh trên điã) mà không có MNV. Vì với tôi MNV mới là duy nhất, tên có thể trùng. Vì thế tôi chỉ xét MNV thôi.

Muốn code chạy được thì dữ liệu (trên sheet và ảnh trên đĩa) phải có một qui luật nhất định. Có thể chấp nhận một "sai số" nhất định (dấu - hoặc dấu cách, hoặc cả - và dấu cách, hoặc chả có - và dấu cách - chỉ là MNV.jpg) nhưng code không chấp nhận dữ liệu bừa bãi.
-------------
Tôi nhầm lẫn chút. Trong code dòng

Set fso = CreateObject("Scripting.FileSystemObject")

xuất hiện 2 lần. Lần xuất hiện thứ 2 thừa, bạn có thể xóa đi. Sai không sai nhưng thừa không cần thiết.

 

[HeSanbi]

Xin nhờ các bác. em có file ảnh khoảng hơn trục ngàn cái, giờ em muốn tìm một số ảnh theo danh sách để riêng ra một tệp khác, ảnh sếp theo mã nv và họ tên ạ. mã nv là chính xác. vậy có cách nào các bác giúp em. e mới học xin thông cảm. Xin trân trọng cám ơn.

-------------------


Tham khảo file bài viết:

https://www.giaiphapexcel.com/diendan/threads/lấy-danh-sách-đường-dẫn-file-và-thư-mục-trong-vba.145043/#post-957066

 

[batman1]

-------------------


Tham khảo file bài viết:

https://www.giaiphapexcel.com/diendan/threads/lấy-danh-sách-đường-dẫn-file-và-thư-mục-trong-vba.145043/#post-957066

Với khả năng được thể hiện qua các bài viết trong chủ đề này thì tôi e rằng chủ thớt sau khi đọc chủ đề của bạn cũng không viết được code cho vấn đề của mình đâu. Hãy đọc kỹ vấn đề của người ta thì sẽ biết.
Việc liệt kê các tập tin trong thư mục thì code của tôi cũng có rồi. Vấn đề là cái "tiếp theo" kia.

 

[hoang_dr]

Chính vì dữ liệu của bạn không đồng nhất nên tôi đã viết ngay từ bài đầu

Tức ảnh lúc có dạng "MNV-Tên" (không có dấu cách giữa MNV và tên), lúc là"MNV Tên" (dấu cách thay dấu -), lúc thì "MNV -Tên" (cả dấu cách và -). Bây giờ lại thêm chỉ có MNV không có tên.

Tôi làm thêm cho bạn trường hợp chỉ có MNV không có tên. Tức trong sheet phải có MNV còn Tên có thể có có thể không, nhưng tên ảnh trên đĩa bắt buộc phải có MNV (tên có thể có hoặc không). Nhưng nếu có thêm tên thì bắt buộc phải có ít nhất là dấu cách hoặc dấu - ngăn cách MNV và tên. Tức ảnh trên đĩa phải có 1 trong những dạng sau: "MNV-tên.jpg", "MNV tên.jpg", "MNV -tên.jpg", "MNV- tên.jpg", "MNV.jpg".

Trong Sub FindAndCopy hãy tìm dòng (chỉ có duy nhất 1 dòng như thế)

ma = Replace(sfile.Name, " ", "-", , 1)

và ĐỔI thành

ma = Replace(Replace(sfile.Name, ".", "-"), " ", "-", , 1)

Lưu ý: trong tập tin ở bài #24 trên sheet bạn nhập A4 = 1356, B4 = rỗng (không có tên) code không tìm được ảnh trên đĩa do trên đĩa không có ảnh nào có MNV = 1356. Có 1 ảnh với tên ".jpg". Tức ảnh chỉ có định dạng JPG mà không có tên. Không thể gán ảnh như thế cho MNV = 1356 được. Vì sao? Suy nghĩ lôgíc thì thấy thôi. Giả dụ trên sheet có 2 MNV mà không có tên. A4 = 1356, B4 rỗng, A5 = 9876, B5 = rỗng. Vậy thì ảnh trên đĩa ".jpg" kia là thuộc MNV = 1356 hy thuộc MNV = 9876? Không thể biết được.

Vì thế ảnh trên đĩa luôn phải chứa MNV ở đầu.

Tôi không xét trường hợp có tên (cả trên sheet và ảnh trên điã) mà không có MNV. Vì với tôi MNV mới là duy nhất, tên có thể trùng. Vì thế tôi chỉ xét MNV thôi.

Muốn code chạy được thì dữ liệu (trên sheet và ảnh trên đĩa) phải có một qui luật nhất định. Có thể chấp nhận một "sai số" nhất định (dấu - hoặc dấu cách, hoặc cả - và dấu cách, hoặc chả có - và dấu cách - chỉ là MNV.jpg) nhưng code không chấp nhận dữ liệu bừa bãi.
-------------
Tôi nhầm lẫn chút. Trong code dòng

Set fso = CreateObject("Scripting.FileSystemObject")

xuất hiện 2 lần. Lần xuất hiện thứ 2 thừa, bạn có thể xóa đi. Sai không sai nhưng thừa không cần thiết.

cám ơn anh nhiều. tôi sẽ sửa

 

[HeSanbi]

Với khả năng được thể hiện qua các bài viết trong chủ đề này thì tôi e rằng chủ thớt sau khi đọc chủ đề của bạn cũng không viết được code cho vấn đề của mình đâu. Hãy đọc kỹ vấn đề của người ta thì sẽ biết.
Việc liệt kê các tập tin trong thư mục thì code của tôi cũng có rồi. Vấn đề là cái "tiếp theo" kia.

---------------------------


Có lẽ Bác batman1 chưa tải File về kiểm tra, tất cả những gì mà chủ thớt mong muốn đều có ở File trong bài viết