再びHYPERLINKによる地図表示不良

質問

Win7 64bit Pro, Excel2010,Google Chrome を使用しています。
昨年11月19日付で質問させて戴きその時は解決したのですが、再び同じ現象が生じました。多分前回と同様にGoogleの仕様変更が原因でないかと推察していますが、どなたかこの問題を解決する関数の式をご存知の方がいらっしゃいましたらごご教授戴きたいと存じます。

ExcelシートのセルB3に住所が入力されています。セルC3はmapと表示させてあり、HYPERLINK("https://maps.google.co.jp/maps?output=classic&q="&B3,"map")
と関数が入っています。
最近セルC3のmapをクリックしても昨年と同様にgoogle mapに「****(****は不明な文字)が見つかりませんでした」と表示され地図が開きません。

回答No.1

NotFound404

B3セルから下にずらっと住所が並んでいるとして
VBAになりますが
Alt + F11 でVBEに切り替えます。
メニューの「表示(V)」から、「プロジェクトエクスプローラー(P)」を選択
小窓が開くので（VBEに切り替えた時点で開いているかも）
GoogleMapを設定したいシート（例：Sheet1(Sheet1))をクリック、
新しいウィンドウが開くのでそこに下記をコピペします。

Private Function EncodeURL(ByVal sWord As String) As String
With CreateObject("ScriptControl")
.Language = "JScript"
EncodeURL = .CodeObject.encodeURIComponent(sWord)
End With
End Function

Sub SetMap()
'Google Map へのリンクを設定します
Dim i As Long
i = 3 'B3セルから開始
Do Until Cells(i, 2) = ""
Sheets(1).Hyperlinks.Add _
Cells(i, 3) _
, "http://maps.google.co.jp/maps?f=q&hl=ja&q=" & EncodeURL(Cells(i, 2)) _
, , , "Map"
i = i + 1
Loop
End Sub

Alt + F11 でExcelアプリに戻って、Alt + F8 でマクロを一覧表示し、SetMapをダブルクリック
でどうかいな？
使えそうならファイルを上書き保存（xls、xlsmの場合）
ファイルがxlsx (マクロなし)ならマクロ有効ブックxlsmで保存してください。
なお、Classicモード？は止めちまったようですね。

お礼

申しわけ有りません。私はVBA素人よりもっと悪い門外漢ですので仰せのとおり何回もやって見たのですが成功しませんでした。折角のご指導を有意義に活用できずお詫び申し上げます。