Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6537 / 76734 ←次へ　｜　前へ→
【75797】Re:ブックの共有時のハイパーリンク使用
回答  独覚  - 14/7/8(火) 16:48 -
引用なし
パスワード
   ▼ゆーあ さん：
アクティブセルの内容を変数にとっておいてそれを使います。

Private Sub CommandButton6_Click()
　　Dim ACR　　　　As Long
　　Dim WK_Link　　As String
　　Dim WSH

　　WK_Link = ActiveCell.Value
　　ACR = ActiveCell.Row
　　Cells(ACR, 6).Select
　　ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-5],RC[-5])"
　　Set WSH = CreateObject("Wscript.Shell")
　　WSH.Run WK_Link, 3
　　Set WSH = Nothing

　　Cells(ACR, 2).Select
　　Worksheets("Sheet1").Select
End Sub

ただし、リンク先にあったようにリンク先のパス名にスペースが含まれる可能性がある場合、
WSH.Run WK_Link, 3
を
WSH.Run """" & WK_Link & """", 3
としておいたほうが安全です。

また、
Application.EnableEvents
はセル更新時イベントで実行させる場合にイベントの連鎖を防ぐためのものなので
コマンドボタンで実行させる場合には必要ないものになります。
24 hits
▼ 【75768】ブックの共有時のハイパーリンク使用 ゆーあ 14/7/4(金) 13:51 質問
【75770】Re:ブックの共有時のハイパーリンク使用 γ 14/7/4(金) 21:37 回答
【75781】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/7(月) 8:08 お礼
【75782】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/7(月) 13:06 回答
【75784】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/7(月) 15:39 質問
【75785】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/7(月) 16:20 回答
【75786】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/8(火) 8:10 質問
【75787】Re:ブックの共有時のハイパーリンク使用 γ 14/7/8(火) 8:33 発言
【75788】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/8(火) 9:19 質問
【75789】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/8(火) 9:43 回答
【75790】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/8(火) 10:33 質問
【75791】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/8(火) 11:12 質問
【75792】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/8(火) 11:37 発言
【75793】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/8(火) 11:56 発言
【75794】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/8(火) 15:44 発言
【75795】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/8(火) 16:08 発言
【75796】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/8(火) 16:34 発言
【75797】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/8(火) 16:48 回答≪
【75798】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/8(火) 17:07 発言
【75799】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/8(火) 17:19 発言
【75800】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/8(火) 17:32 発言
【75801】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/8(火) 19:10 発言
【75802】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/8(火) 19:44 発言
【75803】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/8(火) 20:16 発言
【75805】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/9(水) 10:45 お礼
【75806】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/9(水) 10:58 発言
【75807】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/9(水) 13:12 発言
【75808】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/9(水) 13:54 発言
【75809】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/9(水) 14:35 発言
【75810】Re:ブックの共有時のハイパーリンク使用 独覚 14/7/9(水) 15:17 発言
【75811】Re:ブックの共有時のハイパーリンク使用 ゆーあ 14/7/9(水) 15:35 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6537 / 76734 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free