EXCEL2000VBAでハイパーリンクの有無を調べたい。

解決済

質問者：popokun
質問日時：2003/12/03 17:02
回答数：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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「text エクセル」に関するQ&A：【エクセル】複数のTextBoxから一番古い日付を返すには？

さらに表示

「text Excel」に関するQ&A： EXCEL VBAユーザフォームでTextとComboBoxの値をOKボタンで該当セルに書込みたい

「ハイパーリンク設定」に関するQ&A：ハイパーリンクの自動設定マクロ

「CM エクセル」に関するQ&A：ワードかエクセルで表の大きさをcmでしていしたい。

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： GuruGuru22
回答日時：2003/12/03 17:08

selection.hyperlinks.count

でリンクの数を取得すればよいかと。

- 2
- 件

通報する

この回答へのお礼

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

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

通報する

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

このQ&Aに関連する人気のQ&A

「CM エクセル」に関するQ&A： Excelの行列幅をcmで表示したい

さらに表示

「text Excel」に関するQ&A： EXCELの文字列操作で文字数不足の分をスペースで補う方法

「ハイパーリンク設定」に関するQ&A：ハイパーリンクがPDFにすると反映しません

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

質問する（無料）

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

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルでハイパーリンクの内容を取得する方法

エクセルで、ハイパーリンクが貼られているセルから、そのリンク先に指定されているアドレスデータを取り出し、そのアドレスを違うセルに表示させることはできるでしょうか。

なにかよい方法があればアドバイスお願いします。

Aベストアンサー

VBA(マクロ)の話だが

http://www.officetanaka.net/excel/vba/tips/tips42.htm#Hyperlink1

アドレス取得の場合
Range("B1").value= Range("A1").Hyperlinks(1).Address

とか

他の回答も見る

QExcel VBAでリンク切れをチェックしたい。

Excel VBAでリンク切れをチェックしたい。
図のように、リンク一覧からリンクを調べ、問題なければ「○」を表示し、リンク切れの場合は「×」を表示したいんですが、どんなプログラムを組めばよいですか？
よろしくお願いします。

Aベストアンサー

誰もレスを付けないと思いましたので、こちらでも作りましたのでアップしておきます。
#1の方とは、少し意味が違う部分があるかと思います。

以前、ここの掲示板で出したことがあると思うのですが、もう見つかりません。

一応、今回は、自分用で作ってみました。プロバイダからクレームが付きそうな気がしましたが、実行してしまいました。常識の範囲でお使いください。あまり速くはありませんが、ハングはしませんでした。

リンク先のチェックは、838件を一気にチェックしてしまいましたが、これほどはやらないほうが良いかもしれません。100件やって休むとかしたほうが良いような気がします。

ユーザー定義関数の戻り値は、いくつかあります。ステータス200は、◯ですが、その他は、種類がいろいろありますので、×にせずに数値や文字にしました。基本的に、ステータスコードの200は、全部返しました。

数字については、ステータス・コード表をごらんになってください。
http://www.asahi-net.or.jp/~ax2s-kmtn/ref/status.html

例：
404 サイトがなくなっています。
403　アクセス権限がないということですから、ログインしなければ分からないかもしれません。
他にも、いくつか種類が出てきます。
n.a と出るのは、サーバーが受け付けないものだと思います。

アンチウィルスソフトで、禁止区域に入った時は、メッセージが出てきました。しかし、そのままで続いていきます。
このマクロ使用中でも、スクロールは可能です。

場所は標準モジュールです。

''//--
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private objHTTP As Object
Sub Main_URLChecking()
　　Dim c As Range
　　Dim i As Long
　　''Microsoft WinHTTP Service, version 5.1 '参照設定する場合
　　''Set objHTTP=New winHttp.WinHttpRequest '
　　For Each c In Range("B2", Cells(Rows.Count, 2).End(xlUp))
　　　　If LCase(c.Value) Like "http://*" Then
　　　　　　c.Offset(, 1).Value = CheckURL(c.Value)
　　　　　　Sleep 200　　'Wait を掛ける
　　　　　　DoEvents　　　'ESCで離脱できるようにする。
　　　　End If
　　Next
　　 Set objHTTP = Nothing
End Sub
Function CheckURL(ByVal strURL As String) As Variant
　　Dim num As Variant
　　On Error GoTo ErrHandler
　　If objHTTP Is Nothing Then
　　　　 Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
　　End If
　　objHTTP.Open "GET", strURL, False
　　objHTTP.Send
　　If objHTTP.Status = 200 Then
　　　　CheckURL = "◯"
　　Else
　　　　CheckURL = objHTTP.Status
　　End If
　　Exit Function
ErrHandler:
　　If Err() <> 0 Then
　　　　CheckURL = "n.a"
　　End If
End Function

''//--

なお、今度は、これを、ハイパーリンクのリストに反映しないといけないのかな？

他の回答も見る

QEXCELのハイパーリンクのセルを探す方法

いつもお世話になります。コピーしてきたEXCELファイルを自分用に編集したのですが、どうやら前にハイパーリンクが設定されたらしく、ファイルを開く度にリンクについての質問をされます。ハイパーリンクを消したいのですが、シート数が19ページもあり、どのシートのどのセルに設定されているのかがわかりません。
全ページを"HYPER"で検索したのですが、ハイパーリンクの設定されているセルはありませんでした。ハイパーリンクの設定されているセルを探す方法をご存知の方がいらっしゃいましたら、アドバイス宜しくお願い致します。

Aベストアンサー

[編集]-[検索]-[検索]で、[検索する文字列]に「[」を入力、
[検索する場所]で「ブック」を、[検索対象]で「数式」を
それぞれ選択して、[すべて検索]。

(*) [検索する場所][検索対象]が表示されていない場合、
　　[オプション]をクリックしてください。

下部に表示されるボックスの[数式]列を確認してください。

他の回答も見る

QEXCEL VBA　で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

＞現在開いているブックのファイル名
　ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

　しかし、
＞VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

他の回答も見る

QエクセルでハイパーリンクのＵＲＬだけを文字抽出したい

ホームページからコピーし、エクセルにリンク文字をペーストすると、青文字（文字にハイパーリンクがかかった状態）が貼りつきます。その張り付いた文字の、リンク先ＵＲＬを文字としてほしい（http○○・・）のですが、できますか？
青文字を右クリックしてハイパーリンクの編集からＵＲＬは見られるのですが、たくさんのリンクリストからＵＲＬだけを抽出するのが大変なので、よい方法がありましたらお願いします。

Aベストアンサー

No3 です。
サブアドレスの存在を忘れていました。
訂正です。

Public Sub GetURL()
　　Dim h As Hyperlink
　　Dim a As String
　　Dim s As String
　　For Each h In ActiveSheet.Hyperlinks
　　　　a = h.Address
　　　　s = h.SubAddress
　　　　If s <> "" Then
　　　　　　a = a & "#" & s
　　　　End If
　　　　h.Range.Offset(0, 1) = a
　　Next
End Sub

他の回答も見る

QEXCELファイルのカレントフォルダを取得するには？

EXCELファイルのカレントフォルダを取得するには？

C:\経理\予算.xls

D:\2005年度\予算.xls

EXCEL97ファイルがあります。

VBAで
　　カレントフォルダ名
(C:\経理\,D:\2005年度\)
を取得する事は可能でしょうか？

CURDIRでは上手い方法が見つかりませんでした。

Aベストアンサー

こんばんは。
Excel97 でも、同じですね。以下で試してみてください。

Sub test()
'このブックのパス
a = ThisWorkbook.Path
'アクティブブックのパス
b = ActiveWorkbook.Path
'Excelで設定されたデフォルトパス
c = Application.DefaultFilePath
'カレントディレクトリ
d = CurDir
MsgBox "このブックのパス　　　: " & a & Chr(13) & _
　　 "アクティブブックのパス: " & b & Chr(13) & _
　　 "デフォルトパス　　　　: " & c & Chr(13) & _
　　 "カレントディレクトリ　: " & d & Chr(13)
End Sub

他の回答も見る

Qエクセル　マクロで指定フォルダを開く

エクセルにて
指定フォルダを開く、マクロがあれば教えて頂けないでしょうか。
よろしくお願いいたします。

Aベストアンサー

こんにちは。

こういうものですか？
開くフォルダを変えたいときは targ に与えるパスを変更します。

Sub OpenFolders()
Dim targ As String
targ = "C:\"
Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
End Sub

他の回答も見る

QEXCEL　VBAで計算値を四捨五入、切り上げ、切捨てする方法

ネットで探してみたのですが、計算結果を四捨五入して特定のセルを
返すにはどうしたらいいのでしょうか？

Sub hokangosa()

Dim ZPS As Double
Dim ZPOS As Double
Dim DMN As Double
MsgBox (" >>> 補間誤差自動計算　<<< ")
MsgBox (" >>> 初期値入力します　<<< ")
ZPS = InputBox(">>> ステップを入力してください<<<")
ZPOS = Sheet1.Cells(22, 4).Value
DMN = ZPOS / ZPS
Sheet1.Cells(23, 6).Value = DMN
End Sub

ここでDMNの値を四捨五入したいです。

またこれとは別に切上げ、切捨ても教えていただけるとありがたいです。

Aベストアンサー

DMN = Application.WorksheetFunction.Round(ZPOS / ZPS, 0)
で、四捨五入
DMN = Application.RoundDown(ZPOS / ZPS, 0)
で切り捨て
DMN = Application.RoundUp(ZPOS / ZPS, 0)
で切り上げです。

引数で、対象桁を変更できます。

他の回答も見る

Qエクセル　VBA　ユーザーフォームを閉じる

ユーザーフォームを開く時は
UserForm1.Showですが
閉じる時は？
UserForm1.Close
だとコンパイルエラーになります。
End
にするしかないですか？

Aベストアンサー

Unload Me とか　Unload UserForm1 でユーザーフォームを閉じることができます。

他の回答も見る

QExcel ハイパーリンクのURLを別のセルに表示したい。

Excel ハイパーリンクのURLを別のセルに表示したい。

例えば、A1セルに「あいうえお」と入力され、かつハイパーリンクで、
「http://www.aiueo.com」というURLがリンクされているとします。
この、「http://www.aiueo.com」を B1セルに表示させたいです。

なにか良い関数やフリーソフト等はありませんでしょうか？？
（ACCESSの場合は、簡単なクエリーのみ利用できるレベルです。）

よろしくお願いします。

Aベストアンサー

こちらで。
http://oshiete.goo.ne.jp/qa/2356920.html

他の回答も見る

ページトップ