[[20040423111835]]　『結合セルの値をハイパーリンクしたい』（yu_mama）　ページの最後に飛ぶ

『結合セルの値をハイパーリンクしたい』（yu_mama）

 下記のマクロでアクティブセルの値をハイパーリンクさせています。この場合、単独のセル
に値が入っている問題がないのですが、結合したセルに値が入っていた場合、
その値にハイパーリンクがうまくつきません。回避方法がありましたらご教授願います。

 ＜ハイパーリンク付けマクロ＞
 addr = ActiveWindow.RangeSelection.Address
 URLOrig1 = "http://ABC/sanple/932/goimgcnv.pl?""User""&""%90%7D%94%D4%82%C5%82%CC%8C%9F%8D%F5""&"
 URLOrig2 = "&""%95%5C%8E%86""&""""&""""&""""&""""&"""""
 For Each c In ActiveSheet.Range(addr)
   c.Select
   If Len(ActiveCell.Value) <> 0 Then
      URL = URLOrig1 & Chr(34) & c.Value & Chr(34) & URLOrig2
      ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=URL
      c.Hyperlinks(1).ScreenTip = c.Value & "を表示します"
   End If
 Next c

 こんな感じでしょうか？
 （ramrun）

 For Each c In ActiveSheet.Range(addr)
   If Len(c.Value) > 0 Then
      URL = URLOrig1 & Chr(34) & c.Value & Chr(34) & URLOrig2
      c.Hyperlinks.Add Anchor:=c, Address:=URL
      c.Hyperlinks(1).ScreenTip = c.Value & "を表示します"
   End If
 Next c

 ありがとうございます。早速試してみました。ばっちりうまくいきました。(yu_mama)

コメント返信：

[ 一覧(最新更新順) ]

[[20040423111835]] 『結合セルの値をハイパーリンクしたい』（yu_mama） ページの最後に飛ぶ

[[20040423111835]]　『結合セルの値をハイパーリンクしたい』（yu_mama）　ページの最後に飛ぶ