|
「セルに、表品番号を入力すると、同じ番号のファイルが開く」という設定で、
下記のようにVBAを作成しましたが、今のままだと、違う列のセルに文字を入力し、「ENTER」を押す度に、ファイルが何度も画面に現れてきてしまいます。
これを、一度きりしか表示されないようにするには、どうしたらよいのでしょうか?
Private Sub Worksheet_Change(ByVal C As Range)
Dim strPartsNumber As String
Dim strfileName As String
Dim LR As String
Dim LRfileName As String
strPartsNumber = Worksheets("DATA").Range("C65536").End(xlUp).Offset(0, 4)
LR = Worksheets("DATA").Range("c65536").End(xlUp).Offset(0, 6)
strfileName = "Y:\検査\詳細" & "\" & strPartsNumber & ".pdf"
LRfileName = "Y:\検査\詳細" & "\" & LR & ".pdf"
If Dir(strfileName) <> "" Then
Call OpenFile(strfileName)
Else
Call OpenFile(LRfileName)
End If
|
|