Excel VBA質問箱 IV

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

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


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

35353 / 76807

←次へ　｜　前へ→


	【46655】Re:ハイパーリンクについて

ハチ - 07/2/9(金) 15:22 -


	引用なし

	パスワード

▼コジコジさん：
>
>ハチさん返信有難う御座います。
>以下のように設定するとセルに代入されるのですが、どうしても頭の"="の前に"'"が付いてしまい"'="のように代入され文字列で認識されてしまいます。
>"'"を削除すれば関数として認識されます。何か方法はあるでしょうか。
>　　　　.Fields!文書リンク = "=HYPERLINK(" & """"\\Server1\test\ABC.xl """" & "," & """abc.xls"")"

ＡＤＯから行う方法は、すいませんがわかりません。
.Fields!文書リンク = "=HYPERLINK(" & """"\・・・の直後に
Debug.Print Fields("文書リンク").Value
として入力された値をイミディエイトで確認してみてください。
たぶん’は付いてないんじゃないかなぁーと思います。（またまた試してません）

testDB.xls側に実装して良いのなら
ThisWorkbookモジュールに
Private Sub Workbook_Open()
　　Dim i As Integer
　　Dim R As Range
　　
　　i = 2　 'リンクの列番号を指定　
　　With Worksheets("テスト")
　　　　For Each R In .Range(.Cells(2, i), .Cells(.Rows.Count, i).End(xlUp))
　　　　　　If Not R.HasFormula Then R.Formula = R.Value
　　　　Next R
　　End With
End Sub

0 hits

▼

【46639】ハイパーリンクについて コジコジ 07/2/8(木) 18:53