Excel VBA質問箱 IV

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

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


31199 / 76732 ←次へ | 前へ→

【50788】Re:changeイベントが働かないのですが
発言  ponpon  - 07/8/15(水) 17:08 -

引用なし
パスワード
   selectがよくないのではとselectしない方法で
書き直してみました。
私の方では、これで画像が1枚貼り付けられましたが・・
試してみてください。

Private Sub ComboBox1_Change()
  Range("Q6").Value = ComboBox1.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim 保存場所 As String
   Dim 作成者名 As String

If Not Intersect(Target, Range("Q6")) Is Nothing Then
 
   Application.EnableEvents = False
   Application.ScreenUpdating = False
 
   保存場所 = "D:\2.開発中物件\見積書作成\見積システム\"
   作成者名 = 保存場所 & "名刺写し\" & Sheets("見積出").Range("Q6").Value & ".jpg"
 
   With Worksheets("見積出")
     On Error Resume Next
     .Shapes("作成者").Delete
     On Error GoTo 0
     .Shapes.AddPicture(作成者名, False, True, 387, 105, 170, 140).Name = "作成者"
   End With
'   If Target.Address(0, 0) = "Q6" Then
'     MsgBox Target.Value
'   End If


   Application.ScreenUpdating = True
   Application.EnableEvents = True
 
End If

End Sub

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 発言

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