Laura muốn bao gồm một siêu liên kết trong một trang tính. Tuy nhiên, cô ấy muốn siêu liên kết “buộc” mục tiêu của URL được hiển thị trong một trình duyệt cụ thể. Ví dụ, cô ấy muốn siêu kết nối bằng cách nào đó chỉ định rằng mục tiêu được mở trong Internet Explorer.

Không có cách nào để làm điều này trong Excel; một siêu liên kết trong một trang tính, khi được nhấp vào, sẽ dựa vào bất kỳ thứ gì mà trình duyệt mặc định trên hệ thống đang được sử dụng. Tuy nhiên, có một giải pháp khác mà bạn có thể thử: Bạn có thể tạo một macro thực sự mở một địa chỉ đích bằng một trình duyệt cụ thể.

Ví dụ, hãy xem xét macro sau. Nó tự động mở một phiên bản của Internet Explorer và mở một trang web trong trình duyệt đó:

Sub LaunchIE()

Dim IE As Object     Set IE = CreateObject("InternetExplorer.Application")

IE.navigate "http://excel.tips.net/"

IE.Visible = True     Set IE = Nothing End Sub

Có thể dễ dàng gán macro cho một phím tắt. Tuy nhiên, nó không quá linh hoạt khi nói đến trình duyệt nào đang được sử dụng (nó luôn là Internet Explorer) và trang web nào được hiển thị (nó luôn là trang ExcelTips). Bạn có thể làm cho nó linh hoạt hơn một chút theo cách này:

Sub showURL(browser As String, URL As String)

Dim pPath As String     Dim bPath As String

'Use this to resolve the correct program file path     'it is different on 32-bit and 64-bit systems     pPath = Environ("ProgramFiles")



If browser = "Firefox" Then         bPath = pPath & "\Mozilla Firefox\Firefox.exe"

ElseIf browser = "IE" Then         bPath = pPath & "\Internet Explorer\iexplore.exe"

Else         Exit Sub     End If

Call Shell(bPath & " " & URL, vbNormalFocus)

End Sub
Sub Testing()

Call showURL("Firefox", "/")

Call showURL("IE", "http://excel.tips.net")

End Sub

Lưu ý rằng quy trình chính — showURL, quy trình thực hiện tất cả công việc — có thể hoạt động với Internet Explorer hoặc Firefox. Quy trình Kiểm tra cho biết cách khởi chạy trình duyệt; tất cả những gì bạn cần làm là chỉ định trình duyệt nào bạn muốn và URL nào bạn muốn mở trong trình duyệt đó.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (9836) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: