Wie erzwinge Excel, um Text in Webbrowser zu öffnen?

Question

Ich habe eine Menge der Suchanfragen in Google durchzuführen, so habe ich eine Excel-Dokument, das den Text einfach in die Google-Verbindung fügt:

„John“ und „Fußball“ oder „Sport“

„Andre“ UND "Soccer" ODER "Sport"

Zum Beispiel in den Namen "John" in Zelle A1 und ich füge es in den folgenden Link.

https://www.google.nl/search?newwindow=1&q=%22& A1% 22 + und +% E2% 80% 9CSoccer% E2% 80% 9D + OR +% E2% 80% 9CSport% E2% 80% 9D + & OQ =% 22 & A1 % 22 + UND +% E2% 80% 9CSoccer% E2% 80% 9D + OR +% E2% 80% 9CSport% E2% 80% 9D + & gs_l = serp.3 ... 7614.32351.0.32567.17.17.0.0.0.345.1828 .8j6j0j1.15.0 .... 0 ... 1c.1.64.serp..2.3.379 ... 30i10k1.vLZ-hcrrdgg

Und es kommt wie folgt aus:

https://www.google.nl/search?newwindow=1&q=%22John%22+AND+%E2%80%9CSoccer%E2%80%9D+OR+%E2%80%9CSport%E2%80%9D+&oq=%22John%22+AND+%E2%80%9CSoccer%E2%80%9D+OR+%E2%80%9CSport%E2%80%9D+&gs_l=serp.3...7614.32351.0.32567.17.17.0.0.0.0.345.1828.8j6j0j1.15.0....0...1c.1.64.serp..2.3.379...30i10k1.vLZ-hcrrdgg

Ich habe dies für alle Namen, indem sie einfach nach unten ziehen. Und das sind alle Links, die mich tatsächlich zu der Seite schicken, auf der ich sein möchte. Aber was ich nicht kann, ist "KLICKEN SIE AUF", egal was ich versuche, ich kann diese Zellen nicht klickbare Hyperlinks machen.

Der nächste Schritt ist auch, dass ich sie mit Amyuni PDF drucken/speichern möchte. (Dies ist nicht meine größte Sorge im Moment)

Gibt es eine Möglichkeit, den Text zu erzwingen, in einem Browser zu öffnen? Zum Beispiel mit VBA.

Vielen Dank im Voraus, wenn Sie einen einfacheren Weg kennen, dies auszuführen, möchte ich das auch hören.

Mit freundlichen Grüßen!

Answer 1

sollten Sie verwenden die Hyperlink() Function

=HYPERLINK(link_location, [friendly_name]) 

Answer 2

Sie dieses Beispiel von Microsoft haben, wenn der Link in A5 wollen:

Sub test() 

With Worksheets(1) 
.Hyperlinks.Add Anchor:=.Range("a5"), _ 
Address:="http://example.microsoft.com", _ 
ScreenTip:="Microsoft Web Site" 

End With 
End Sub 

Sie Adresse ändern können: = ... durch die Inhalt der Zelle