• 締切済み

マクロで指定した文字をブラウザに入力

エクセルのマクロについて質問なのですが、 セルにドメインが並んでいて、 abc1.com abc2.com abc3.com このセルの横にボタンを設置して、そのボタンを押すと デフォルトで使っているブラウザを開いて、(デフォルトで使っているブラウザはsleipnirです) ヤフーの検索窓にlink:abc.comと入力した検索結果を表示するコマンドを教えていただきたいのですが、どなたか詳しい方よろしくおねがいします。

みんなの回答

  • DOUGLAS_
  • ベストアンサー率74% (397/534)
回答No.1

#ザクッと。。。 「ボタン」の種類が「オートシェイプ」や フォーム の「ボタン」の場合は Dim myAdd As String myAdd = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(, -1).Address ActiveWorkbook.FollowHyperlink "http://search.yahoo.co.jp/search?p=" & Range(myAdd).Value のような感じでいけそうですが。。。  「コントロール ツールボックス」の「コマンド ボタン」の場合は「myAdd」の行が myAdd = CommandButton1.TopLeftCell.Offset(, -1).Address というような感じになろうかと。。。

関連するQ&A

  • マクロ 指定したブラウザで開く

    エクセルマクロに以下のコードを入れてあるのですが、 Sub グーグル検索() CreateObject("Wscript.Shell").Run "http://google.co.jp/search?q=" & (ActiveCell.Value), 1 End Sub これでやると、標準に設定しているブラウザ(sleipnirを設定しています)で開いてしまうのですが、たまにファイアフォックスで開きたいときがあるので、ファイアフォックスで開きたいときはファイアフォックスで開く、という風にするにはどうすればいいのでしょうか?

  • エクセルのマクロ

    B1をコピー⇒ブラウザの検索窓に貼り付け→エクセルに戻る B2をコピー⇒ブラウザの検索窓に貼り付け→エクセルに戻る B3を・・・という作業を自動化したいです。 B1~B?までを一括で選択してコピーという作業をマクロで自動化する方法はわかるのですが 上記の作業を簡単にする方法がわかりません。 B1→ブラウザ→B2を選択してマクロの表示ボタンをクリックして、右上にあるマクロの表示ボタンからポップアップウィンドウのマクロ画面の実行ボタンを押して~ というのをやっていたら、普通に「Ctrl+C」でコピーしたほうが早いと思います。 同じ操作を複数のセルに別々に実行したい場合、その別々を1個1個実行しているのは アホらしいです。 なにか方法はないでしょうか

  • エクセルの検索マクロ

    以下のようなマクロを作成しようとしているのですが、なかなかうまくいきません。 どなたかご教授お願いいたします。 ・セル(A,2)に入力されている文字を検索ボタンを押すことで検索する  ※検索ボタンはコマンドボタン ・検索対象は、Book内の全シート ・検索後は、見つかったセルに移動 ・見つからなかった場合は、”ありません”を表示

  • マクロで出来たら・・

    こんにちは。質問させてください。 マウスだけで操作するキーボードってありますよね。あんな感じのものってマクロで出来ますか? 実際にやりたいことというのはエクセル上にコマンドボタンがあって、そのコマンドボタンを押すとそのボタンに書いてある文字(Caption)をA1セルに表示させたいんです。ボタンがひとつふたつなら自力でがんばろうと思っていますが、けっこー沢山あるので・・つい・・^^ すみませんがお力を貸してください。

  • エクセルのマクロ

    あるシートでabcという単語を検索してその単語の数がいくつあるかをあるセルに入れるようなマクロはありますでしょうか。例えば東京と検索して東京が2個あったとして、A5のセルにその2を入れたいのですがそれをマクロで自動的に入るようにしたいのです。 またできるとして、別のエクセルファイルのあるセルにも入れることはできますでしょうか? ご存知の方ご教授下さい。

  • エクセルの個人用マクロブック

    「個人用マクロブック」に abc というマクロが登録されています。 コマンドボタンをクリックして abc を実行できるようにしたいのですが。 Sub abc () 処理内容 End Sub Private Sub CommandButton1_Click() Call abc End Sub コマンドボタンをクリックするとエラーになってしまいます。エラー内容は「SubまたはFunctionが定義されていません」です。 VBE画面から直接 abc を実行した場合はエラーになりません。 どこを直せばいいのでしょうか。

  • エクセルのマクロでコマンドボタンを押すと、セルに入力した住所のGoog

    エクセルのマクロでコマンドボタンを押すと、セルに入力した住所のGoogleマップが表示される様にするには、どういったマクロを記録すれば良いですか?

  • Excel97 マクロで検索

    Excel97を使っています。 「マクロの記録」でセルの値を検索して記録し、そのまま「マクロの実行」で実行するとうまくいくのに、コマンドボタンから呼び出すと、「実行時エラー1004:RangeクラスのFindプロパティを取得できません」と出ます。ヘルプにもないようで困っています。 どのようにしたらよいのでしょうか? 教えてください

  • EXELのマクロ?

    あるシートのセルF1に”0001”って入力した後、 ”出力済”コマンドボタンをクリックしたら(ボタンのみ設置済み) 「DB」シートのA列の”0001”を検索して、同シートのX列に”○”って入力するようにしたいんですが、具体的にどのようにしたらよいでしょうか?

  • PowerPoint VBAコマンドボタンでのマクロ

    PowerPointでVBAを使ったフォームを作製しました。 そのフォームを表示させるためマクロを書き、スライド上に コマンドボタンを配置させマクロを実行させたいと思っています。 ExcelのVBAですとコマンドボタンにマクロを割り当てるのは ツールバーのフォームのコマンドボタンで設置すると簡単ですが PowerPoint VBAですとコントロールツールボックスでのコマンド ボタンしかなくボタンにマクロを割り当てる方法が分かりません。 どなたかコマンドボタンにマクロを割り当てて実行する方法を 教えて下さい。 宜しくお願い致します。

専門家に質問してみよう