リンク元が行方不明になったリンクに対処する方法
」というメッセージがでます。 「Ctrl＋F」のショートカットキーなどで「検索と置換」ダイアログボックスを表示して、"［"を検索するようです。 goo. html 「このブックには、ほかのデータソースへのリンクが含まれています。 nifty. html Q おはつです。 どなたか、知ってらっしゃる方がいらしゃいましたら、よろしくお願い致します。 [環境] Windows2000 EXCEL2000 [質問] ・下記のソースで、ハイパーリンクが設定されている項目 をcmdボタンイベントから設定を外しました。 しかし、ハイ パーリンクが元データに設定されていない場合、Errが返り ます。 selectで指定されたセルのハイパーリンク有無を調べる 方法を教えて頂けないでしょうか？ If Not IsNull Trim Range "E105". Text Or Trim Range "E105". Text Range "E105:AG108". Select Selection. Hyperlinks 1. Delete End If A ベストアンサー 誰もレスを付けないと思いましたので、こちらでも作りましたのでアップしておきます。 1の方とは、少し意味が違う部分があるかと思います。 以前、ここの掲示板で出したことがあると思うのですが、もう見つかりません。 一応、今回は、自分用で作ってみました。 プロバイダからクレームが付きそうな気がしましたが、実行してしまいました。 常識の範囲でお使いください。 あまり速くはありませんが、ハングはしませんでした。 リンク先のチェックは、838件を一気にチェックしてしまいましたが、これほどはやらないほうが良いかもしれません。 100件やって休むとかしたほうが良いような気がします。 ユーザー定義関数の戻り値は、いくつかあります。 基本的に、ステータスコードの200は、全部返しました。 数字については、ステータス・コード表をごらんになってください。 asahi-net. html 例： 404 サイトがなくなっています。 403 アクセス権限がないということですから、ログインしなければ分からないかもしれません。 他にも、いくつか種類が出てきます。 a と出るのは、サーバーが受け付けないものだと思います。 アンチウィルスソフトで、禁止区域に入った時は、メッセージが出てきました。 しかし、そのままで続いていきます。 このマクロ使用中でも、スクロールは可能です。 場所は標準モジュールです。 WinHttpRequest ' For Each c In Range "B2", Cells Rows. Count, 2. End xlUp If LCase c. Offset , 1. Value Sleep 200 'Wait を掛ける DoEvents 'ESCで離脱できるようにする。 WinHttpRequest. 1" End If objHTTP. Open "GET", strURL, False objHTTP. Send If objHTTP. 1の方とは、少し意味が違う部分があるかと思います。 以前、ここの掲示板で出したことがあると思うのですが、もう見つかりません。 一応、今回は、自分用で作ってみました。 プロバイダからクレームが付きそうな気がしましたが、実行してしまいました。 常識の範囲でお使いください。 あまり速くはありませんが、ハングはしませんでした。 リンク先のチェックは、838件を一気にチェックしてしまいましたが、これほどはやらな...
次の
