No.3ベストアンサー
- 回答日時:
No.2です。
> ""を開いています。
このメッセージから、推測される原因を確認した結果、
おおよそ状況がつかめました。
前回回答前のこちらでのテストでは、ハイパーリンク型
フィールドへのファイルのドラッグ&ドロップでアドレス
を記録したのですが、この場合、入力データにカーソルを
合わせた後、F2キーで編集モードにすると
「http//www.goo.ne.jp/#http//www.goo.ne.jp/#」
と、アドレスが二重に表示されます。
(実際には1個目のアドレスは文字列としての表示、
2個目のアドレスが実際のリンク先)
一方、Webブラウザなどからアドレスをコピー&ペースト
した場合は
「#http//www/goo.ne.jp#」
と、実際のリンク先のアドレスのみが記録されますが、
このデータを「Call FollowHyperlink(コンボ0)」の
形で参照すると、エラーとなってしまうようです。
大変失礼致しました。
対処法としては、「データの先頭文字が『#』かどうかで
切り分け」も考えましたが、今回の件では「Follow」を
使用した方がよさそうです(汗)
Private Sub コンボ0_AfterUpdate()
If Nz(コンボ0, ") = "" Then Exit Sub
'コンボ0に記録されたハイパーリンクを実行
'(FollowHyperlinkと違い、アドレスを引数とする必要
' はなし。こちらの詳細もヘルプを参照下さい(汗))
コンボ0.Hyperlink.Follow
End Sub
No.2
- 回答日時:
> 多分コンボボックスのChangeイベントだと思うのですが
Changeイベントは、極端な話、IMEをオフにしていると
1文字入力毎(IMEがオンの場合は変換の確定毎)にイベント
が発生してしまうので、更新後イベントの方がよいのでは
ないでしょうか。
(ハイパーリンクアドレスの手入力を制限できていれば
ChangeでもOkですが、その制限の方がコードとしては
難しいかと・・・)
ハイパーリンク先の表示には「FollowHyperlink」を
使用するのがいいかと思います。
(なお、ハイパーリンクアドレス以外の引数も指定可能
ですが、下記では省略しています。詳細はVBAのヘルプ
を参照下さい:htmlとかには非常に疎いので(汗))
Private Sub コンボ0_AfterUpdate()
'アドレスの文字列がない場合は何もしない
If Nz(コンボ0, "") = "" Then Exit Sub
'リンク先を表示
Call FollowHyperlink(コンボ0)
'構文としては以下でも可
'FollowHyperlink コンボ0
'Application.FollowHyperlink コンボ0
End Sub
・・・以上です。
ありがとうございます。
しかしエラーになってしまいます。
まず、
「""を開いています。
ハイパーリンクにはコンピューターやデータに問題を起こす可能性もあるものもあります。
お使いのコンピューターを保護するには、信頼できる発行元からのハイパーリンクのみをクリックしてください。続行しますか?」
にて「はい」をクリックすると
VBAのエラーになり
「実行時エラー 7971
'#http://www.google.co.jp/#'へのハイパーリンクを認識できません。
接続先を確認してください。」
となってしまいます。
しかしその後にコンボボックスをクリックするとリンク先へ飛べます。
何がいけないのでしょう?
再度ご回答いただければ助かります。
よろしくお願いします。
No.1
- 回答日時:
”クリックする”という行為は PCに ある意味で ”確認した”というサインです。
コンポボックスに表示された URLリストが ”新規データー ”であることを認識させれば・・・なんとか・・・と思います。
例えば URL のテーブルに 登録順のID番号と アクセスした 履歴を残すフィールドが
あれば コンポボックスに 逆順に表示された一番目の URLが履歴が ”Null " なら URLを コンポボックスの値にして
クリックした状態にする・・・・
以上の行為を プロシージャーに設定すれば 可能です。
プロシージャーを造るのが 面倒なら・・・クリックしてして下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- SQL Server DBのテーブルの設計ができず困っています。 2 2023/06/29 16:43
- Visual Basic(VBA) ExcelVBA ドロップボックスで月を選択するとそれ以降のデータが残るようにしたい。 3 2022/12/16 14:53
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Excel(エクセル) Excel コンボボックス バックカラー 1 2023/02/18 08:06
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Visual Basic(VBA) VBA ComboBoxについて 2 2022/10/21 12:15
- Visual Basic(VBA) VB.net 1 2022/08/18 19:21
- Visual Basic(VBA) VB.net 1 2022/08/17 19:28
- HTML・CSS VB.net コンボボックス 2 2022/06/30 20:37
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのデーターが2か月前の...
-
エクセルVBA、別ブックへ転記す...
-
【マクロ】顧客番号にて一致さ...
-
エクセル共有したが、アクセス...
-
エクセル②
-
(マクロ)データをAブックからB...
-
Excelでセルの値が同じか...
-
エクセルを使っていて2024/5/15...
-
指定文字の間に
-
Microsoft 365の Excel を使用...
-
エクセルの計算
-
エクセルでの作業計算方法について
-
Excelで全角を半角にしたいので...
-
エクセル関数に詳しい方教えて...
-
Googleスプレッドシートでファ...
-
エクセル 文字を増やしたい。
-
はがきについて。
-
エクセルの暗号化なしのバーの...
-
【マクロ】必要な項目(列)の...
-
Excel
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access コンボボックスの値を...
-
Access 複数条件検索の設定が上...
-
コンボとセットの違い
-
アクセスのコンボボックスの重...
-
Access パラメータークエリ VBA...
-
コンボボックスの値が変更され...
-
サブフォームにあるコンボボッ...
-
ACCESSコンポボックス
-
「コンボ」の意味教えてください
-
access vba コンボボックス 読...
-
↓Twitterで流行ってるこれって...
-
ラテン語で「闇」を意味する単...
-
「ぱーりない」「パーリナイ」...
-
人生が開けない夜みたいなんですが
-
闇バイトの応募はおとり捜査で...
-
海老と猿… どちらが闇深いですか?
-
タイムリープ経験者いますか。...
-
家系が途絶える事は悪い事か
-
推しの子という話題のアニメを...
-
半分寝ている状態のとき、不思...
おすすめ情報