Results of 1 - 1 of about 6617 for リンク (0.004 sec.)
- [[20050927163251]]
- #score: 3108
- @digest: 7a8512cb668349e6947b8e1aba849482
- @id: 17135
- @mdate: 2005-09-27T23:45:05Z
- @size: 802
- @type: text/plain
- #keywords: ク切 (8939), hlinkdel (7748), vbnormal (1999), 得方 (1374), adr (1369), リン (1133), ンク (1113), hyperlinks (1078), イパ (1015), 数部 (1000), 題解 (993), 切れ (961), ーリ (883), 行程 (798), ク先 (765), ハイ (726), パー (646), ル以 (586), 要望 (575), でリ (446), の取 (333), dir (329), 取得 (306), 削除 (226), ファ (217), address (210), 字列 (196), を削 (194), activesheet (172), ァイ (168), 修正 (141), イル (141)
- 『ハイパーリンクのリンク切れの取得』（BB）
A列にハイパーリンクを設定した文字列が500行程あります。 マクロでリンク切れしている文字列を削除したいのですが、 リンク切れしてるか、していないかの取得方法がわかりません。 どなたか教えて下さい。 ---- 下記のような方法でリンク切れしているリンクを削除できます。 Dirを使ってリンク先のファイルがあるかどうか確認しています。 リンク先がファイル以外のものであれば、Dir関数部分を修正する必要があります。 Sub hlinkDel() Dim h, adr As String For Each h In ActiveSheet.Hyperlinks adr = h.Address If Len(Dir(adr, vbNormal)) = 0 Then h.Delete End If Next End Sub ご要望と違っていたらすみません。 (yc) ---- なるほど- Dirを使用するのですね! 問題解決しそうです。 ありがとうございました。 (BB)... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200509/20050927163251.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97049 documents and 608241 words.
訪問者：