Excel VBA

【Excel VBA】【マクロ】【Tips】ショートカットキーを使ってGoogle、Googleマップ検索をする方法

こんにちは!Lenocoです。本日も見てくださりありがとうございます。

今回はショートカットキーを使ってExcelの文字でGoogle、Googleマップ検索をする方法をご紹介します。

ショートカットキーを使ってGoogle、Googleマップ検索をする方法

以前の「散策プランの作り方」というブログで、
新しくなった旅のしおりマクロをご紹介しましたが、
新しく追加になった機能というのが、GoogleとGoogleマップでの検索機能なんです。

具体的な動きとしては
文字列が入ったセルを選択して「Ctrl + Shift + S」を押すと、Googleでそのセル内容を検索できます。
また、「Ctrl + Shift + M」でGoogleマップでそのセル内容を検索できます。
ツールの中身としては、「Google、Googleマップで検索をする処理」と、「ショートカットキーを設定をする処理」が必要となります。
では、作っていきましょう。まずは「Google、Googleマップで検索をする処理」の部分です。
2つのプロシージャを作成します。これはModule内に作成してください。

Google検索のコード

Sub SearchGoogle()

    Dim path        'ブラウザのパス
    Dim txt         '検索キーワード
    Dim url         'Googleの検索URL
    
    path = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    url = "www.google.co.jp/search?q="
    txt = Replace(Replace(ActiveCell.Value, " ", "+"), " ", "+")
    
    'ブラウザを起動してGoogle検索を行う
    Call Shell(path & " " & url & txt)

End Sub

Googleマップ検索のコード

Sub SearchGoogleMap()

    Dim path        'ブラウザのパス
    Dim txt         '検索キーワード
    Dim url         'Googleマップの検索URL
    
    path = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    url = "https://www.google.co.jp/maps/search/"
    txt = Replace(Replace(ActiveCell.Value, " ", "+"), " ", "+")
    
    'ブラウザを起動してGoogleマップ検索を行う
    Call Shell(path & " " & url & txt)

End Sub

説明

Googleのブラウザのフルパスと検索URLを半角スペースでつなぎ、さらに検索キーワードをくっつけたものを、
Shell関数を使い、実行します。
検索キーワードは、アクティブセル(現在選択されているセル)の内容ですが、
スペースが入っていると検索がうまくいかないため、スペースが入っていれば「+」に置き換えています。
Google検索とGoogleマップ検索のコードはほぼ同じですが、urlの中身が少しだけ異なります。

続いてショートカットキーの設定をします。これはThisWorkbook内に記載してください。

ショートカットキー設定のコード

Private Sub Workbook_Open()
    Application.OnKey "^+s", "SearchGoogle"      '[Ctrl]+[Shift]+[s]
    Application.OnKey "^+m", "SearchGoogleMap"   '[Ctrl]+[Shift]+[m]
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^+s"   '[Ctrl]+[Shift]+[s]
    Application.OnKey "^+m"   '[Ctrl]+[Shift]+[m]
End Sub

説明

Workbook_Openで、Ctrl、Shift、sを押すと先ほど作成したプロシージャ「SearchGoogle」を、
Ctrl、Shift、mを押すと先ほど作成したプロシージャ「SearchGoogleMap」を呼び出しますよう設定します。
ショートカットキーの設定を解除するWorkbook_BeforeCloseも忘れず記載しましょう。
「s」と「m」はそれぞれsearchとmapを意味しています。
※ショートカットキーはお好きに変えていただいて構いません。
※ショートカットキーの設定について詳しくは「マクロをアドインにしてショートカットキーで呼び出す」をご覧ください。

さいごに

Excelの文字をコピーして、ブラウザを開いて、検索枠に貼り付けをして、検索をする・・
という手間が一気に省けます!
Excelに入力した文字を検索するということがよくある方、是非この機能を実装してみてください。
かなり作業がはかどると思います♪
1つ改善したいなと思うのが、Googleマップ検索をするたびにタブが何個も作成されてしまうことです。
できればGoogleマップのタブは1つにしておきたい・・
もしやり方がわかればまたお知らせしますね!

【マクロ】【おすすめ】散策プランの作り方こんにちは!Lenocoです。本日も見てくださりありがとうございます。 コロナのワクチン接種のお知らせが我が家にも届きました。 ですが...
【Excel VBA】【マクロ】【Tips】マクロをアドインにしてショートカットキーで呼び出すこんにちは!Lenocoです。本日も見てくださりありがとうございます。 今回はアドインのショートカットについてのTips回です!!! ...
Lenoco

COMMENT

メールアドレスが公開されることはありません。