|
はじめまして。
さっそく質問させてください。
現在のコードは下記の通りになります。
まずセルの内容を確認して、それがビットマップでしたら、それがCドライブにあるか確認を行う。
あれば「○」、なければ「×」が表示されるという簡単なコードです。
そこで現在はD63のセルしか見てくれないのですが、これをD90まで繰り返し行いたいです。
どのようにしたらよいのでしょうか?
次に、「○」が表示された場合は見つけたファイルが表示されるように○にハイパーリンクをつけたいと思うのですがイマイチわかりません。
わかる方がいらっしゃいましたら教えていただきたいです。
よろしくお願いします。
できればソースコードに直接直しを入れてほしいです。
Sub ファイル検索()
Dim WORK As String
Dim WORK1 As Integer
WORK1 = 62
WORK1 = WORK1 + 1
WORK = Range("D" & CStr(WORK1)).Value 'セルの内容を「WORK」に代入
shWork = Right(WORK, 4) 'WORKの左から4つの文字列取得し、「shWORK」に代入
If (shWork = ".bmp") Then
With Application.FileSearch 'ファイルサーチ
.LookIn = "C:\" '検索対象フォルダの設定
If (.Filename = WORK) Then '検索ファイル名の設定
Range("E" & CStr(WORK1)).Select
ActiveCell.FormulaR1C1 = "○"
Else
Range("E" & CStr(WORK1)).Select
ActiveCell.FormulaR1C1 = "×"
'Else
End If
End With
End If
MsgBox "検索が完了しました"
End Sub
|
|