Excel VBA質問箱 IV

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

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


31212 / 76738 ←次へ | 前へ→

【50778】changeイベントが働かないのですが
質問  Tsuyo  - 07/8/15(水) 11:56 -

引用なし
パスワード
    EXCELは2007を使用しています。
 コマンドボタンで作成者の名前を選択して、その名前の名刺ファイルを
呼び出して、印刷する見積シートに貼り付けるVBAを作っているます。
見積シートのセル(Q6)にchangeイベントを設定して、セル(Q6)には
コマンドボタンをリンクさせています。
 コマンドボタンで選択すると、セル(Q6)の名前は変わっているのですが
Changeイベントが実行されないので困っています。
 別の手として、コマンドボタンのChangeイベントでこの処理を実行しようとも
考えたのですが、なぜか同じファイルが重なって3枚も貼り付けられ、これも
理由が分かりません。

Private Sub Worksheet_Change(ByVal Target As Range)
'見積作成者を見積書に貼り付ける
'事前にメインシートのコマンドボックスから作成者名をで持ってきている
If Not Intersect(Target, Range("Q6")) Is Nothing Then
   Dim 保存場所 As String
   Dim 作成者名 As String
   Application.ScreenUpdating = False
  
   保存場所 = "D:\業務\見積書作成\見積書\"
   作成者名 = 保存場所 & "名刺写し\" & Sheets("見積シート").Range("Q6").Value & ".jpg"
  
   Worksheets("見積出").Select
   ActiveSheet.Shapes.AddPicture 作成者名, False, True, 0, 0, 180, 120
   Application.ScreenUpdating = True
  
End If
End Sub

上記は印刷する見積シートのモジュールですが、この他にもActiveX
コントロールをシートで利用しようとして何度も失敗しているます。
いつもChangeイベントがセルの値が変化したことを認識しないのかエラーも
出ません。

 この問題が解決しないと先に進むことが出来ませんので
解決方法が解る方がいるようでしたら、書き込みお願いします。
0 hits

【50778】changeイベントが働かないのですが Tsuyo 07/8/15(水) 11:56 質問
【50779】Re:changeイベントが働かないのですが ponpon 07/8/15(水) 13:29 発言
【50781】Re:changeイベントが働かないのですが Tsuyo 07/8/15(水) 14:16 質問
【50783】Re:changeイベントが働かないのですが ponpon 07/8/15(水) 14:55 発言
【50785】Re:changeイベントが働かないのですが Tsuyo 07/8/15(水) 16:00 質問
【50786】Re:changeイベントが働かないのですが Tsuyo 07/8/15(水) 16:34 質問
【50788】Re:changeイベントが働かないのですが ponpon 07/8/15(水) 17:08 発言
【50796】Re:changeイベントが働かないのですが Tsuyo 07/8/16(木) 12:25 お礼
【50848】不思議 Tsuyo 07/8/18(土) 11:19 発言
【50787】Re:changeイベントが働かないのですが ponpon 07/8/15(水) 16:37 発言

31212 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free