|
> 気になるのは、このブックを保存終了し、また開いたときに、このChangeイベントが動いてしまうということです。 特にブックを開いたときのイベントは設定していないはずなのですが。
上記の現象だけでなく、セル(Q6)のみでなく、この見積シートのどこを変更してもchangeイベントが動いてしまいます。
もう一度今作成したモジュールを載せさせてもらいます。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Q6")) Is Nothing Then
Dim 保存場所 As String
Dim 作成者名 As String
Application.EnableEvents = False
Application.ScreenUpdating = False
保存場所 = "D:\2.開発中物件\見積書作成\見積システム\"
作成者名 = 保存場所 & "名刺写し\" & Sheets("見積出").Range("Q6").Value & ".jpg"
Worksheets("見積出").Select
On Error Resume Next
ActiveSheet.Shapes("作成者").Delete
'
ActiveSheet.Shapes.AddPicture 作成者名, False, True, 387, 105, 170, 140
ActiveSheet.Pictures.Select
Selection.Name = "作成者"
Worksheets("メイン").Select
If Target.Address(0, 0) = "Q6" Then
MsgBox Target.Value
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub
宜しくお願いします。
|
|