• ベストアンサー

エクセルのマクロ

エクセルで表示＞ツールバー＞フォームよりボタンを 作成し、それをクリックすると インターネットエクスプローラーを立ち上げて リンク先、（例えばhttp://www.yahoo.co.jp/） にアクセスできるようにしたいと考えています。 エクセルにリンク先を取り込むのではなく、インターネット エクスプローラーを自動的に立ち上げてリンク先にアクセスする というのがやりたいことです。 営業職なものでまったく良くわからないのですが、 Sub ボタン1_Click() xxxxxxxxxxxxxxxxxxxxxxxxx End Sub 上記において、 xxxxxになにを記述すれば可能になるのでしょうか？ ご教授頂きたく思います。 どうぞよろしくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • PrintScree
  • ベストアンサー率25% (538/2091)
回答No.2

あえてVBSで記述したいのであればこうなります。 Shell ("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.yahoo.co.jp/")

kobayashitakkei
質問者

お礼

ありがとうございます。 私が欲しかった情報はまさしくこれです。 早速やってみたところ思い通りのことが できました。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (2)

  • aminaka
  • ベストアンサー率20% (2/10)
回答No.3

1の補足です フォームボタンをアクティブな状態にしておき、メニューバーの「挿入」→「ハイパーリンク」をクリックします ハイパーリンクの挿入ダイアログが出ますので、「ファイル名又はWEｂページ」アドレスを入力し、「OK」をクリックです

kobayashitakkei
質問者

お礼

ありがとうございます。 上記のやり方を試してみましたが、 ボタンをアクティブ状態にすると ハイパーリンクが選択できない状態に私の 場合はなります。（私の操作が間違っているのでしょうね。） マクロを組む方法で解決しておりますが、 お礼を申し上げます。

全文を見る
すると、全ての回答が全文表示されます。
  • aminaka
  • ベストアンサー率20% (2/10)
回答No.1

マクロを組まなくても、フォームボタンにリンクを挿入で、Webページのアドレスを入れればOKだと思いますよ

kobayashitakkei
質問者

お礼

早速のご回答ありがとうございます。 しかしながらその方法がよくわかりません。 詳しく教えていただけると幸いです。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • マクロボタンが勝手に飛び回る

    エクセルシートの「フォームツールバー」でフォームボタンを配置して印刷マクロを作ったのですが、なぜかボタンをクリックすると勝手に移動してしまいます 原因がサッパリわかりません、 プロシージャは Private Sub CommandButton1_Click() Worksheets("納付書").Range("a1:v35").PrintOut Range("Z4").Select End Sub このようなマクロになっています。 助けてください。

  • アクセスからエクセルのUserForm1を表示させたい

    オフィス2003です。 アクセスのフォーム上にコマンドボタンを置き、 クリックイベントでエクセル上に作成してある UserForm1を表示させたいです。 案の定 Sub CB_Click() Excel.UserForm1.Show End Sub ではだめでした。 どういう方法がありますか？ よろしくお願いします。

  • エクセル2010でマクロからリボンの最小化したい

    Excel2010でリボンの展開、最小化をマクロでユーザーフォームにはりつけたコマンドボタンから実行したい。 基礎的な勉強を全くしていないので、うまく説明できるか自信がないが質問内容は以下の通りです。 リボンの展開、最小化は、「コントロールキーとF1キーを同時に押す、をコードにすればよい」というのをみつけました。 そこでシートにボタンを張り付けて次のマクロで展開、最小化ができました。 Sub ボタン1_Click() Application.SendKeys Keys:="^{f1}", Wait:=True End Sub しかし、これはユーザーフォームのコマンドボタンでは動きません。 Private Sub CommandButton1_Click() Application.SendKeys Keys:="^{f1}", Wait:=True End Sub 「Private Sub 」だからかと思うが、その先がわかりません。 ちなみに似たような動作で、全画面表示で次のようなものはどちらでも使えます。 Sub ボタン2_Click() If Application.DisplayFullScreen = True Then Application.DisplayFullScreen = False Else Application.DisplayFullScreen = True End If End Sub この場合はユーザーフォームにはりつけても動きます。 ど素人にお知恵を貸してください。

  • エクセル・マクロボタンの表示を変更したい

    　初歩的質問ですみません。 　Excel2000で、VBAの修正を頼まれています。 　シート上に印刷用ボタンが2個、既に作られているので、その表示タイトルを （例えば、「４月分印刷→５月分印刷」のように）変更したいのです。 　しかし、　右クリックしてもタイトルにカーソルが点滅しませんし、マクロ名などの表示も出てきません。 ユーザーフォームもありませんでした。 コードは（標準モジュールではなく）Sheetに以下のように記述されています。 Private Sub Printout_Click() ActiveSheet.PageSetup.PrintArea ="$A$2:$G$20" End Sub Private Sub Printout2_Click() ActiveSheet.PageSetup.PrintArea ="$Ｆ$2:$L$20" End Sub 　どこにも、ボタンのタイトル表示が見つからないので、変更できず困っています。 （非表示のSheetなどもありません） 　どなたか、ご存知の方がいらしゃったら、教えて下さい。 よろしくお願いします。

  • エクセル：マクロボタンが編集状態に・・

    ボタンでマクロを操作しているのですが、なぜだかボタンが編集状態になります。 エクセルシートの「フォームツールバー」でフォームボタンを配置して印刷マクロを作ったのですが、なぜかボタンが編集状態になります。 原因がサッパリわかりません、席を外している２０－３０分の間になるようで、スクリーンセーバーを解除して ボタンにマウスポインターを当てると編集状態になります プロシージャ名は Private Sub CommandButton1_Click() で始まるマクロになっています。 助けてください。 エクセル2000

  • マクロ　ユーザーフォームが表示されない

    いつも回答して頂き、ありがとうございます。 Sub UserForm1() UserForm1.Show End Sub と記述しましたが、エラーが発生し、ユーザーフォームが表示してくれません。 コンパイルエラー：Functionまたは変数が必要です フォームはコマンドボタンを一つ配置し、 Private Sub CommandButton1_Click() Unload UserForm1 End Sub と記述してあるだけです。何が悪いのでしょうか？御教授の程宜しくお願い致します。

  • エクセルＶＢＡマクロのオプションボタンについて

    オプションボタンのマクロに関して教えて下さい。 マクロのスキルレベルは、新しいマクロの記録を多用して、マクロを組むレベルです。 「表示－ツールバー－フォーム」から選ぶオプションボタンを使って、オプションボタンＡが押されている場合とＢが押されている場合で、処理を変えたいのですが、そのオプションボタンの値をどうやっても拾えません。 色々検索した結果、以下のマクロでできる気がしたのですが、駄目でした。 Private Sub OptionButton1_Click() オプション1 = True End Sub Private Sub OptionButton2_Click() オプション2 = True End Sub Sub オプションボタン() If オプション1 = True Then Range("a1") = 1 ElseIf オプション2 = True Then Range("a1") = 2 Else Range("a1") = 0 End If End Sub 作ったオプションボタンを右クリックしてマクロ登録を選ぶと、「オプション1_Click」となっているので、「OptionButton1_Click」を「オプション1_Click」に変えてみたのですが、やっぱり駄目でした。 ネットではユーザフォームを使ったマクロ例はあるのですが、そのまま使用するオプションボタンの例がありません。できればユーザフォームは使いたくありません。 ご存知の方がいらっしゃいましたら、教えて下さい。よろしくお願いします。

  • EXCELの初歩的なマクロ（VBA）の記述について

    本当に初歩的な内容で申し訳ありませんが、ボタンをクリックした時にある図形を非表示にし、もう１回クリックすると表示にする方法を教えて頂けませんか。 （ボタン：ボタン1、図形：図形1） 　Sub ボタン1_Click() 　End Sub 上記の２行の間に、記述する内容になるかとお思います。 EXCEL2010を使用してます。 お手数ですが、よろしくお願いします。

  • エクセル2010のユーザーフォーム記述について。

    エクセル2010でセルのコピーペーストの質問です。次のような記述がユーザーフォームにあります。これだと、なぜか貼り付け先のセルのすぐ上のセルの条件付き書式まで貼り付け先に貼り付けられてしまいます。 どのような記述をすれば不具合を解消できますか。 Private Sub CommandButton1_Click() Selection.PasteSpecial Paste:=xlPasteAllExceptBorders Selection.PasteSpecial Paste:=xlPasteValues UserForm1.Hide End Sub Private Sub CommandButton2_Click() UserForm1.Hide End Sub

  • エクセルＶＢＡのマクロ文について

    エクセルVBAで、シート上のボタン（フォーム）をクリックすると、UserForm1が表示されてその中のTextBoxに別のシートのセルに入力したいる値を表示させたくて、以下のようにボタン（フォーム）にマクロを入力したのですが、エラーがでてきてうまくいきません。 入力したマクロが間違っているのでしょうか？ Sub ボタン1_Click() UserForm1.Show UserForm1.TextBox1 = Sheets("入力").Ranges("Ｄ１１").Value End Sub すみませんが、ご存知の方、教えてくださいませんか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する