- ベストアンサー
テキストボックスのアドレスを有効にしたい
たびたびすみません。教えて下さい。 ワークシートにアドレスを記入して、それをユーザーフォームのテキストボックスに表示させました。 その表示されたアドレスをクリックすれば、そのアドレスが開くようにしたいのですが、有効になりません。 有効にする方法を教えて下さい。 宜しくお願いします。
- HUBHUB
- お礼率69% (9/13)
- Visual Basic
- 回答数2
- ありがとう数5
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
テキストボックスにURLをいれるとします。 下記のIE.Navigate URL:の部分をIE.Navigate URL:=Text1.Textとするのですが、まず下記でテスト してください。 私はエクセルVBAで、標準モジュール上に下記を置いて下記を実行し、本質問の画面が出ることを確認しました。 Sub test01() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.Navigate URL:="http://okweb.jp/kotaeru.php3?qid=1069335" End Sub これを参考にしてください。
その他の回答 (1)
- tinu 2000(@tinu2000)
- ベストアンサー率40% (147/366)
前提条件 Visula Basic Editorの「メニュー」→「ツール」→「参照設定」 で、「Microsoft Internet Controls」の参照設定をチェックする。 '----------------ここから---------------- Private WithEvents ObjIE As InternetExplorer Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set ObjIE = New InternetExplorer ObjIE.Visible = True ObjIE.Navigate "http://okweb.jp/kotaeru.php3?qid=1069335" End Sub '----------------------ここまで---------------- SHeet1のEditor画面で、Worksheet_SelectionChangeのイベントに上記を入力。 SHeet1に戻り、任意のセルをクリックすると、InternetExplorerが起動して、この画面を表示します。
お礼
ご回答いただきありがとうございました。
関連するQ&A
- セルの値をユーザーフォームのテキストボックスに
エクセルの質問です。 シート1にボタンを設置してユーザーフォームを呼び出すようにしています。 ユーザーフォームにテキストボックスを用意してて、シート1のセル(A1)に記入された数字を、ボタンを押した時に立ち上がったユーザーフォームのテキストボックスに表示されるようにしたいのですが、どうしたらいいのでしょうか?
- ベストアンサー
- Visual Basic
- テキストボックスへにセル値の入力
エクセルマクロの初心者で恐縮なのですが、ユーザーフォームのテキストボックスに下記のようなことは可能でしょうか? 例1)ユーザーフォーム上にある「テキストボックス」に「オプションボタン1」を選択するとワークシートのセル値を入力(反映)することは可能でしょうか? 例2)次に、「オプションボタン2」を選択すると、例1でテキストボックスに入力(反映)した値を消去し、かつ、このテキストボックスに数値を直接入力したら、ワークシートの別セルに入力した数値が反映されるようにすることは可能でしょうか? 例1・2)についてどのようなマクロを組めばよいのでしょうか? マクロにお詳しい方、大変申し訳ございませんか、ご指導お願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのワークシート上のテキストボックスのずれ
エクセルのワークシート上に(ユーザーフォームではなく) コントロールツールボックスからテキストボックスをいくつか作成しました。 そのテキストボックスをそれぞれ選択(アクティブ?マウスオーバー?)すると テキストボックスの大きさが微妙に変化してしまうのですが、回避する方法はないでしょうか? 微妙というのは、テキストボックスの下・右にそれぞれ枠線1本分ほどです。 エクセルのバージョンは2003です。 どうぞよろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- テキストボックスの文字を保持したい
どなたか教えてください。 ユーザーフォームにテキストボックスを挿入して、あるプログラムを動作させた状態を表示させたいのですが、この時ユーザーフォームを消してしまうとテキストボックスに表示させていた文字が消えてしまいます。テキストボックスに表示された文字を、ユーザーフォームを消して再度表示させた時にも表示させたままにすることは可能ですか? お願いします。
- ベストアンサー
- オフィス系ソフト
- テキストボックス %で表示するには
アクセスのテキストボックスの規定値に「5.67」と入れて、書式を%にして、フォームビューで表示すると、%しか表示されません。 テキストボックスをクリックすると、5.67と表示されますが、%は消えてしまいます。 テキストボックスとクリックしてもクリックしなくても「5.67%」と表示させたいのですが、 どうすればいいですか? 書式を、#.##%にしたら、567%になりました。
- ベストアンサー
- オフィス系ソフト
- Excel2000VBA テキストボックス内での改行で・・・
ユーザーフォームにテキストボックスを作り、 テキストボックス内での改行をできるように設定します。 このテキストボックスに入力されたデータをセルに入力すると セルでは改行したところに「・」が入ってしまいます。 例えばテキストボックスに こんにちは[改行] いい天気ですね と入力して、これをsheet1のA1に入力します。すると、 こんにちは・ いい天気ですね と入力されてしまいます。 この「・」を表示しないようにする方法はありますか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- フォームのテキストボックスの内容
こんばんは 顧客情報が入った名簿があり、ユーザーフォームを起動して入力・修正しています。チェックをすることで送付状を印刷するようにしてありますが、フォームの中に担当者が送付状に一言書き添えるためのテキストボックスを用意して送付状のセルに文章を入れようと思っています。ところが、テキストボックスでは改行して入力されている内容がセルにうまく表示できないのです。テキストボックスに表示されているとおりに印刷用シートに表示させるようなことは出来ないものでしょうか。よろしくお願いします。
- 締切済み
- オフィス系ソフト
- テキストボックスをセルへ。
3つ聞きたいです。 ユーザーフォームのテキストボックスに記入した内容を 最終行を取得して、指定の列にコメントを入力させるためには どうするのがいいでしょうか。下記で、エラーが出てしまいます。 .cells(lrow + 1, "c").addcomment = textbox5.value それと、一つのテキストボックスの内容を複数の セルへ記入させるには、下記をどうすればいいですか。 .cells(lrow + 1, "X:Z").value = textbox6.value あと、ショートカットキーで(例えば、CTRL + Q) ユーザーフォームを起動させるにはどうすればよいですか。 するとしたら、そのコードはどこに表示させるのがいいでしょうか。 いろいろ、お願いですが教示お願いします。
- ベストアンサー
- Visual Basic
- VBA テキストボックスの行数取得
Excle2000を使用しています。 ユーザーフォームにテキストボックスを設置してあり、MultiLineとEnterKeyBehaviorをTrueにして改行できるようにしてあります。 そこでテキストボックスに文字を入力し、コマンドボタンなどをクリックするとメッセージボックスにそのテキストボックスの行数を表示させるにはどうしたら良いでしょうか?? よろしくお願いします。
- ベストアンサー
- Visual Basic
- テキストボックスの合計について
エクセルのユーザーフォームに 1から7までのテキストボックスが あります。 そして 1から6までのテキストボックスに数値を投入していきます。 それぞれの値が確定したら、7のテキストボックスに 1から6までの 値の合計が表示されるようなマクロを記述したいのですが、うまく いきません。 どのように記述したらよいのか教えていただけないでしょうか。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 うまくいきました!!