エクセルのセルに検索したい文字を入力し、
マクロで以下のコードをやったのですが、
Sub メニュー追加()
With CommandBars("Cell").Controls.Add(before:=1)
.Caption = "グーグル検索"
.OnAction = "グーグル検索"
End With
End Sub
Sub グーグル検索()
CreateObject("Wscript.Shell").Run "http://google.com/m?q=" & ActiveCell.Value, 1
End Sub
文字化けしてしまいます。
エクセルに入力されている文字を一度エスケープにしないと無理なのでしょうか?
PCのグーグルだと、なぜかできます。
No.2ベストアンサー
- 回答日時:
[ANo.1] の DOUGLAS_ です。
>ヤフーPCもエンコードしないとできないみたいなので、
>教えていただいたマクロでヤフーPCをやってみたところ
>エンコードされず、文字化けしてしまった
恐らく、検索URL の文字列が間違っているのではないでしょうか?
試したところ、下記でいけました。
CreateObject("Wscript.Shell").Run "http://search.yahoo.co.jp/search?p=" & UrlEncodeUtf8(ActiveCell.Value), 1
できました^^
urlencodeが抜けていました。
DOUGLASさん今回は大変ありがとうございました。
また機会があればよろしくお願いします。
No.1
- 回答日時:
◆◆google mobile における URLエンコード の是非◆◆
>エクセルに入力されている文字を一度エスケープにしないと無理
のようですね。
ただし、論拠は発見しておりません。
>エスケープにしないと無理なのでしょうか?
このご質問の趣旨が、エスケープ(エンコード)の方法ではなくて、その是非をお問い合わせになっていらっしゃるのでしたら、これ以降はスルーなさってください。
◆◆エクセル VBA での URLエンコード の方法◆◆
●VB6・VBAで簡単にURLエンコード・デコードする方法
http://komet163.blog36.fc2.com/blog-entry-18.html
に、ちょうどよいサンプルが載っていますので、
CreateObject("Wscript.Shell").Run "http://google.com/m?q=" & ActiveCell.Value, 1
以下を
CreateObject("Wscript.Shell").Run "http://google.com/m?q=" & UrlEncodeUtf8(ActiveCell.Value), 1
End Sub
Public Function UrlEncodeUtf8(ByRef strSource As String) As String
Dim objSC As Object
Set objSC = CreateObject("ScriptControl")
objSC.Language = "Jscript"
UrlEncodeUtf8 = objSC.CodeObject.encodeURIComponent(strSource)
Set objSC = Nothing
End Function
としてお試しください。
この回答への補足
DOUGALASさん、ご回答ありがとうございます。
教えていただいたマクロをやってみたところ、
問題なく一発でできました^^
わかりやすく丁寧にありがとうございました。
ヤフーPCもエンコードしないとできないみたいなので、教えていただいたマクロでヤフーPCをやってみたところエンコードされず、文字化けしてしまったのですが、なぜなのでしょうか?
このPUBLIC FUNCTIONはグーグルモバイルにのみ適用されるとうことでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Excel(エクセル) セルの値をグーグルで検索するエクセルVBAについて! 2 2022/08/01 21:41
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Android(アンドロイド) スマホでパソコン操作の文字入力 2 2022/05/12 21:13
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの表で1年間の曜日を...
-
エクセルでの特別な文字を上に...
-
エクセルでB列でフィルターをか...
-
お世話になります。 Excelを使...
-
エクセルでセルに標準で入力さ...
-
EXCELの質問です 119から足した...
-
UNIQUE関数が使えないバージョ...
-
【マクロ】VLOOKUPにて参照元に...
-
エクセルで会社の従業員のデー...
-
Excel VBについての質問です。
-
【マクロ】アクティブセルにブ...
-
libre 表計算ソフトの計算がう...
-
エクセルの空欄をつめて、次の...
-
エクセルの問題です。絶対値の...
-
Excelで、項目の種類ごとにカウ...
-
【マクロ】アクティブセルの、...
-
exselで最小数で並び替える関数
-
「問題が発生しました」ですと?
-
CELL関数のヘルプ文の意味?
-
エクセルのコメントのデザイン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Google Colaboratoryでマウント...
-
【google One】グーグルワンの...
-
yahooとgoogleの違いを教えてく...
-
作ったHPが何故検索で出てこな...
-
電動式草刈機ナフコ規格:GT...
-
一万ドルとは
-
明日の北海道旭川の
-
Google Chrome 背景色?を変えた...
-
Googleに登録されたホームペー...
-
Access 選択クエリでの文字列...
-
METAがダメ? 検索したと...
-
検索エンジンのキャッシュの削...
-
VBA ADO 複数条件のフィルタ
-
ホームページ検索
-
トルシア形高力ボルトのトルは...
-
自分の会社のホームページを作...
-
アクセス解析で文字化け「遵ネ」
-
googleplayのブックスからアダ...
-
サイトの登録について
-
google mapにマークをつけた地...
おすすめ情報