Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6597 / 76807 ←次へ　｜　前へ→
【75810】Re:ブックの共有時のハイパーリンク使用
発言  独覚  - 14/7/9(水) 15:17 -
引用なし
パスワード
   ▼ゆーあ さん：

もしかして、私のほうではプログラムが
Private Sub CommandButton6_Click()
　　Dim ACR　　　　As Long
　　Dim WK_Link　　As String
　　Dim WSH

　　ACR = ActiveCell.Row
　　
　　WK_Link = Cells(ACR, 1).Value
　　If WK_Link = "" Then
　　　　Cells(ACR, 6).ClearContents
　　　　Exit Sub
　　End If
　　
　　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
だと考えての発言だったんだけれども

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

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

　　Cells(ACR, 2).Select
　　Worksheets("Sheet1").Select
End Sub
のようになってるのかな？
これだったら設定後のA6セルの値を見るんで大丈夫だと思うけども。
2 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 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6597 / 76807 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free