Lấy tên nội dung của file ảnh vào excel và tự động mở file ảnh khi chọn nội dung đó (14 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
vc_đi chơi

vc_đi chơi

Thành viên hoạt động
Tham gia
21/9/19
Bài viết
176
Được thích
35
Em có các bức ảnh (bao gồm tất cả các đuôi có định dạng file ảnh: JPEG, TIFF, GIF và PNG , vv.....) và file excel chứa trong cùng một folder
Em xin được nhờ giúp đỡ vấn đề sau:
Lấy tên file ảnh có chứa trong folder để điền vào cột "Nội dung" trong file excel
Điền theo trình tự chữ cái A, B, C,...., khi điền thì tự động đánh số thứ tự ở cột "Số TT" trong excel.
Khi dữ liệu đã được điền xong thì có thể mở bức ảnh đó bằng cách clik chọn vào ô có chứa nội dung trông cột "Nội dung".
Mong sự giúp đỡ của các thầy (cô), anh (chị).
Em xin cảm ơn!
1111.png
 

File đính kèm

Mình tải dữ liệu ngân hàng từ internetbangking xuống lưu định dạng file excel, nhưng các dãy số phát sinh ngăn cách hàng ngàn bằng dấu chấm nên không sum tổng được. Mình muốn nhập dữ liệu này vô phần mềm phải làm thủ công xóa từng dấu chấm mới được. Bạn cá cách nào giúp mình , mình vô cùng cảm ơn
 
thucuc1808 đã viết:
Mình tải dữ liệu ngân hàng từ internetbangking xuống lưu định dạng file excel, nhưng các dãy số phát sinh ngăn cách hàng ngàn bằng dấu chấm nên không sum tổng được. Mình muốn nhập dữ liệu này vô phần mềm phải làm thủ công xóa từng dấu chấm mới được. Bạn cá cách nào giúp mình , mình vô cùng cảm ơn
Nhấp chuột vào đây để mở rộng...
Bạn nên đặt một tiêu đề mới. Đừng chen ngang vào bài này. Bạn tạo 01 file mới rồi gửi lên.
 
thucuc1808 đã viết:
Mình tải dữ liệu ngân hàng từ internetbangking xuống lưu định dạng file excel, nhưng các dãy số phát sinh ngăn cách hàng ngàn bằng dấu chấm nên không sum tổng được. Mình muốn nhập dữ liệu này vô phần mềm phải làm thủ công xóa từng dấu chấm mới được. Bạn cá cách nào giúp mình , mình vô cùng cảm ơn
Nhấp chuột vào đây để mở rộng...
Góp ý cho bạn:
Nội dung của bạn không cùng chủ đề với chủ Topic. Vì vậy, bạn nên mở Topic mới với tiêu đề "Giúp xử lý dữ liệu của File để có thể tính toán được"
Bài đã được tự động gộp:

vc_đi chơi đã viết:
Em có các bức ảnh (bao gồm tất cả các đuôi có định dạng file ảnh: JPEG, TIFF, GIF và PNG , vv.....) và file excel chứa trong cùng một folder
Em xin được nhờ giúp đỡ vấn đề sau:
Lấy tên file ảnh có chứa trong folder để điền vào cột "Nội dung" trong file excel
Điền theo trình tự chữ cái A, B, C,...., khi điền thì tự động đánh số thứ tự ở cột "Số TT" trong excel.
Khi dữ liệu đã được điền xong thì có thể mở bức ảnh đó bằng cách clik chọn vào ô có chứa nội dung trông cột "Nội dung".
Mong sự giúp đỡ của các thầy (cô), anh (chị).
Em xin cảm ơn!
View attachment 229276
Nhấp chuột vào đây để mở rộng...
Góp ý cho bạn:
Bạn không nên để tiêu đề nữa chừng như vậy, tiêu đề nên bắt đầu cột A.

A_TD.GIF
 
Lần chỉnh sửa cuối:
vc_đi chơi đã viết:
Em có các bức ảnh (bao gồm tất cả các đuôi có định dạng file ảnh: JPEG, TIFF, GIF và PNG , vv.....) và file excel chứa trong cùng một folder
Em xin được nhờ giúp đỡ vấn đề sau:
Lấy tên file ảnh có chứa trong folder để điền vào cột "Nội dung" trong file excel
Điền theo trình tự chữ cái A, B, C,...., khi điền thì tự động đánh số thứ tự ở cột "Số TT" trong excel.
Khi dữ liệu đã được điền xong thì có thể mở bức ảnh đó bằng cách clik chọn vào ô có chứa nội dung trông cột "Nội dung".
Mong sự giúp đỡ của các thầy (cô), anh (chị).
Em xin cảm ơn!
View attachment 229276
Nhấp chuột vào đây để mở rộng...
Dùng thử đoạn code này xem sao?
Mã: 
Sub Add_Link()
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xPath As String
    Dim I As Integer
    Const fFilter As String = ";.jpg;.gif;.jfif;.png;"
    Range("C5:D" & (Range("D1000").End(xlUp).Row + 1)).Clear
    xPath = ThisWorkbook.Path
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    I = 0
    For Each xFile In xFolder.Files
        If InStrRev(xFile.Name, ".") Then
            If InStr(fFilter, ";" & Right(xFile.Name, Len(xFile.Name) - InStrRev(xFile.Name, ".") + 1) & ";") Then
                I = I + 1
                Cells(I + 4, 3) = I
                ActiveSheet.Hyperlinks.Add Cells(I + 4, 4), xFile.Path, , , Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
            End If
        End If
    Next
End Sub
 
vc_đi chơi đã viết:
Em có các bức ảnh (bao gồm tất cả các đuôi có định dạng file ảnh: JPEG, TIFF, GIF và PNG , vv.....) và file excel chứa trong cùng một folder
Em xin được nhờ giúp đỡ vấn đề sau:
Lấy tên file ảnh có chứa trong folder để điền vào cột "Nội dung" trong file excel
Điền theo trình tự chữ cái A, B, C,...., khi điền thì tự động đánh số thứ tự ở cột "Số TT" trong excel.
Khi dữ liệu đã được điền xong thì có thể mở bức ảnh đó bằng cách clik chọn vào ô có chứa nội dung trông cột "Nội dung".
Mong sự giúp đỡ của các thầy (cô), anh (chị).
Em xin cảm ơn!
View attachment 229276
Nhấp chuột vào đây để mở rộng...
1/ File đính kèm như góp ý bài 4.
2/ Muốn lấy link ở Folder nào thì thay đường dẫn vào C2 rồi nhấn nút.
 

File đính kèm

be09 đã viết:
1/ File đính kèm như góp ý bài 4.
2/ Muốn lấy link ở Folder nào thì thay đường dẫn vào C2 rồi nhấn nút.
Nhấp chuột vào đây để mở rộng...
Cám ơn thầy!
Bài đã được tự động gộp:

giaiphap đã viết:
Dùng thử đoạn code này xem sao?
Mã: 
Sub Add_Link()
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xPath As String
    Dim I As Integer
    Const fFilter As String = ";.jpg;.gif;.jfif;.png;"
    Range("C5:D" & (Range("D1000").End(xlUp).Row + 1)).Clear
    xPath = ThisWorkbook.Path
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    I = 0
    For Each xFile In xFolder.Files
        If InStrRev(xFile.Name, ".") Then
            If InStr(fFilter, ";" & Right(xFile.Name, Len(xFile.Name) - InStrRev(xFile.Name, ".") + 1) & ";") Then
                I = I + 1
                Cells(I + 4, 3) = I
                ActiveSheet.Hyperlinks.Add Cells(I + 4, 4), xFile.Path, , , Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
            End If
        End If
    Next
End Sub
Nhấp chuột vào đây để mở rộng...
Em cám ơn anh!
 
giaiphap đã viết:
Dùng thử đoạn code này xem sao?
Mã: 
Sub Add_Link()
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xPath As String
    Dim I As Integer
    Const fFilter As String = ";.jpg;.gif;.jfif;.png;"
    Range("C5:D" & (Range("D1000").End(xlUp).Row + 1)).Clear
    xPath = ThisWorkbook.Path
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    I = 0
    For Each xFile In xFolder.Files
        If InStrRev(xFile.Name, ".") Then
            If InStr(fFilter, ";" & Right(xFile.Name, Len(xFile.Name) - InStrRev(xFile.Name, ".") + 1) & ";") Then
                I = I + 1
                Cells(I + 4, 3) = I
                ActiveSheet.Hyperlinks.Add Cells(I + 4, 4), xFile.Path, , , Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
            End If
        End If
    Next
End Sub
Nhấp chuột vào đây để mở rộng...
Chỗ này:
Mã: 
If InStr(fFilter, ";" & Right(xFile.Name, Len(xFile.Name) - InStrRev(xFile.Name, ".") + 1) & ";")
Thay bằng
Mã: 
If InStr(fFilter, ";." & xFSO.GetExtensionName(xFile) & ";") Then
Có được không?
 
giaiphap đã viết:
Dùng thử đoạn code này xem sao?
Mã: 
Sub Add_Link()
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xPath As String
    Dim I As Integer
    Const fFilter As String = ";.jpg;.gif;.jfif;.png;"
    Range("C5:D" & (Range("D1000").End(xlUp).Row + 1)).Clear
    xPath = ThisWorkbook.Path
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    I = 0
    For Each xFile In xFolder.Files
        If InStrRev(xFile.Name, ".") Then
            If InStr(fFilter, ";" & Right(xFile.Name, Len(xFile.Name) - InStrRev(xFile.Name, ".") + 1) & ";") Then
                I = I + 1
                Cells(I + 4, 3) = I
                ActiveSheet.Hyperlinks.Add Cells(I + 4, 4), xFile.Path, , , Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
            End If
        End If
    Next
End Sub
Nhấp chuột vào đây để mở rộng...
Anh ơi, nhờ anh giúp em thêm chút, anh giúp em để có thể khi chọn ô nội dung bức ảnh đó sẽ dẫn đến vị trí bức ảnh đó mà không cần mở luôn file ảnh đó ra.
Em cảm ơn anh!
1111.png
 
ndu96081631 đã viết:
Chỗ này:
Mã: 
If InStr(fFilter, ";" & Right(xFile.Name, Len(xFile.Name) - InStrRev(xFile.Name, ".") + 1) & ";")
Thay bằng
Mã: 
If InStr(fFilter, ";." & xFSO.GetExtensionName(xFile) & ";") Then
Có được không?
Nhấp chuột vào đây để mở rộng...
Đã lâu rồi không thấy anh Tuấn (@ndu96081631 ) trở lại.
vc_đi chơi đã viết:
Anh ơi, nhờ anh giúp em thêm chút, anh giúp em để có thể khi chọn ô nội dung bức ảnh đó sẽ dẫn đến vị trí bức ảnh đó mà không cần mở luôn file ảnh đó ra.
Em cảm ơn anh!
View attachment 229333
Nhấp chuột vào đây để mở rộng...
Nếu mở đến thư mục đó thì được còn mở và chọn luôn file thì hơi quá sức của tôi.
 
giaiphap đã viết:
Đã lâu rồi không thấy anh Tuấn (@ndu96081631 ) trở lại.

Nếu mở đến thư mục đó thì được còn mở và chọn luôn file thì hơi quá sức của tôi.
Nhấp chuột vào đây để mở rộng...
Ý em là chọn đến file ảnh có nội dung thư mục đó (như hình em đăng bài #10) mà không cần mở trực tiếp file ảnh có nội dung đó ra.
Cám ơn anh!
 
ndu96081631 đã viết:
Thì chính là vậy đó mà (gợi ý ở bài 12)
Nhấp chuột vào đây để mở rộng...
Em có copy code vào thấy báo lỗi.
Em xin diễn đạt lái ý em cần giúp đỡ:
Em muốn khi chạy code sẽ lấy được tên file để điền vào nội dung trong cột"Nội dung" của excel
Khi chọn ô trong cột "Nội dung" đó sẽ chọn được file ảnh, ở trên thầy đã giúp em mở luôn file ảnh đó ra.
Cảm ơn thầy!
 
vc_đi chơi đã viết:
Em có copy code vào thấy báo lỗi.
Em xin diễn đạt lái ý em cần giúp đỡ:
Em muốn khi chạy code sẽ lấy được tên file để điền vào nội dung trong cột"Nội dung" của excel
Khi chọn ô trong cột "Nội dung" đó sẽ chọn được file ảnh, ở trên thầy đã giúp em mở luôn file ảnh đó ra.
Cảm ơn thầy!
Nhấp chuột vào đây để mở rộng...
Làm cho bạn luôn đây
1> Code trong module:
Mã: 
Sub GetImages()
  Dim oFile As Object
  Dim sPath As String, sExt As String
  Dim idx As Long
  Const IMG_FILTER As String = "/JPG/GIF/JFIF/PNG/"
  'On Error Resume Next
  Range("C5:D1000").Clear
  idx = 4
  sPath = ThisWorkbook.Path
  With CreateObject("Scripting.FileSystemObject")
    For Each oFile In .GetFolder(sPath).Files
      sExt = .GetExtensionName(oFile)
      If InStr(1, IMG_FILTER, "/" & sExt & "/", vbTextCompare) Then
        idx = idx + 1
        Cells(idx, 3) = idx - 4
        Cells(idx, 4) = Left(oFile.Name, Len(oFile.Name) - Len(sExt) - 1)
        Cells(idx, 4).ID = oFile
      End If
    Next
  End With
End Sub
2> Code trong sự kiện SectionChange
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  'On Error Resume Next
  If Not Intersect(Range("D5:D1000"), Target) Is Nothing Then
    If Target.Count = 1 Then
      If FSO.FileExists(Target.ID) Then Shell "Explorer.exe /Select, " & """" & Target.ID & """", 1
    End If
  End If
End Sub
 

File đính kèm

ndu96081631 đã viết:
Làm cho bạn luôn đây
1> Code trong module:
Mã: 
Sub GetImages()
  Dim oFile As Object
  Dim sPath As String, sExt As String
  Dim idx As Long
  Const IMG_FILTER As String = "/JPG/GIF/JFIF/PNG/"
  'On Error Resume Next
  Range("C5:D1000").Clear
  idx = 4
  sPath = ThisWorkbook.Path
  With CreateObject("Scripting.FileSystemObject")
    For Each oFile In .GetFolder(sPath).Files
      sExt = .GetExtensionName(oFile)
      If InStr(1, IMG_FILTER, "/" & sExt & "/", vbTextCompare) Then
        idx = idx + 1
        Cells(idx, 3) = idx - 4
        Cells(idx, 4) = Left(oFile.Name, Len(oFile.Name) - Len(sExt) - 1)
        Cells(idx, 4).ID = oFile
      End If
    Next
  End With
End Sub
2> Code trong sự kiện SectionChange
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  'On Error Resume Next
  If Not Intersect(Range("D5:D1000"), Target) Is Nothing Then
    If Target.Count = 1 Then
      If FSO.FileExists(Target.ID) Then Shell "Explorer.exe /Select, " & """" & Target.ID & """", 1
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Em cám ơn thầy!
Em chạy code thầy giúp thì đã lấy được tên nội dung file ảnh, nhưng làm thế nào có thể chọn nội dung đó trong excel để chọn được file ảnh tương ứng với nội dung đó ạ! (clik vào ô chứa nội dung trong excel sẽ chọn được file ảnh có nội dung tương ứng)
 
vc_đi chơi đã viết:
Em cám ơn thầy!
Em chạy code thầy giúp thì đã lấy được tên nội dung file ảnh, nhưng làm thế nào có thể chọn nội dung đó trong excel để chọn được file ảnh tương ứng với nội dung đó ạ! (clik vào ô chứa nội dung trong excel sẽ chọn được file ảnh có nội dung tương ứng)
Nhấp chuột vào đây để mở rộng...
Sao bạn không click thử?
Yêu cầu là file Excel và các file ảnh phải nằm cùng thư mục
 
ndu96081631 đã viết:
Làm cho bạn luôn đây
1> Code trong module:
Mã: 
Sub GetImages()
  Dim oFile As Object
  Dim sPath As String, sExt As String
  Dim idx As Long
  Const IMG_FILTER As String = "/JPG/GIF/JFIF/PNG/"
  'On Error Resume Next
  Range("C5:D1000").Clear
  idx = 4
  sPath = ThisWorkbook.Path
  With CreateObject("Scripting.FileSystemObject")
    For Each oFile In .GetFolder(sPath).Files
      sExt = .GetExtensionName(oFile)
      If InStr(1, IMG_FILTER, "/" & sExt & "/", vbTextCompare) Then
        idx = idx + 1
        Cells(idx, 3) = idx - 4
        Cells(idx, 4) = Left(oFile.Name, Len(oFile.Name) - Len(sExt) - 1)
        Cells(idx, 4).ID = oFile
      End If
    Next
  End With
End Sub
2> Code trong sự kiện SectionChange
Mã: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  'On Error Resume Next
  If Not Intersect(Range("D5:D1000"), Target) Is Nothing Then
    If Target.Count = 1 Then
      If FSO.FileExists(Target.ID) Then Shell "Explorer.exe /Select, " & """" & Target.ID & """", 1
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Thật tuyệt vời quá anh ơi, cảm ơn anh nhiều. Nhưng tìm được tên có cách nào ảnh đó hiện lên luôn không anh nhỉ? Ý em là hiện cả ảnh lên được không ạ.
 
Lần chỉnh sửa cuối:
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

K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table (1 người xem)
Trả lời
7
Đọc
245
ptm0412
ptm0412
D
Nhờ các bác giúp đỡ vấn đề tìm kiếm dữ liệu
Trả lời
6
Đọc
131
Hoàng Tuấn 868
H
P
Hỏi về cách dò tìm từ dưới lên trên, dò tìm trong 2 bảng
Trả lời
7
Đọc
174
kenytien
K
P
Xin tư vấn về cách tạo bảng quản lý vải
    • Cười
Trả lời
14
Đọc
229
VetMini
V
D
Nhờ giúp đỡ về công thức xếp loại rèn luyện theo thông tư 22/2021/TT-BGDĐT
Trả lời
8
Đọc
116
thanthanhan
T
Maika8008
Tặng file quản lý vật tư - công nợ (nhập xuất kho hàng và công nợ khách hàng)
    • Thích
    • Yêu thích
    • Cảm ơn
4 5 6
Trả lời
116
Đọc
25K
Thanh Tam 07
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
25
Đọc
882
befaint
befaint
A
NHỜ ANH CHỊ GIÚP EM CÂU LỆNH NÀY VỚI Ạ
Trả lời
1
Đọc
114
ongke0711
ongke0711
H
Chuyển file *xml hóa đơn điện tử sang excel
    • Thích
Trả lời
4
Đọc
210
htrunga2
H
K
Lọc một mã sản phẩm có nhiều đơn giá thành một file riêng
Trả lời
2
Đọc
114
ketoansb123
K
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản.
Trả lời
10
Đọc
270
Phuocam
Phuocam
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ
Trả lời
19
Đọc
573
thuytrangbp28
T
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
6
Đọc
197
Trungvt3
Trungvt3
H
  • Question Question
Tô đậm tiêu đề cho cho các sheet
Trả lời
4
Đọc
192
hieu998
H
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (1 người xem)
    • Thích
Trả lời
1
Đọc
979
GPE-Trợ Lý
GPE-Trợ Lý
Z
TRỢ GIÚP K SORT ĐƯỢC THỨ TỰ NGÀY THÁNG NĂM TRONG EXCEL
Trả lời
2
Đọc
127
Duy Tùng 9x
Duy Tùng 9x
H
Tách file nguồn thành nhiều file dựa vào điều kiện
Trả lời
5
Đọc
184
LePhatHuy
LePhatHuy
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
7
Đọc
371
fujishima
F
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024)
    • Thích
2 3
Trả lời
49
Đọc
4K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
N
tính thể tích bồn dầu hình trụ elip nằm ngang (1 người xem)
Trả lời
10
Đọc
47K
pvkiem
P
Xem thêm…

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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom