Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28890 / 76738

←次へ　｜　前へ→


	【53138】ファイル表示の方法

KAO

- 07/12/17(月) 9:21 -


	引用なし

	パスワード

「セルに、表品番号を入力すると、同じ番号のファイルが開く」という設定で、
下記のように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

0 hits

▼

【53138】ファイル表示の方法 KAO 07/12/17(月) 9:21

≪