Excel VBA質問箱 IV

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

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


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

49946 / 76737

←次へ　｜　前へ→


	【31688】追加質問：セルとファイルのリンク

三浦照信

- 05/11/28(月) 15:13 -


	引用なし

	パスワード

だるまさん：
>素早い回答ありがとうございます。
>月曜（11/28）朝からマクロを作成し、実行したところ、うまくいきました。
>毎度のことながら、即座に、的確な回答があることに感心するとともに感謝しています。
>今後ともよろしく、お願いします。

追加の質問です。
コメントいただいた内容をアレンジして、下記のようなマクロを作成しました。

コラム「B」にあるセルの文字列のファイルにリンクさせています。
セルが「空白」の場合、マクロを終了するように、Function ISBLANK()を利用しましたが、うまく動作しません。

どのように修正すればよいか、ご教示をお願いします。

Sub MetacapUS()
　　n = 200
　　For i = 1 To n
　　C$ = ""
　　A$ = Range("B2").Cells(i, 1).Value
　　Function ISBLANK()
　　A$ = ISBLANK$(A$)
　　End Function
　　　If A$ = True Then End Sub
　　　Else
　　　　 C$ = ThisWorkbook.Path & "\" & "0" & A$ & ".pdf"
　　　　 Range("B2").Cells(i, 1).Select
　　　　 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=C$
　　Next
End Sub

0 hits

▼

【31569】セルとファイルのリンク 三浦照信 05/11/25(金) 17:31