Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13575 / 13644 ツリー ←次へ | 前へ→

【4736】ハイパーリンクが埋め込まれているか? ボブサップ 03/4/4(金) 2:15 質問
【4737】Re:ハイパーリンクが埋め込まれているか? ichinose 03/4/4(金) 2:39 回答
【4771】Re:ハイパーリンクが埋め込まれているか? ボブサップ 03/4/5(土) 0:52 お礼

【4736】ハイパーリンクが埋め込まれているか?
質問  ボブサップ  - 03/4/4(金) 2:15 -

引用なし
パスワード
   VBA初心者です。

セルにハイパーリンクが埋め込まれているか?否か?を取得して
ハイパーリンクが埋め込まれている場合と埋め込まれていない場合
で異なる処理を行いたいと考えております。

"セルにハイパーリンクが埋め込まれているか?否か?"を取得する方法
を教えて戴けませんでしょうか?

【4737】Re:ハイパーリンクが埋め込まれているか?
回答  ichinose  - 03/4/4(金) 2:39 -

引用なし
パスワード
   ▼ボブサップ さん:
こんばんは。

>セルにハイパーリンクが埋め込まれているか?否か?を取得して
>ハイパーリンクが埋め込まれている場合と埋め込まれていない場合
>で異なる処理を行いたいと考えております。
>
>"セルにハイパーリンクが埋め込まれているか?否か?"を取得する方法
>を教えて戴けませんでしょうか?
アクティブセルに対する例ですが、
'=========================================
Sub test()
  With ActiveCell
   If .Hyperlinks.Count > 0 Then
     MsgBox "ハイパーリンク有り"
   Else
     MsgBox "ハイパーリンク無し"
     End If
   End With
End Sub

というようにセルを調べたらどうでしょうか?

HNを「ミルコ」すればよかったなあ・・・。

【4771】Re:ハイパーリンクが埋め込まれているか?
お礼  ボブサップ  - 03/4/5(土) 0:52 -

引用なし
パスワード
   ▼ichinose さん:
こんばんは。

アドバイスに従いマクロを作成、目的の機能をもたせることができました。
有難う ございます。

>アクティブセルに対する例ですが、
>'=========================================
>Sub test()
>  With ActiveCell
>   If .Hyperlinks.Count > 0 Then
>     MsgBox "ハイパーリンク有り"
>   Else
>     MsgBox "ハイパーリンク無し"
>     End If
>   End With
>End Sub
>
>というようにセルを調べたらどうでしょうか?
>
>HNを「ミルコ」すればよかったなあ・・・。

13575 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free