|
だるま さん:
>素早い回答ありがとうございます。
>月曜(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
|
|