Tạo Hyperlinks cho trong Excel (1 người xem)

[khacbao72]

Chào các thầy cô và anh chị,

Hiện tôi đang gặp vấn đề với tạo Hyperlinks trong Excel. Mong thầy cô và các anh chị chỉ giáo cho .

Vấn đế là :

Sau khi lập một văn bản , tôi muốn in ra pdf (vd: a.pdf) rồi luu trong thu muc (vd : C:\RIS\RIS06.pdf)
muốn truy xuất nhanh chóng lần sau, tôi muốn tạo hyperlink để truy cho file pdf vừa in ra (C:\RIS\RIS06.pdf)
kết quả vẫn thấy được links nhưng không mở được file.


Mong các thầy cô và các anh chị chỉ giúp ạ
Đây là VBA tôi đã viết
Dan:
dchi = fso.GetAbsolutePathName(filepdf)
With ActiveSheet
.Range("A4").Offset(i, 0).Value = so
.Range("A4").Offset(i, 1).Value = ngayph
.Range("A4").Offset(i, 2).Value = nha
.Range("A4").Offset(i, 3).Value = hmuc
.Range("A4").Offset(i, 4).Value = vtri
.Range("A4").Offset(i, 5).Value = purpose
.Range("A4").Offset(i, 6).Value = inspectiondate
.Range("A4").Offset(i, 7).Value = Start
.Range("A4").Offset(i, 8).Value = finish
.Range("A4").Offset(i, 9).Value = sender
.Range("A4").Offset(i, 10).Value = receiver
.Range("A4").Offset(i, 11).Value = dchi
End With
ActiveSheet.Range("A4").Offset(i, 11).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=dchi, TextToDisplay:=dchi
ActiveSheet.Hyperlinks.Add Cell, Cell.Value
ActiveWorkbook.Save
'ActiveWorkbook.Close
End Sub

 

[chucuoi92]

Chào các thầy cô và anh chị,

Hiện tôi đang gặp vấn đề với tạo Hyperlinks trong Excel. Mong thầy cô và các anh chị chỉ giáo cho .

Vấn đế là :

Sau khi lập một văn bản , tôi muốn in ra pdf (vd: a.pdf) rồi luu trong thu muc (vd : C:\RIS\RIS06.pdf)
muốn truy xuất nhanh chóng lần sau, tôi muốn tạo hyperlink để truy cho file pdf vừa in ra (C:\RIS\RIS06.pdf)
kết quả vẫn thấy được links nhưng không mở được file.
View attachment 184815

Mong các thầy cô và các anh chị chỉ giúp ạ
Đây là VBA tôi đã viết
Dan:
dchi = fso.GetAbsolutePathName(filepdf)
With ActiveSheet
.Range("A4").Offset(i, 0).Value = so
.Range("A4").Offset(i, 1).Value = ngayph
.Range("A4").Offset(i, 2).Value = nha
.Range("A4").Offset(i, 3).Value = hmuc
.Range("A4").Offset(i, 4).Value = vtri
.Range("A4").Offset(i, 5).Value = purpose
.Range("A4").Offset(i, 6).Value = inspectiondate
.Range("A4").Offset(i, 7).Value = Start
.Range("A4").Offset(i, 8).Value = finish
.Range("A4").Offset(i, 9).Value = sender
.Range("A4").Offset(i, 10).Value = receiver
.Range("A4").Offset(i, 11).Value = dchi
End With
ActiveSheet.Range("A4").Offset(i, 11).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=dchi, TextToDisplay:=dchi
ActiveSheet.Hyperlinks.Add Cell, Cell.Value
ActiveWorkbook.Save
'ActiveWorkbook.Close
End Sub

mình hay làm thế này:
cột L là tên file PDF không có phần mở rộng (*.PDF)
"duong dan folder" - vidụ lưu file vào folder "ABC" ổ D thì là "D:\ABC"
và khi cần thì click double vào tên file ở cột L.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("L5:L65000"), Target) Is Nothing And Target.count = 1 Then
With CreateObject("Shell.Application")
.Open ("duong dan folder" & "\" & Target.Value & ".pdf")
End With
Cancel = True
End If
End Sub

 

[be_09]

Chào các thầy cô và anh chị,
Hiện tôi đang gặp vấn đề với tạo Hyperlinks trong Excel. Mong thầy cô và các anh chị chỉ giáo cho .

Trình tự tạo Link như sau:
- Copy tên File (hay gõ tên tùy ý vào Cell), cho hiện Form rồi nhấn nút Tìm File (chọn File cần tạo Link) và nhấn Open, xong nhấn nút Tạo Link. Bây giờ click vào Link để mở File.
Bạn tạo 1 UserForm như hình (gồm: TextBox1) và 2 CommandButton rồi sử dụng code sau cho 2 nút (Tìm File, Tạo Link):

1/ Code cho nút Tìm File:
Private Sub cmdMoHopThoai_Click()
 'MO HOP THOAI TÌM FILE
 
   Dim FileName As String
 
     FileName = Application.GetOpenFilename()
     TextBox1.Value = FileName
     TextBox1.SetFocus
  
End Sub
2/ Code cho nút Tạo Link:
Private Sub cmdTaoLink_Click()
 'TAO HYPERLINK DÉN FILE
 
   With ActiveCell
     If Not .Hyperlinks Is Nothing Then
     .Hyperlinks.Add Anchor:=ActiveCell, Address:=TextBox1.Text
     End If
   End With
 
   Me.Hide
   Unload Me
 
End Sub

 

[trungcr105]

Trình tự tạo Link như sau:
- Copy tên File (hay gõ tên tùy ý vào Cell), cho hiện Form rồi nhấn nút Tìm File (chọn File cần tạo Link) và nhấn Open, xong nhấn nút Tạo Link. Bây giờ click vào Link để mở File.
Bạn tạo 1 UserForm như hình (gồm: TextBox1) và 2 CommandButton rồi sử dụng code sau cho 2 nút (Tìm File, Tạo Link):

1/ Code cho nút Tìm File:
Private Sub cmdMoHopThoai_Click()
 'MO HOP THOAI TÌM FILE
 
   Dim FileName As String
 
     FileName = Application.GetOpenFilename()
     TextBox1.Value = FileName
     TextBox1.SetFocus
 
End Sub
2/ Code cho nút Tạo Link:
Private Sub cmdTaoLink_Click()
 'TAO HYPERLINK DÉN FILE
 
   With ActiveCell
     If Not .Hyperlinks Is Nothing Then
     .Hyperlinks.Add Anchor:=ActiveCell, Address:=TextBox1.Text
     End If
   End With
 
   Me.Hide
   Unload Me
 
End Sub

View attachment 184841

cảm ơn bạn! Bài của bạn hay quá! Mình tìm bài này bấy lâu nay mà không có>
Nhưng có thể làm cho nó khi xuất ra Workbook với tên "OPEN FILE" mà không phải là URL được không bạn

 

[be_09]

cảm ơn bạn! Bài của bạn hay quá! Mình tìm bài này bấy lâu nay mà không có>
Nhưng có thể làm cho nó khi xuất ra Workbook với tên "OPEN FILE" mà không phải là URL được không bạn

Với code trên thì bạn gõ bất kỳ nội dung gì ở bất kỳ Cell nào đều tạo Link được.
Còn cái vụ xuất ra Workbook thì bạn muốn xuất ra với những Sheet nào thì phải có tên sheet và đính kèm 1 File cụ thể thì mới có thể hiểu được.

 

[trungcr105]

Với code trên thì bạn gõ bất kỳ nội dung gì ở bất kỳ Cell nào đều tạo Link được.
Ý của mình là khi xuất ra cell thì link được tạo ra sẽ xuất hiện với tên "Open file" với link đã được tạo.

 

[be_09]

Bạn sử dụng HyperLink trong cột D luôn, nghĩa là sau khi Scan cái Văn bản số 7051/QĐ-BYT của Bộ y tế xong thì vào D3 bạn gõ 7051/QĐ-BYT xong bạn tạo Link ngay số Văn bản này luôn mà không cần sử dụng cột I. Khi chọn cột D và Ctrl+F trong khung Find What gõ số 7051, nhấn nút Find Next nó sẽ chỉ đến D3, bạn click vào D3 nó sẽ mở File Văn bản trên.

 

[trungcr105]

Bạn sử dụng HyperLink trong cột D luôn, nghĩa là sau khi Scan cái Văn bản số 7051/QĐ-BYT của Bộ y tế xong thì vào D3 bạn gõ 7051/QĐ-BYT xong bạn tạo Link ngay số Văn bản này luôn mà không cần sử dụng cột I. Khi chọn cột D và Ctrl+F trong khung Find What gõ số 7051, nhấn nút Find Next nó sẽ chỉ đến D3, bạn click vào D3 nó sẽ mở File Văn bản trên.

Ah. Mình làm được rồi! Cảm ơn bạn nhiều nhé!

 

[be_09]

Ah. Mình làm được rồi! Cảm ơn bạn nhiều nhé!

Do bạn không chú ý thôi, tại bài 5 tôi có nêu vầy "Với code trên thì bạn gõ bất kỳ nội dung gì ở bất kỳ Cell nào đều tạo Link được".

 

[befaint]

Mình tìm bài này bấy lâu nay mà không có

Mấy bài trước không được trả lời, lý do là đăng nhiều bài cùng nội dung.
http://www.giaiphapexcel.com/diendan/threads/chuyên-mục-xử-lý-gỡ-rối-code-vba.85576/page-55#post-820603
http://www.giaiphapexcel.com/diendan/threads/help-vba-hyperlink.130707/#post-821426

(Không hiểu sao không thấy Mod xử lý?)

Làm cái gì thì chú ý bản chất của nó. Máy móc thế làm sao tự kiểm soát được nó. Bạn có hai cách đơn giản để tìm hiểu, như sau:
- Record macro là có mẫu lệnh để bắt chước.
- Khi gõ qua từ Add là có gợi ý làm cái gì tiếp rồi. Vậy mình phải nhìn vào đó mà viết chứ???

 

[trungcr105]

Mấy bài trước không được trả lời, lý do là đăng nhiều bài cùng nội dung.
http://www.giaiphapexcel.com/diendan/threads/chuyên-mục-xử-lý-gỡ-rối-code-vba.85576/page-55#post-820603
http://www.giaiphapexcel.com/diendan/threads/help-vba-hyperlink.130707/#post-821426

(Không hiểu sao không thấy Mod xử lý?)

Làm cái gì thì chú ý bản chất của nó. Máy móc thế làm sao tự kiểm soát được nó. Bạn có hai cách đơn giản để tìm hiểu, như sau:
- Record macro là có mẫu lệnh để bắt chước.
- Khi gõ qua từ Add là có gợi ý làm cái gì tiếp rồi. Vậy mình phải nhìn vào đó mà viết chứ???
View attachment 185361

Mình cũng có thử dùng record macro, nhưng chỉ được hyperlink với ô được chọn, còn với 01 ô ngẫu nhiên thì không biết cách làm, cố làm theo kiểu từ userform ra cell là hoàn thiện hết, mà mò không ra được. Bạn mở file mình up ở trên là thấy khi mở Userform là có phần hyperlink luôn, nhưng khi add ra cell thì nó chỉ ở dạng URL chứ không mở được file. Giờ có bài của #be09 dùng cũng được, thủ công qua 02 bước.
Cảm ơn bạn đã góp ý !