Xin hỏi cách định dạng textbox là địa chỉ trang web có thể click vào để chạy (1 người xem)

[quannguyen1984]

Mong được các chuyên gia VBA giúp đỡ.

 

[VMH0307]

Mong được các chuyên gia VBA giúp đỡ.

Nếu phần Xem văn bản của bạn chỉ có chức năng hiển thị và nhấn vào để xem thì tôi nghĩ bạn nên dùng button.

 

[quannguyen1984]

Nếu phần Xem văn bản của bạn chỉ có chức năng hiển thị và nhấn vào để xem thì tôi nghĩ bạn nên dùng button.

Bạn ơi, có thể giúp mình rõ hơn được không? Mình không hiểu lắm ý của bạn, xin cảm ơn nhiều.

 

[VMH0307]

Bạn ơi, có thể giúp mình rõ hơn được không? Mình không hiểu lắm ý của bạn, xin cảm ơn nhiều.

Bạn thêm 1 Button vào với tên ví dụ URLButton và thêm code sau vào form

'---------------------------------------
'Su dung ham API de mo duong dan Web
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const vbHide = 0
Const vbNormalFocus = 1
Const vbMinimizedFocus = 2
Const vbMaximizedFocus = 3
Const vbNormalNoFocus = 4
Const vbMinimizedNoFocus = 5
'---------------------------------
Private Sub URLButton_Click()
ShellExecute 0&, vbNullString, "[URL]http://www.google.com/[/URL]", vbNullString, vbNullString, vbNormalFocus
End Sub
'---------------------------------

 

[ndu96081631]

Bạn thêm 1 Button vào với tên ví dụ URLButton và thêm code sau vào form

'---------------------------------------
'Su dung ham API de mo duong dan Web
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const vbHide = 0
Const vbNormalFocus = 1
Const vbMinimizedFocus = 2
Const vbMaximizedFocus = 3
Const vbNormalNoFocus = 4
Const vbMinimizedNoFocus = 5
'---------------------------------
Private Sub URLButton_Click()
ShellExecute 0&, vbNullString, "[URL]http://www.google.com/[/URL]", vbNullString, vbNullString, vbNormalFocus
End Sub
'---------------------------------

Không cần đao to búa lớn vậy đâu. Chỉ cần thay TextBox thành Label rồi đặt sự kiện click cho Label thế này là được:

Private Sub tbxghichu_Click()
  ThisWorkbook.FollowHyperlink "http://" & tbxghichu.Caption
End Sub

 

[quannguyen1984]

Woa, cảm ơn anh nhiều. Rất ngắn gọn và hiệu quả.

 

[quannguyen1984]

Không cần đao to búa lớn vậy đâu. Chỉ cần thay TextBox thành Label rồi đặt sự kiện click cho Label thế này là được:

Private Sub tbxghichu_Click()
  ThisWorkbook.FollowHyperlink "http://" & tbxghichu.Caption
End Sub

Bác ndu96081631 ơi, làm như cách này thì được nhưng khi mục đó không có Link thì click và lại báo lỗi. Có cách nào nếu không có link thì khi click vào hiện ra thông báo "Không có văn bản" chẳng hạn không? Xin được giúp đỡ.

 

[ndu96081631]

Bác ndu96081631 ơi, làm như cách này thì được nhưng khi mục đó không có Link thì click và lại báo lỗi. Có cách nào nếu không có link thì khi click vào hiện ra thông báo "Không có văn bản" chẳng hạn không? Xin được giúp đỡ.

Dùng On Error Resume Next là được rồi:

Private Sub tbxghichu_Click()
  [COLOR=#ff0000]On Error Resume Next[/COLOR]
  ThisWorkbook.FollowHyperlink "http://" & tbxghichu.Caption
  [COLOR=#ff0000]If Err.Number Then MsgBox "Không có van ban"[/COLOR]
End Sub

 

[M@trixs]

Cái của bạn, mục đích chắc cũng chỉ là để gọi ra file Hồ Sơ thôi chứ chẳng phải thao tác trên Web làm gì đúng không. Nếu vậy bạn tải file quản lý Văn Bản dưói chữ ký của mìh về xem mà ngâm cứu nhé !