Excel VBA質問箱 IV

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

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


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

【75190】2つのセル入力で処理実行するには? とし爺 14/1/4(土) 13:05 質問[未読]
【75191】Re:2つのセル入力で処理実行するには? γ 14/1/4(土) 14:06 発言[未読]
【75192】Re:2つのセル入力で処理実行するには? とし爺 14/1/4(土) 18:15 お礼[未読]
【75193】Re:2つのセル入力で処理実行するには? 14/1/4(土) 18:37 発言[未読]

【75190】2つのセル入力で処理実行するには?
質問  とし爺  - 14/1/4(土) 13:05 -

引用なし
パスワード
   ひとつのセル(D1)の場合は下記コードですが

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Range("D1")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
   '処理
  Application.EnableEvents = True
End Sub

例えば、D1セルとK1セルのどちらかに入力があった場合に処理実行
させるにはどう書けば良いのでしょうか?

【75191】Re:2つのセル入力で処理実行するには?
発言  γ  - 14/1/4(土) 14:06 -

引用なし
パスワード
   変更するセルが必ず一つと決まっているなら、
Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("D1,K1")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
   '本処理
  Application.EnableEvents = True
End Sub
上記でどうでしょうか。

【75192】Re:2つのセル入力で処理実行するには?
お礼  とし爺  - 14/1/4(土) 18:15 -

引用なし
パスワード
   γ 様

ありがとうございました。解決しました。

"D1:K1" の場合は連続セルになってしまうので、どうしたら良いか分かりませんでしたが、カンマ区切りとは気づきませんでした。

【75193】Re:2つのセル入力で処理実行するには?
発言    - 14/1/4(土) 18:37 -

引用なし
パスワード
   こんにちは。

>"D1:K1" の場合は連続セルになってしまうので、どうしたら良いか分かりませんでしたが
そういうときはマクロの記録です。
どこかテキトーなセルをクリックして選択、さらにCtrlキーを押さえて
さっきとは別のテキトーなセルをクリック。これでセルが2つ選択できます。

記録されたマクロがこちらです。
Sub Macro1()
  Range("C5,D9").Select '←これが使えます
  Range("D9").Activate  'この行は無視
End Sub

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