[Help] Count Số lượng hình trong 01 Folder

Liên hệ QC
N

ngoctuyen1995

Thành viên hoạt động
Tham gia
25/4/17
Bài viết
194
Được thích
19
Giới tính
Nữ
Thân chào cả nhà GPE!
Mong cả nhà giúp em một việc ạ..!
Hiện tại em đang làm việc với rất nhiều hình ảnh, nhiều khi xảy ra bị thiếu hình, nên em có ý tưởng muốn count và kiểm tra lại số lượng hình ảnh ạ....

Em có 01 File excel gồm 2 cột: Mã số cửa hàng và cột Count (số lượng Photo).. Do số lượng của một của hàng nhiều nên các đuôi hình sẽ không giống nhau..
Ví dụ như cửa hàng 101434485:
101434485_QPHOTO_3_8_A_1523670755.jpg
101434485_QPHOTO_3A_1523670780.jpg
101434485_QPHOTO_3B_1523670796.jpg
Em muốn khi em nhập 101434485 vào cột mã số cửa hàng và chạy Tool (xuất hiện link và dẫn tới Folder Hình) thì nó sẽ tự động xuất ra cột count là 3, theo nguyên tắc đặt tên hình thì sẽ lấy các ký tự trước dấu "_" đầu tiên ạ..

Mong cả nhà giúp đỡ, Em chân thành cảm ơn ạ..!
 

File đính kèm

  • Test.zip
    5.6 MB · Đọc: 24
Sắp xếp theo thời gian sắp xếp theo bầu chọn
ngoctuyen1995 đã viết:
Thân chào cả nhà GPE!
Mong cả nhà giúp em một việc ạ..!
Hiện tại em đang làm việc với rất nhiều hình ảnh, nhiều khi xảy ra bị thiếu hình, nên em có ý tưởng muốn count và kiểm tra lại số lượng hình ảnh ạ....

Em có 01 File excel gồm 2 cột: Mã số cửa hàng và cột Count (số lượng Photo).. Do số lượng của một của hàng nhiều nên các đuôi hình sẽ không giống nhau..
Ví dụ như cửa hàng 101434485:
101434485_QPHOTO_3_8_A_1523670755.jpg
101434485_QPHOTO_3A_1523670780.jpg
101434485_QPHOTO_3B_1523670796.jpg
Em muốn khi em nhập 101434485 vào cột mã số cửa hàng và chạy Tool (xuất hiện link và dẫn tới Folder Hình) thì nó sẽ tự động xuất ra cột count là 3, theo nguyên tắc đặt tên hình thì sẽ lấy các ký tự trước dấu "_" đầu tiên ạ..

Mong cả nhà giúp đỡ, Em chân thành cảm ơn ạ..!
Nhấp chuột vào đây để mở rộng...
Sao bạn không lấy tên trước rồi tiến hành đếm cho tất cả? ( liệt kê tất cả file ảnh trong thư mục rồi đếm )
 
Upvote 0
quanluu1989 đã viết:
Sao bạn không lấy tên trước rồi tiến hành đếm cho tất cả? ( liệt kê tất cả file ảnh trong thư mục rồi đếm )
Nhấp chuột vào đây để mở rộng...
List tên em có sẵn rồi ạ..! vì hằng ngày em chỉ kiểm tra 1.000 cửa hàng thôi chứ không kiểm tra hết trong số lượng hình ạ..
 
Upvote 0
ngoctuyen1995 đã viết:
List tên em có sẵn rồi ạ..! vì hằng ngày em chỉ kiểm tra 1.000 cửa hàng thôi chứ không kiểm tra hết trong số lượng hình ạ..
Nhấp chuột vào đây để mở rộng...
Em dùng function dưới (copy và đặt vào module)
Cách dùng: C1 đặt đường dẫn folder chứa ảnh, C2 =demhang(A2,$C$1)
Mã: 
Function demhang(maso As String, path As String) As Integer
    Dim FileItem, FSO
    picarray = Application.GetOpenFilename(, , , , True)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For Each FileItem In FSO.GetFolder(path).Files
        If FileItem.Name Like maso & "*" Then
            demhang = demhang + 1
        End If
    Next
End Function
 
Upvote 0
quanluu1989 đã viết:
Em dùng function dưới (copy và đặt vào module)
Cách dùng: C1 đặt đường dẫn folder chứa ảnh, C2 =demhang(A2,$C$1)
Mã: 
Function demhang(maso As String, path As String) As Integer
    Dim FileItem, FSO
    picarray = Application.GetOpenFilename(, , , , True)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    For Each FileItem In FSO.GetFolder(path).Files
        If FileItem.Name Like maso & "*" Then
            demhang = demhang + 1
        End If
    Next
End Function
Nhấp chuột vào đây để mở rộng...
Em cảm ơn Anh ạ... Code hay và đáp ứng được nhu cầu của em ạ...
Từ Function mình có thể chuyển thành sub và chạy 1 lệnh được không ạ... chạy giống macro khi chạy sẽ hiện lên đường link mình sẽ link trực tiếp tới folder hình luôn ạ... Nếu không thì code trên cũng ok rồi ạ...
 
Upvote 0
ngoctuyen1995 đã viết:
Em cảm ơn Anh ạ... Code hay và đáp ứng được nhu cầu của em ạ...
Từ Function mình có thể chuyển thành sub và chạy 1 lệnh được không ạ... chạy giống macro khi chạy sẽ hiện lên đường link mình sẽ link trực tiếp tới folder hình luôn ạ... Nếu không thì code trên cũng ok rồi ạ...
Nhấp chuột vào đây để mở rộng...
Tặng bạn cái File, nhấn nút và muốn Folder nào thì chọn Folder đó hoặc có thể chọn Folder cha nó sẽ lấy tên File của tất cả Folder con.
 

File đính kèm

  • Link Files in Nhieu Folder.rar
    640.5 KB · Đọc: 28
Upvote 0
ngoctuyen1995 đã viết:
Em cảm ơn Anh ạ... Code hay và đáp ứng được nhu cầu của em ạ...
Từ Function mình có thể chuyển thành sub và chạy 1 lệnh được không ạ... chạy giống macro khi chạy sẽ hiện lên đường link mình sẽ link trực tiếp tới folder hình luôn ạ... Nếu không thì code trên cũng ok rồi ạ...
Nhấp chuột vào đây để mở rộng...
Có thời gian sẽ làm cho bạn
 
Upvote 0

File đính kèm

  • Count_Picture.xlsb
    17.7 KB · Đọc: 13
Upvote 0
ngoctuyen1995 đã viết:
Thân chào cả nhà GPE!
Mong cả nhà giúp em một việc ạ..!
Hiện tại em đang làm việc với rất nhiều hình ảnh, nhiều khi xảy ra bị thiếu hình, nên em có ý tưởng muốn count và kiểm tra lại số lượng hình ảnh ạ....

Em có 01 File excel gồm 2 cột: Mã số cửa hàng và cột Count (số lượng Photo).. Do số lượng của một của hàng nhiều nên các đuôi hình sẽ không giống nhau..
Ví dụ như cửa hàng 101434485:
101434485_QPHOTO_3_8_A_1523670755.jpg
101434485_QPHOTO_3A_1523670780.jpg
101434485_QPHOTO_3B_1523670796.jpg
Em muốn khi em nhập 101434485 vào cột mã số cửa hàng và chạy Tool (xuất hiện link và dẫn tới Folder Hình) thì nó sẽ tự động xuất ra cột count là 3, theo nguyên tắc đặt tên hình thì sẽ lấy các ký tự trước dấu "_" đầu tiên ạ..

Mong cả nhà giúp đỡ, Em chân thành cảm ơn ạ..!
Nhấp chuột vào đây để mở rộng...
Bạn dùng file này nhé: (6÷8s cho 10,000 ảnh, khoảng 13s cho 20,000 ảnh - Core I7)
 

File đính kèm

  • Dem anh.xlsm
    21.3 KB · Đọc: 21
Lần chỉnh sửa cuối:
Upvote 0
Upvote 0
robinhsoon đã viết:
Đúng cái này em đang cần,
Mình có thể thêm chức năng copy những hình count ra Folder khác được không ạ...
Mong cả nhà giúp đỡ...!
Nhấp chuột vào đây để mở rộng...
thế cần thống kê ra tên folder cần di chuyển, nếu dữ liệu nhiều thì tốt nhất nên dùng script, chứ dùng VBA không chuyên xử lý về vấn đề này. Bạn cứ đưa dữ liệu của bạn lên coi thế nào
 
Upvote 0
quanluu1989 đã viết:
thế cần thống kê ra tên folder cần di chuyển, nếu dữ liệu nhiều thì tốt nhất nên dùng script, chứ dùng VBA không chuyên xử lý về vấn đề này. Bạn cứ đưa dữ liệu của bạn lên coi thế nào
Nhấp chuột vào đây để mở rộng...
Em xin lấy lại dữ liệu của bạn Tuyen vì dữ liệu của em cũng giống như bạn vậy...
Em cũng muốn count số lượng của hình ảnh, sau đó sẽ copy số lượng hình count được đó sang 1 Folder khác
 

File đính kèm

  • Test.zip
    5.6 MB · Đọc: 4
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

H
  • Question
Code subtotal và tìm điều kiện
Trả lời
2
Đọc
33
hieuvietmy2020
H
H
Xin giúp đỡ lấy lại file excel bị lưu đè
Trả lời
2
Đọc
29
HOANGVO797969
H
kiencuong030184
  • Question
ẩn hiện dòng, cột có điều kiên
Trả lời
3
Đọc
50
SA_DQ
SA_DQ
Emyeuexcel
  • Question
In theo số thứ tự
    • Chấp nhận
Trả lời
6
Đọc
117
Emyeuexcel
Emyeuexcel
A
TÁCH TIẾNG HÀN VÀ TIẾNG VIỆT RIÊNG
Trả lời
4
Đọc
61
HieuCD
H
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom