Excel VBA質問箱 IV

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

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


49942 / 76733 ←次へ | 前へ→

【31688】追加質問:セルとファイルのリンク
質問  三浦照信 E-MAIL  - 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
2 hits

【31569】セルとファイルのリンク 三浦照信 05/11/25(金) 17:31 質問
【31577】Re:セルとファイルのリンク だるま 05/11/25(金) 19:31 回答
【31676】Re:セルとファイルのリンク 三浦照信 05/11/28(月) 11:00 お礼
【31688】追加質問:セルとファイルのリンク 三浦照信 05/11/28(月) 15:13 質問

49942 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free