Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13577 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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

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

ＨＮを「ミルコ」すればよかったなあ・・・。
【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
>
>というようにセルを調べたらどうでしょうか？
>
>ＨＮを「ミルコ」すればよかったなあ・・・。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13577 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free