[Help] VBA chuyển đuôi .jpg thành hyperlink

[ngoctuyen1995]

Thân chào cả nhà GPEX!

Mong cả nhà giúp em một việc ạ..

Hiện tại em có 01 File Data gồm 02 cột Mã Cửa Hàng,Picture và một Folder có chứa hình ảnh.. Em muốn Khi Code chạy thì sẽ quét cột Picture với Folder hình ở ngoài và chuyển đổi cột Picture thành Hyperlink, khi em click vào Hyperlink đó thì sẽ hiện ra hình đúng với tên ở cột Picture ạ...

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

 

[Nguyễn Duy Tuân]

Nếu bạn không muốn lập trình mà có hàm ứng dụng ngay thì dùng hàm BS_PIC của Add-in A-Tools, hàm này hoàn toàn free nhé.

 

[ngoctuyen1995]

Nếu bạn không muốn lập trình mà có hàm ứng dụng ngay thì dùng hàm BS_PIC của Add-in A-Tools, hàm này hoàn toàn free nhé.

Em cảm ơn anh đã quan tâm ạ... Nếu lập trình được thì càng tốt ạ.

 

[thoai]

Em cảm ơn anh đã quan tâm ạ... Nếu lập trình được thì càng tốt ạ.

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

Sub listfile()
Dim xls As Excel.Worksheet
Dim fd As FileDialog
Dim vItem As Variant
Dim mg1 As Range
Dim mg2 As Range
Dim source As String
Dim i As Long, arr_res()
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Set xls = ActiveSheet
With fd
.Filters.Add "All Files", "*.docx;*.doc;*.xls;*.xlsx;*.jpg; *.jpeg", 1
.FilterIndex = 1
.AllowMultiSelect = True
If .Show = -1 Then
For i = 1 To .SelectedItems.Count
ReDim Preserve arr_res(i - 1)
arr_res(i - 1) = .SelectedItems.Item(i)
Next
[a1].Resize(UBound(arr_res) + 1, 1) = WorksheetFunction.Transpose(arr_res)
End If
End With
Set fd = Nothing
End Sub