色彩検定1級を取得する魅力を紹介♪

おはつです。どなたか、知ってらっしゃる方がいらしゃいましたら、よろしくお願い致します。
[環境]
Windows2000
EXCEL2000

[質問]
・下記のソースで、ハイパーリンクが設定されている項目
をcmdボタンイベントから設定を外しました。しかし、ハイ
パーリンクが元データに設定されていない場合、Errが返り
ます。
selectで指定されたセルのハイパーリンク有無を調べる
方法を教えて頂けないでしょうか?

If Not IsNull(Trim(Range("E105").Text)) Or Trim(Range("E105").Text) <> "" Then
sURL1 = Trim(Range("E105").Text)
Range("E105:AG108").Select
Selection.Hyperlinks(1).Delete
End If

gooドクター

A 回答 (1件)

selection.hyperlinks.count


でリンクの数を取得すればよいかと。
    • good
    • 2
この回答へのお礼

あらっ。。。
あっさり解決しました。(^^;


EXCELのVBAに慣れていなくCOUNTも↓
selection.hyperlinks(1).count
なんてアホ!な事を永遠と試したりしてErrでまくって
ました。 ホント助かりました。
またお願いします。。。

お礼日時:2003/12/03 17:57

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング