Vbaを使用してgoogleで検索するにはどうすればよいですか?

Excel の使用以外にも、私たち全員が行っている重要なことがたくさんあります。私は正しいですか？

その 1 つは、Google を使用して何かを検索することです。便利なマクロ コードのリストには、Chrome を使用して Google で検索クエリを実行するために使用できるコードがあります。

そして今日はこのコードを皆さんと共有します。このコードを個人用マクロ ワークブックに追加し、Google で何かを検索する必要があるときにいつでも使用できます。

Google Chrome を開いて検索するための VBA コード

以下は、Chrome を使用して Google を検索するために使用できるコードです。

Windows 32 バージョン

 Sub Google_Search_32() Dim chromePath As String Dim search_string As String Dim query As String query = InputBox("Enter here your search here", "Google Search") search_string = query search_string = Replace(search_string, " ", "+") chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe""" Shell (chromePath & " -url http://google.com/search?q=" & search_string) End Sub

Windows 64 バージョン

 Sub Google_Search_64() Dim chromePath As String Dim search_string As String Dim query As String query = InputBox("Enter here your search here", "Google Search") search_string = Replace(query, " ", "+") chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe""" Shell (chromePath & " -url http://google.com/search?q=" & search_string) End Sub

この VBA コードを使用して Google で検索する方法

このコードを引き換えるために従う必要がある簡単な手順は次のとおりです。

• Alt + F11 ショートカット キーを使用して VB エディタを開くか、開発タブに移動します。

• 新しいモジュールを挿入し、上記のコードをそこに貼り付けます。

次に、VB エディタを閉じ、開発タブのマクロ オプションからこのマクロを実行します。

使い方

このコードを実行すると、クエリを入力するための入力ボックスが表示されます。この入力ボックスにクエリを入力し、[OK] をクリックする必要があります。

「OK」をクリックすると、このコードは入力したテキストを使用して検索 URL 構文を作成します。

最後に、Chrome をこの URL にリダイレクトして、入力したクエリの結果を表示します。