- Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
823 ：デフォルトの名無しさん[sage]：2015/03/25(水) 21:20:36.49 ID:kqCenuXt - ８１３です。皆様ヒントやコード等本当にありがとうございます。仕事の関係で
返事が遅くなり申し訳ございません。アドバイスを元に、
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 20).Value <> "" Then
s = Cells(i, 20).Value
s = ThisWorkbook.path & "\" & s 'フルパスを探す
'Range("s3").Value = s
Cells(i, 19).Value = s
Else
Cells(i, 19).Value = ""
End If
Next i
で書いてみたらなんとかいけました。同じ階層内、同じフォルダ内に
エクセルファイルと、画像ファイルを存在させるつもりなので、これで
いいのかなと思っていますがどうでしょうか。
|