人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: nolimit808
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:エクセル ハイパーリンク
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● garam16
●27ポイント

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

http://www.qrl.jp/

◎質問者からの返答

ありがとうございます。

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

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


2 ● k_y
●25ポイント

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

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

◎質問者からの返答

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


3 ● rararayujinkun
●28ポイント

ハイパーリンクの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に対応できると思います。

◎質問者からの返答

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ