Hyperlink đến 1 folder chứa file

[dkanquynh]

mình đang viết 1 bảng nhỏ dò tìm bản vẽ kỹ thuật cho nhanh. làm theo video nước ngoài mà sao nó không chạy được. ai đó có thể sửa lỗi giúp mình được không
link file https://www.mediafire.com/file/hiadeciceh5nd57/quanlybanve.xlsm/file
trong phần link tới bản vẽ có cách nào nhấp chọn là mở ra foder bản vẽ không ạ. mình đang làm nó chỉ hiện chữ không, chẳng nhấp chọn được

 

[HeSanbi]

Copy code để vào code của sheet1 xem sao

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([D2:D15], Target) Is Nothing Then _
    If Selection.Value <> "" Then _
    Shell "explorer.exe " & Selection.Value, vbNormalFocus 'vbMaximizedFocus ' vbNormalFocus
End Sub

 

[befaint]

xem sao

Chọn nhiều hơn 1 cell? Đường dẫn không tồn tại?

 

[HeSanbi]

Chọn nhiều hơn 1 cell? Đường dẫn không tồn tại?

xin lỗi em hơi chủ quan, chủ topic nhớ thêm and not isarray(Selection) vô điều kiện.
Nếu "explorer.exe /select, " thì nó sẽ trỏ đến bên ngoài Folder

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([D2:D15], Target) Is Nothing Then _
    If Selection.Value <> "" and not isArray(Selection) Then _
    Shell "explorer.exe " & Selection.Value, vbNormalFocus 'vbMaximizedFocus ' vbNormalFocus
End Sub

 

[ndu96081631]

xin lỗi em hơi chủ quan, chủ topic nhớ thêm and not isarray(Selection) vô điều kiện.
Nếu "explorer.exe /select, " thì nó sẽ trỏ đến bên ngoài Folder

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([D2:D15], Target) Is Nothing Then _
    If Selection.Value <> "" and not isArray(Selection) Then _
    Shell "explorer.exe " & Selection.Value, vbNormalFocus 'vbMaximizedFocus ' vbNormalFocus
End Sub

Để chắc chắn rằng người dùng luôn chọn 1 cell, ta xét đ/k Target.Count =1 là được rồi