Excel VBA質問箱 IV

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

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


4581 / 13644 ツリー ←次へ | 前へ→

【55829】特定のセルが更新されると動くマクロ2 あり 08/5/20(火) 18:33 質問[未読]
【55831】Re:特定のセルが更新されると動くマクロ2 kanabun 08/5/20(火) 19:12 発言[未読]
【55832】Re:特定のセルが更新されると動くマクロ2 あり 08/5/20(火) 19:18 お礼[未読]

【55829】特定のセルが更新されると動くマクロ2
質問  あり  - 08/5/20(火) 18:33 -

引用なし
パスワード
   教えてください。
J4のセルにA・B・Cの入力規則が入っており、
そのセルの更新した内容により処理を変えたいのですが、
以下のようにすると認識してくれず、必ずelseの処理が返ってきます。
どうしたらセルの内容を認識してくれるのでしょうか?
どなたかわかる方教えてください。


Private Sub Worksheet_Change(ByVal Target As Range)
'J4セル以外が変更されたら何もしない
If Intersect(Target, Range("J4")) Is Nothing Then Exit Sub
Select Case Target.Address(4, 9)
 Case Is = "A"
  MsgBox "更新1"
 Case Is = "B"
  MsgBox "更新2"
 Case Is = "C"
  MsgBox "更新3"
 Case Else
  MsgBox "更新4"
End Select
End Sub

【55831】Re:特定のセルが更新されると動くマクロ2
発言  kanabun  - 08/5/20(火) 19:12 -

引用なし
パスワード
   ▼あり さん:
こんにちは

いろいろ書き方はあると思いますが、
一例を示すと、

Private Sub Worksheet_Change(ByVal Target As Range)
 'J4セル以外が変更されたら何もしない
 If Target.Address <> "$J$4" Then Exit Sub
 
 Select Case Target.Value
  Case "A":  MsgBox "更新1"
  Case "B":  MsgBox "更新2"
  Case "C":  MsgBox "更新3"
  Case Else: MsgBox "更新4"
 End Select
End Sub

【55832】Re:特定のセルが更新されると動くマクロ2
お礼  あり  - 08/5/20(火) 19:18 -

引用なし
パスワード
   ▼kanabun さん:
こんにちわ。

早速の回答ありがとうございました。
今から、試してみます!

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