Ｐａｇｅ 276 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ここに来るマクロは？ ぴかる 02/10/30(水) 18:03 ┗Re:ここに来るマクロは？ コロスケ 02/10/30(水) 18:14 ┗Re:ここに来るマクロは？ ぴかる 02/10/30(水) 18:55 ┗ハイパーリンクで出来ました。 ぴかる 02/10/30(水) 20:17 ─────────────────────────────────────── ■題名 ： ここに来るマクロは？ ■名前 ： ぴかる ■日付 ： 02/10/30(水) 18:03 -------------------------------------------------------------------------
| こんにちは。 ここに来るマクロボタンを作りたいんですが、どうやったら良いのでしょうか？ ↓を動作させたいと思ってます。 http://www.vbalab.net/vbaqa/c-board.cgi?id=excel よろしくお願いいたします。 |
| ▼ぴかる さん： こんにちは。いろんな方法がありますが、一例です。 シート上にコマンドボタンがあると想定しています。 Option Explicit 'Microsoft Internet Controlsを参照設定 Private WithEvents ie As SHDocVw.internetexplorer Private Sub CommandButton1_Click() Const url As String = _ "http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=1408;id=excel" If ie Is Nothing Then Set ie = New SHDocVw.internetexplorer ie.navigate url ie.Visible = True Set ie = Nothing End Sub |
| コロスケさん、こんにちは。 コロスケさんからのご回答お待ちしておりました。ありがとうございます。 正直単純なマクロかな？と思ってたんですが、そうは行かないみたいですね。 >Option Explicit >'Microsoft Internet Controlsを参照設定 >Private WithEvents ie As SHDocVw.internetexplorer ↑で少し不具合が出ました。私の環境の問題かな？ シートモジュールでは、コンパイルエラー。標準モジュールでは、赤字表示となります。 すみませんが再度教えて頂けないでしょうか？。出来れば標準モジュールにて行いたいと考えております。 すごくワガママなんですが、"ピカつーる"に使わせて頂きたいと思っております。 問題がないようでしたら、ご協力よろしくお願いいたします。 |
| ぴかるさん、こんばんは。 初めてハイパーリンクを設定して自力でもやってみました。そしてそれをマクロ記録してみたらうまく出来るようになりました。ありがとうございました。 |