Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1316 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【75190】２つのセル入力で処理実行するには？ とし爺 14/1/4(土) 13:05 質問[未読]
【75191】Re:２つのセル入力で処理実行するには？ γ 14/1/4(土) 14:06 発言[未読]
【75192】Re:２つのセル入力で処理実行するには？ とし爺 14/1/4(土) 18:15 お礼[未読]
【75193】Re:２つのセル入力で処理実行するには？ 佳 14/1/4(土) 18:37 発言[未読]
【75190】２つのセル入力で処理実行するには？
質問  とし爺  - 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:２つのセル入力で処理実行するには？
発言  γ  - 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:２つのセル入力で処理実行するには？
お礼  とし爺  - 14/1/4(土) 18:15 -
引用なし
パスワード
   γ　様

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

"D1:K1" の場合は連続セルになってしまうので、どうしたら良いか分かりませんでしたが、カンマ区切りとは気づきませんでした。
【75193】Re:２つのセル入力で処理実行するには？
発言  佳  - 14/1/4(土) 18:37 -
引用なし
パスワード
   こんにちは。

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

記録されたマクロがこちらです。
Sub Macro1()
　　Range("C5,D9").Select　'←これが使えます
　　Range("D9").Activate　 'この行は無視
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1316 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free