エクセルでハイパーリンクを挿入したのですが、URLが長すぎて作動しません。解決方法はありますか?

回答の条件
  • 1人2回まで
  • 登録:2007/03/13 19:17:50
  • 終了:2007/03/16 13:15:25

回答(3件)

id:garam16 No.1

garam16回答回数12ベストアンサー獲得回数02007/03/13 19:32:54

ポイント27pt

URLを短縮するサービスを使ってみたら如何でしょうか。

http://www.qrl.jp/

id:nolimit808

ありがとうございます。

やっぱりひと手間かかってしまうんですねー…。

簡単にリンクできる方法などは存在しないのでしょうか…。

2007/03/16 13:12:22
id:k_y No.2

k_y回答回数122ベストアンサー獲得回数72007/03/14 01:18:59

ポイント25pt

自分のサイトにリダイレクトを置く。

http://web.xii.jp/iec/note/redirect

id:nolimit808

操作の仕方がわからないのですが、このタグを打ち込めばよいのでしょうか?

2007/03/14 15:08:30
id:rararayujinkun No.3

rararayujinkun回答回数10ベストアンサー獲得回数12007/03/14 16:41:41

ポイント28pt

ハイパーリンクのURLは248文字までしか設定できないようですね。

解決策としては、マクロを使って、リンクを実行させるしか方法はないと思います。

下記の手順をお試し下さい。

1.ハイパーリンクのジャンプ先を該当セル番地に設定する。

具体的には、セルの値はリンク先としたまま、セルの右クリックメニューからハイパーリンクの編集を開き、リンク先を「このドキュメント内(A)」にしたあと、「セル参照を入力して下さい(E)のところに、A1 と手打ちします。この「A1」は、ハイパーリンクを設定したいセル自身のアドレスにして下さい。

つまり、編集中のセルがB2なら、B2 と入力して下さい。

2.「ALT+F11」キーを押下して、「Micorosoft Visual Basic」エディターを開きます。

3.「CTRL+R」を押下して、プロジェクトエクスプローラーを開き(はじめから表示されているかもしれません)、ツリー構造をたどって、「VBAProject-Microsoft Excel Objects-Thisworkbook」をダブルクリックします。

4.マクロコードの入力欄(上の方に「(General)」と書かれた一番大きな窓です。)に、下記のコードを貼り付けます。

Private Declare Function ShellExecute Lib _

"shell32.dll" Alias "ShellExecuteA" ( _

ByVal hwnd As Long, _

ByVal lpOperation As String, _

ByVal lpFile As String, _

ByVal lpParameters As String, _

ByVal lpDirectory As String, _

ByVal nShowCmd As Long) _

As Long

Private Sub Workbook_SheetFollowHyperlink( _

ByVal Sh As Object, _

ByVal Target As Hyperlink _

)

If UCase(Replace(Target.SubAddress, "$", "")) = _

UCase(Replace(Target.Range.Address, "$", "")) Then

Call ShellExecute(0, "", Target.Range.Value, "", "", 0)

End If

End Sub

これで、32767文字(セルに入力できる文字数の上限)未満のURLに対応できると思います。

id:nolimit808

ありがとうございます。試してみます!

2007/03/16 13:13:03
  • id:llusall
    何かエラーメッセージのようなものは出ますか?
  • id:nolimit808
    メッセージは出ません。
    「ハイパーリンクとして貼り付け」をするとURLの色が青くなるのですが、クリックしても何の反応も無いです。
  • id:llusall
    ちょっとわかりませんでした。
    以下、参考までに。

    マイクロソフト技術情報より

    Excel でのハイパーリンクを含むセルを並べ替えた後、ハイパーリンクが削除、または無効です。
    http://support.microsoft.com/kb/214328/ja
    現象
    ハイパーリンクを含むワークシートのセル範囲を並べ替える場合、・・・
    リンクをクリックするのに何も起こりません。

    その他
    http://support.microsoft.com/search/default.aspx?catalog=LCID%3d1041&spid=2512&query=%u30cf%u30a4%u30d1%u30fc%u30ea%u30f3%u30af&adv=&ast=1%2c2%2c3%2c&mode=a&cat=False&kt=ALL&title=false&mdt=&pwt=False&res=20&1041mt=1&1041comm=1&range=1-20
  • id:nolimit808
    調べていただきありがとうございます!
    内容を確認し、参考にしたいと思います。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません