Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

331 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【75804】図ツール→シャープネスの値の指定

Guppy - 14/7/8(火) 23:32 -


	引用なし

	パスワード

開発環境：Excel2010+Win7Pro
ピクチャを貼り付けた後、図ツール→図の修整→シャープネスという項目が
あると思いますがこの値をVBAにて編集するときはどのようにすればよいでしょうか？

Selection.ShapeRange.PictureFormatのパラメータでは無いかと思うんですが

・ツリー全体表示


	【75803】Re:ブックの共有時のハイパーリンク使用

独覚 - 14/7/8(火) 20:16 -


	引用なし

	パスワード

▼ゆーあさん：
>リンク先（セルＡ１）が空欄の場合に、
>コンボボタンを押すと同じRunエラーがでるんです。
>これを回避する方法はございますでしょうか？
If構文を使って処理を分岐します。

WK_Link = Cells(ACR,1).Value
の次の行に
　　If WK_Link = "" then
　　　　Exit Sub
　　End If
を入れてみてください。

もし、空白の場合にHYPERLINK関数も消したいのであれば
Exit Sub
の前に
Cells(ACR, 6).ClearContents
を入れてみてください。

・ツリー全体表示


	【75802】Re:ブックの共有時のハイパーリンク使用

ゆーあ - 14/7/8(火) 19:44 -


	引用なし

	パスワード

▼独覚さん

ありがとうございます！！！
凄いです！凄すぎです！！
ブックの共有しても、ハイパーリンクできました！！
本当にありがとうございます！心より感謝してます！！

ですが、あの、、
お礼の後で、大変申し訳ないのですが、、、
リンク先（セルＡ１）が空欄の場合に、
コンボボタンを押すと同じRunエラーがでるんです。
これを回避する方法はございますでしょうか？

おんぶに抱っこ状態で、申し訳御座いませんが、
何卒宜しくお願い致します。

・ツリー全体表示


	【75801】Re:ブックの共有時のハイパーリンク使用

独覚 - 14/7/8(火) 19:10 -


	引用なし

	パスワード

▼ゆーあさん：
すみません、少し勘違いをしていました。

WK_Link = ActiveCell.Value
を
WK_Link = Cells(ACR,1).Value
にして
ACR = ActiveCell.Row
の後ろに持って行ってみてください。

・ツリー全体表示


	【75800】Re:ブックの共有時のハイパーリンク使用

ゆーあ - 14/7/8(火) 17:32 -


	引用なし

	パスワード

▼独覚さん：

ファイルあることは確認できました。
またセルには、 "=HYPERLINK(RC[-5],RC[-5])"と記入されており、
クリックすると画像が表示されました。

WindowsXP+EXCEL2000だとダメなんでしょうか。。。

・ツリー全体表示


	【75799】Re:ブックの共有時のハイパーリンク使用

独覚 - 14/7/8(火) 17:19 -


	引用なし

	パスワード

▼ゆーあさん：

-2147024894のエラーは検索してみたところ、ファイルが見つからない、というエラーのようです。

セルに入力したパスにそのファイルはあるかどうか確認してみてください。

こちらではWindows7+EXCEL2010という環境で共有状態でファイルが開かれることを確認しています。

・ツリー全体表示


	【75798】Re:ブックの共有時のハイパーリンク使用

ゆーあ - 14/7/8(火) 17:07 -


	引用なし

	パスワード

▼独覚さん：

コードありがとうございます。
変数にとっておいて使うんですね。
初心者ですみません。

実際に試してみましたが、
やはり、Runのところで、

実行時エラー'-2147024894(80070002)':
'Run'メゾットは失敗しました:'IWshShell3'オブジェクト

と、エラーが出ます。。。

・ツリー全体表示


	【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
はセル更新時イベントで実行させる場合にイベントの連鎖を防ぐためのものなので
コマンドボタンで実行させる場合には必要ないものになります。

・ツリー全体表示


	【75796】Re:ブックの共有時のハイパーリンク使用

ゆーあ - 14/7/8(火) 16:34 -


	引用なし

	パスワード

▼独覚さん：

>HYPERLINK関数の設定とセルに書き込まれているファイルを開くのは全く別の作業>です。
了解しました。すみません。

>で、そのあとにリンク先の方法でセルに書き込まれているファイルを開くという?>ことです。

意味がわかりました。
やってみたのですが、Runメゾットで失敗しましたとなります。
Runの"　 "の中は、どう記述すれば良いのでしょうか？

Private Sub CommandButton6_Click()
Dim ACR As Long
Dim WSH

ACR = ActiveCell.Row
Cells(ACR, 6).Select
Application.EnableEvents = False
　ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-5],RC[-5])"
　　Application.EnableEvents = True

ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-5],RC[-5])"

　　 Set WSH = CreateObject("Wscript.Shell")
　　 WSH.Run "　　　　　", 3　←ここでエラー
　　 Set WSH = Nothing

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

・ツリー全体表示


	【75795】Re:ブックの共有時のハイパーリンク使用

独覚 - 14/7/8(火) 16:08 -


	引用なし

	パスワード

▼ゆーあさん：
HYPERLINK関数の設定とセルに書き込まれているファイルを開くのは全く別の作業です。

HYPERLINK関数の設定はゆーあさんのお書きになった
Dim ACR As Long

ACR = ActiveCell.Row
Cells(ACR, 1).Select

ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-5],RC[-5])"

で、そのあとにリンク先の方法でセルに書き込まれているファイルを開くということです。

・ツリー全体表示


	【75794】Re:ブックの共有時のハイパーリンク使用

ゆーあ - 14/7/8(火) 15:44 -


	引用なし

	パスワード

▼独覚さん：

コメントありがとうございます。
クリックは不可能なんですか。。。
了解致しました。ありがとうございます。

代替案ですが、
まったく分かりません。。。
ActiveCell.FormulaR1C1 = "=HYPERLINK(ｈｔｔｐ：／／& RC[-5],RC[-5])"
ってことでしょうか？
宜しくお願い致します。

・ツリー全体表示


	【75793】Re:ブックの共有時のハイパーリンク使用

独覚 - 14/7/8(火) 11:56 -


	引用なし

	パスワード

▼ゆーあさん：

HYPERLINK関数ではハイパーリンクを設定するだけになります。
そのハイパーリンクをマクロ(ＶＢＡ)でクリックするのはたぶん不可能かと。
(私がやり方を知らないだけかもしれませんが)

なのでその画像を開くのは下記に記載したリンク先(頭に「ｈｔｔｐ：／／」を付けてください)の
「拡張子関連づけでファイルを開く」を使ってはどうでしょうか？

www.moug.net/tech/exvba/0060072.html

・ツリー全体表示


	【75792】Re:ブックの共有時のハイパーリンク使用

ゆーあ - 14/7/8(火) 11:37 -


	引用なし

	パスワード

▼独覚さん：

度々申し訳ございません。

>最初のほうで「最終的に何をしたいのか」に対して「セルにハイパーリンクを設定したい」
>ということでしたが、どうも「セルにハイパーリンクを設定する。そのハイパーリンクを
>実行してハイパーリンク先を開く」を自動で行いたいということでしょうか？
>
>で、この場合、「ハイパーリンク設定する」「ハイパーリンク先を実行する」の両方が
>必要ですか？

行いこととしては、
仰るとおり、セルにハイパーリンクを設定し、
ハイパーリンクを実行してハイパーリンク先を開く
を自動で行いたいということです。
で、先ほどのコードで、「ハイパーリンクを設定する」までは出来ているのかな？
と個人的には思っておりまして、後はそのセルをクリックすることで、
「ハイパーリンク先を実行する」ことになるのではないかと考えております。
勘違いでしたら、すみません。

>また、ハイパーリンク先はどんなものが指定される可能性があるでしょうか？
>(フォルダ、画像ファイルやEXCELのブック等、実行ファイル、その他)

ハイパーリンク先で指定されるのは、
画像ファイルのみなります。

以前、γさん、カリーニンさんに画像ファイルのパス名（ハイパーリンク先）
をセルに表示させる方法はお教え頂き、セルＡ１にある状態です。
で、セルＦ６(Ａ６は間違いでした）に「ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-5],RC[-5])"」とハイパーリンクを設定し、そのＦ６をクリックして開きたいのですが、開けないということなんです。

・ツリー全体表示


	【75791】Re:ブックの共有時のハイパーリンク使用

独覚 - 14/7/8(火) 11:12 -


	引用なし

	パスワード

▼ゆーあさん：

最初のほうで「最終的に何をしたいのか」に対して「セルにハイパーリンクを設定したい」
ということでしたが、どうも「セルにハイパーリンクを設定する。そのハイパーリンクを
実行してハイパーリンク先を開く」を自動で行いたいということでしょうか？

で、この場合、「ハイパーリンク設定する」「ハイパーリンク先を実行する」の両方が
必要ですか？

また、ハイパーリンク先はどんなものが指定される可能性があるでしょうか？
(フォルダ、画像ファイルやEXCELのブック等、実行ファイル、その他)

・ツリー全体表示


	【75790】Re:ブックの共有時のハイパーリンク使用

ゆーあ - 14/7/8(火) 10:33 -


	引用なし

	パスワード

▼独覚さん：

コメントありがとうございます。
また、私の理解力が無さ過ぎてすみません。

少し整理させて下さい。
まず、セルＡ１にリンク先のアドレスがあります。
その状態で、フォーム上にコンボボタン1があり、
コンボボタン１を押すと、
　　１．セルＡ６に"=HYPERLINK(A1,A1)を入力
　　２. セルＡ６をクリック
　　３．リンク先表示
　（４．セルＡ１が空欄の場合、動作しない）
と言う動作を考えております。
そこで、先ほどからの助言を基に、下記のコードをなんとか作成したのですが、
セルＡ６に入力は出来ても、クリックして開けない感じです。

Private Sub CommandButton6_Click()
Dim ACR As Long

ACR = ActiveCell.Row
Cells(ACR, 1).Select

ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-5],RC[-5])"

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

で、
今しがたお教え頂いたコードと上手く組み合わせれないかと
思ったのですが上手くいきませんでした。

お手数お掛けして、誠に申し訳御座いませんが、
前述の説明を加味して、再度アドバイス頂ければ幸いでございます。
宜しくお願い致します。

・ツリー全体表示


	【75789】Re:ブックの共有時のハイパーリンク使用

独覚 - 14/7/8(火) 9:43 -


	引用なし

	パスワード

▼ゆーあさん：
>仮にセルA1に、「Ｃ:\画像」とリンク先が書かれていれ、
>セルA2に、セルA1のリンク先から、
>=HYPERLINK("Ｃ:\画像","Ｃ:\画像")
>と、当てはめてやるにはどうすれば良いでしょうか？
A2セルに
=HYPERLINK(A1,A1)
と入力します。

で、たとえばセルにリンク先を入力した場合に隣のセルにHYPERLINK関数を入力するマクロです。
(基本だけなので実際はもっと条件なんかを付けないとならないけれども)

Private Sub Worksheet_Change(ByVal Target As Range)
　　Application.EnableEvents = False
　　Target.Offset(0, 1).Formula = "=HYPERLINK(" & Target.Address & "," & Target.Address & ")"
　　Application.EnableEvents = True
End Sub

または

Private Sub Worksheet_Change(ByVal Target As Range)
　　Application.EnableEvents = False
　　Target.Offset(0, 1).Formula = "=HYPERLINK(""" & Target.Value & """,""" & Target.Value & """)"
　　Application.EnableEvents = True
End Sub

1番目はセル番地を設定、2番目はセルの内容を設定。

・ツリー全体表示


	【75788】Re:ブックの共有時のハイパーリンク使用

ゆーあ - 14/7/8(火) 9:19 -


	引用なし

	パスワード

γ さん

コメントありがとうございます。

>質問者さん
>Hyperlink関数とハイパーリンクの挿入はまったく別のものです。
>あなたのコードはHyperlink関数と関係がありません。
>
>セルに
>=Hyperlink("リンク先のファイルまたはURL","そのセルに表示したい文字列")
>を入れれば良いのです。

まったく別のものでしたか。
勘違いしてました。すみません。
では、
仮にセルA1に、「Ｃ:\画像」とリンク先が書かれていれ、
セルA2に、セルA1のリンク先から、
=HYPERLINK("Ｃ:\画像","Ｃ:\画像")
と、当てはめてやるにはどうすれば良いでしょうか？
マクロの記録でやってみましたが、セルA1を選択できませんでした。
宜しくお願い致します。

・ツリー全体表示


	【75787】Re:ブックの共有時のハイパーリンク使用

γ - 14/7/8(火) 8:33 -


	引用なし

	パスワード

横から失礼します。

独覚さん、Hyperlink関数は使えるんですね、知りませんでした。
ありがとうございます。

質問者さん
Hyperlink関数とハイパーリンクの挿入はまったく別のものです。
あなたのコードはHyperlink関数と関係がありません。

セルに
=Hyperlink("リンク先のファイルまたはURL","そのセルに表示したい文字列")
を入れれば良いのです。

・ツリー全体表示


	【75786】Re:ブックの共有時のハイパーリンク使用

ゆーあ - 14/7/8(火) 8:10 -


	引用なし

	パスワード

独覚さん

コメントありがとうございます。

>セレクトしたセルで、ということであればそのセルに
>=HYPERLINK("そのセルの内容","そのセルの内容")
>
>別のセルにしてもいいのであれば(セレクトしたセルがＡ1セルの場合)
>=HYPERLINK(A1,A1)
>で。

とのことですが、
下記コードに当てはめた場合、どのようになるでしょうか？
自分でもやってみたのですが、上手くいかないです。

Dim ACR As Long

ACR = ActiveCell.Row
Cells(ACR, 125).Select
　　
　　ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
　　Cells(ACR, 125).Value

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=Ture

・ツリー全体表示


	【75785】Re:ブックの共有時のハイパーリンク使用

独覚 - 14/7/7(月) 16:20 -


	引用なし

	パスワード

セレクトしたセルで、ということであればそのセルに
=HYPERLINK("そのセルの内容","そのセルの内容")

別のセルにしてもいいのであれば(セレクトしたセルがＡ1セルの場合)
=HYPERLINK(A1,A1)
で。

最終的にどんな時にどんなことをしたいかがわからないので基本だけですが。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

331 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free