エクセル　イベントマクロ　Changeイベントを複数作りたい

解決済

質問者：48946
質問日時：2008/04/02 17:15
回答数：3件

Private Sub Worksheet_Change(ByVal Target As Range)
　 If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

以下マクロの内容

End Sub

これでセルＡ1が変わるとイベントマクロが発生しますが
セルＢ1が変わると別のマクロが発生し
セルＣ1が変わるとまた別のマクロが発生し…とするには
どうすればよいのですか
単純に並べて書いたらだめみたいだったんですけど

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「マクロ C++」に関するQ&A：エクセルマクロ　2行とびでAからCを削除

さらに表示

「マクロ」に関するQ&A：マクロコードがわかりません＞＜

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： hallo-2007
回答日時：2008/04/02 17:38

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address
Case "$A$1"
　A1のマクロ文
Case "$B$1"
　B1のマクロ文
Case "$C$1"
　C1のマクロ文
・・・・
End Select
End Sub
こんな感じでは？

- 6
- 件

通報する

この回答へのお礼

有難うございます
上手くいきました

通報する

お礼日時：2008/04/03 10:18

No.3

回答者： imogasi
回答日時：2008/04/02 20:20

>セルＡ1が変わるとイベントマクロが発生しますが

>セルＢ1が変わると別のマクロが発生し
>セルＣ1が変わるとまた別のマクロが発生し
同じ１つのChngeイベントで受けて
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$1"
MsgBox "A処理実行"
Case "$B$1"
MsgBox "B処理実行"
Case "$C$1"
MsgBox "C処理実行 "
End Select
End Sub
のようにセルのアドレスで区別すればよいのでは。
InterceptやCase文を使わず、
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
MsgBox "A処理実行"
ElseIf Target.Address = "$B$1" Then
MsgBox "B処理実行 "
Else
MsgBox "C処理実行 "
End If
End Sub
でもできる。（コード表現だけの問題だが）
それでは困るケースがありますか。

- 2
- 件

通報する

この回答へのお礼

有難うございます
上手くいきました

通報する

お礼日時：2008/04/03 10:19

No.2

回答者： ja7awu
回答日時：2008/04/02 19:58

例えば、こんな感じで如何ですか。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Not Intersect(Target, Range("A1")) Is Nothing Then
　　　　MsgBox "セル A1 が変更になりました。" '　<--- A1変更時の処理
　　End If
　　If Not Intersect(Target, Range("B1")) Is Nothing Then
　　　　MsgBox "セル B1 が変更になりました。" '　<--- B1変更時の処理
　　End If
　　If Not Intersect(Target, Range("C1")) Is Nothing Then
　　　　MsgBox "セル C1 が変更になりました。" '　<--- C1変更時の処理
　　End If
End Sub

> Select Case Target.Address
> Case "$A$1"
>　A1のマクロ文

これ↑では、複数セル同時変更したとき、その中に該当セルがあっても機能しないと思いますが・・・
これでも良い仕様であれば別ですが・・・

- 3
- 件

通報する

この回答へのお礼

有難うございます
上手くいきました

通報する

お礼日時：2008/04/03 10:18

このQ&Aに関連する人気のQ&A

「マクロ C++」に関するQ&A：エクセルVBAでテキストボックスの値の取得と変更について

さらに表示

「マクロ」に関するQ&A：エクセルのマクロを削除したい....

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qセルの値が変ると自動でマクロが実行される。

セルの値が変ると自動でマクロが実行されるＶＢＡを教えて下さいm(_ _ )m
例えば、シート1のA1の値が変ると、マクロAが実行される。
シート1のA2の値が変ると、マクロBが実行される。
と一つのシート内に複数のイベントを設置したのですが、イマイチわかりません。
知恵をお貸し下さい。

Aベストアンサー

こんにちは
お邪魔します。

（１）まずはオーダー通りの基本型

Private Sub Worksheet_Change(ByVal Target As Range)
' ' 複数セルが変更された場合（単セルでない場合）は処理を抜ける
If Target.Count > 1 Then Exit Sub
' ' 変更されたセルが１列めでない場合は処理を抜ける
If Target.Column <> 1 Then Exit Sub
' ' 変更されたセルの行位置によって処理を分岐する
Select Case Target.Row
Case 1
' A1 の場合の処理
MsgBox "A1" ' 確認用（確認が済んだら当行削除）
Case 2
' A2 の場合の処理
MsgBox "A2" ' 確認用（確認が済んだら当行削除）
End Select
End Sub

（２）セルの位置によってもっと細かく分岐したい場合

Private Sub Worksheet_Change(ByVal Target As Range)
' ' 複数セルが変更された場合（単セルでない場合）は処理を抜ける
If Target.Count > 1 Then Exit Sub
' ' 変更されたセルの列位置によって処理を分岐する
Select Case Target.Column
Case 1 ' １列めなら
' ' 変更されたセルの行位置によって処理を分岐する
Select Case Target.Row
Case 1 ' １列めの１行めなら
' A1 の場合の処理
MsgBox "A1" ' 確認用（確認が済んだら当行削除）
Case 2 ' １列めの２行めなら
' A2 の場合の処理
MsgBox "A2" ' 確認用（確認が済んだら当行削除）
End Select
Case 2 ' ２列めなら
' ' 変更されたセルの行位置によって処理を分岐する
Select Case Target.Row
Case 1 ' ２列めの１行めなら
' B1 の場合の処理
MsgBox "B1" ' 確認用（確認が済んだら当行削除）
Case 2 ' ２列めの２行めなら
' B2 の場合の処理
MsgBox "B2" ' 確認用（確認が済んだら当行削除）
End Select
End Select
End Sub

（３）セルのアドレスを採り文字列で分岐したい場合
　　　（個人的にはあまりお奨めしていませんが、知っておいた方が好いもの）

Private Sub Worksheet_Change(ByVal Target As Range)
'' ' 変更されたセルの参照文字列（Ａ１型）によって処理を分岐する
Select Case Target.Address(False, False)
Case "A1"
MsgBox "A1" ' 確認用（確認が済んだら当行削除）
Case "A2"
MsgBox "A2" ' 確認用（確認が済んだら当行削除）
Case "B1"
MsgBox "B1" ' 確認用（確認が済んだら当行削除）
Case "B2"
MsgBox "B2" ' 確認用（確認が済んだら当行削除）
End Select
End Sub

とりあえず、単セルの場合だけ、理解を深めてみましょう。
複数セルに値変更があった場合については、その後でいいと思います。
（１）にある
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
のような記述はイベントプロシージャでは多用される基本中の基本ですから
よーく咀嚼して呑み込んじゃってください。

一応、いわずもがなですが、
上に挙げたようなイベントプロシージャを複数併記することはできませんので
使わないものはコメントブロックして下さい。
ＶＢＥ（Visual Basic Editor）のツールバーに[編集]というのを追加してあれば
[コメントブロック]、[非コメントブロック]というボタンがありますので適宜。

また、イベントプロシージャで注意するべき点として
例えば今回のChangeイベントの処理中にセルの値を変更すれば
再度Changeイベントが呼び出される（再帰）ということを知っておいてください。
その場合、
　　Application.EnableEvents = False
　　' 処理
　　Application.EnableEvents = True
のような形で、再帰を回避します。

私自身ＶＢＡを覚え初めの頃は、イベントプロシージャとばかり格闘して
日に何百回もエラーを出しながら納得がいくまで色んなことを試していた覚えがあります。
・オブジェクトやプロパティの基本的な扱い方
・条件分岐
などの基本事項を覚えるのには最適の課題ですから、頑張って挑戦し続けてください。

以上です。

///
Re:#2 ちょっと違うかも。
それは、「Ａ１と同じ値に変更されたセルがあった場合」の処理になっています。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
MsgBox Target.Address
End If
End Sub
として、例えば、Ｃ３セルにＡ１と同じ値を設定すると違うのがわかると思います。
あしからず、、、

他の回答も見る

QExcelで、「特定のセルの値が変わったらマクロを実行する」という設定はできないでしょうか。

タイトルの通りです。
Excelで、「特定のセルの値が変わったらマクロを実行する」という設定はできないでしょうか。
ご存知の方がいらっしゃいましたら教えて下さい。

Aベストアンサー

WorksheetのChangeイベントで出来ます。
イベントの引数で値の変わったセルのRangeオブジェクトがわたってくるので、マクロを実行させることができます。

他の回答も見る

QEXCEL　あるセルに数字が入力されれば既存マクロ実行させたい

ボタン等のグラフィックオブジェクトのマクロ実行は簡単なのですが、
ある位置のセルにデーターが入力されれば、
既存のマクロを自動実行させることできますか？

Aベストアンサー

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if Range(ある位置) <>"" then call 既存のマクロ名
End Sub

ある位置と既存のマクロ名を変更して使ってみてください。
あとこのVBAは操作するワークシートのほうに記述します。

他の回答も見る

Qエクセルｖｂａ　　(ByVal Target As Range)について

シートのイベントプロシージャーが
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
となりますが
(ByVal Target As Range)部分は何なのでしょうか？
何のためにあるのかわかりません。

Private Sub Worksheet_SelectionChange()
End Sub
としたらエラーが返ってきました。

理由を教えてください。
よろしくお願いします。

Aベストアンサー

こんにちは
＞Target＝ActiveCell
＞と言う認識でよろしいでしょうか？
#5でKenKen_SPさんが説明されていますが、補足です。

セルを一つだけ選択したときには、

Target＝ActiveCell
と考えても問題ありません

しかし、複数の範囲を選択したときは、
Target＝ActiveCell
はなりません。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
では
Target＝Selection
です。

注！
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
では
Target＝Selection
成り立...続きを読む

他の回答も見る

QSub ( ) と Private Sub ( ) の違い

初歩的な質問で申し訳ありませんが・・・

自分でコードを書いていても、イベントが発生したりした時の処理で、コードのウィンドウで上のドロップダウンリストで選択できる時の処理などは自動的に[Private Sub Command1_Click( )]などと出てくるのでそのまま使っています。自分で別途プロシージャーを作成する時は[Sub ****( )]としています。
ですがその違いを理解しないまま、自分で作成する時は[Private Sub]ではなくて[Sub]を使っています。

Sub ***( ) と Private Sub ***( ) の違いは何なんでしょうか？
どなたか説明頂けませんか？
よろしくお願いします。

Aベストアンサー

「Sub」の部分にカーソルを置いて[F1]を押せばヘルプが起動します。
「指定項目」のところに「Public」と「Private」の説明がありますよ。
省略して「Sub hogehoge()」とした場合は「Public」とみなされます。

Publicは「すべてのモジュールから呼び出せるプロシージャ」ということになります。
Privateとすると「同じモジュールの中からしか呼び出せないプロシージャ」となります。

もしExcelをお持ちでしたらExcelのVBEで標準モジュールを追加し、「Sub Test1()」と「Private Sub Test2()」を作成してみてください。
そしてExcelの[ツール]-[マクロ]-[マクロ(Alt+F8)]でマクロ実行のダイアログを表示させてみるとわかります。
ここには実行できるプロシージャの一覧が表示されますが、Test1は表示されているけれどTest2は表示されません。
Test1はPublicで、Test2はPrivateだからです。

他の回答も見る

QExcel VBAでのWorksheet_Changeが動作しない原因

VBA初心者です。
エクセル上で特定のセル（A1~C3の６セル）が変更された際に、マクロが自動で動作するようにしたいと考えています。

既に単独では動作確認済のtest()マクロを作り、
さらに以下のイベントプロシージャを記述したのですが、セルの変更に対して反応が起きません。
どの部分に問題があるかご教示願えますでしょうか。

※test()マクロに関してはA1~C3のセルは参照するものの、
これらのセルを書き換える事はない為、ループは起きない可能性もありますが、
念の為Application.EnableEvents = ...続きを読む

Aベストアンサー

こんにちは。

>どの部分に問題があるかご教示願えますでしょうか。

サブルーチンに肝心な部分を書いておいて、動きませんといっても、それは誰も分からないと思います。

それよりも、むしろ、ご自分で出来るように、デバッグの方法を身につけることですね。
イベント・ドリブン型の最初の部分に[ブレークポイント]を置き、
次に、「Test」というプロシージャが、どこかに置かれていたら、そこに、[ブレークポイント]を置きます。

イベントを発生させたら、[F8]で、ステップモードでひとつずつ動かし...続きを読む

他の回答も見る

QVBA　CHANGEイベントに複数イベントを

いつもお世話になっています。

色々しらべて試してみたんですが、うまくいかないんで教えてください。

CHANGEイベントに複数のイベントを書き込みたいんですが。

今現在、問題なく動いている以下のイベントがあります。

(1)
Private Sub Worksheet_Change(ByVal Target As Range)

Dim rang3 As Range
Dim rang4 As Range
Dim ■■ As String
Dim LastRow1 As Long

LastRow1 = Worksheets("○○").Cells(Rows.Count, "b").End(xlUp).Row
Set rang4 = Worksheets("○○").Range("b:I" & LastRow)
Set rang3 = Range("h4")

If Intersect(Target, rang3) Is Nothing Then Exit Sub

On Error Resume Next

■■ = WorksheetFunction.VLookup(Target.Value, rang4, 2, 0)
If Err.Number > 0 Then
MsgBox Target.Value & "はありません。基本情報台帳に入力してください。"

Range("h4").Select

Else

Application.EnableEvents = False

Range("I4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 2, False)
Range("j4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 3, False)
Range("k4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 7, False)
Range("l4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 8, False)
Range("m4").Value = Application.WorksheetFunction.VLookup(Target, Worksheets("△△").Range("b:I"), 5, False)

Application.EnableEvents = True

Range("K4").Select

End If

End Sub

このシートにもう一つ、イベントを入れたいのですが。

(2)
If Target.Count > 1 Then Exit Sub

If Intersect(Target, Range("E4")) Is Nothing Then

Exit Sub

Else

If Range("e4").Value = "1" Then
Target.Offset(0, 19).Value = "☆"

End If

どこに入れればいいのかわかりません。

(3)

また、(2)のイベントの他に、
(1)のＶＬＯＯＬＵＰが実行され、尚且つ(2)のイベントのＥ４が値が１だった場合、Ｙ４にＨ４の値を入れたいのですが・・・。

(2)のみなら動くことは確認できましたが、(1)のｅｘｉｔ　ｓｕｂ　の直前に入れたり、ｅｎｄ　ｉｆの前に入れたりしましたが、片方は動くが、もうひとつが動かないです。
(3)については、まったくわかりません。

マクロについて、自分でネットで勉強した程度なので、基本がわかっていないからなのでしょうが・・・。

どなたか、教えてください。
お願いします。

Aベストアンサー

No.3です。
こんなのでしょうか？
参照する"△△"シートを"Sheet2"としています。
>マクロがあるシート（△△）への入力は、４行目にＥ～Ｘ（左から右）へと順に入力していきます。
>Ｅ４が空白のままで、Ｈ４に入力した際は、Ｙ４にＨ４の値を入れたい場合は、どうすればいいですか？
E4またはH4が変更された時にY4を変更する条件と値はわかりましたが、その前の「EからXに順に入力して・・・」の文の意味が、VBAで何かをして欲しいのか何もしないくていいのかわかりません。

それとシートの値を変更する条件が増えてゆくと、条件によってはWorksheet_Changeが多重にかかる場合が起きてくるので、今は不要ですが、Application.EnableEventsでの制御が必要になってくる可能性が出てくるかもしれません。

Private Sub Worksheet_Change(ByVal Target As Range)
changeH4 Target
changeE4 Target
End Sub

'(1)の処理
Sub changeH4(ByVal Target As Range)
Dim rng As Range
'処理条件
'変更されたセルがH4セルで値があったら実行 (それ以外は終了)
If Target.Address <> "$H$4" Then Exit Sub 'H4以外のchangeイベントなら終了
If Target.Value <> "" Then '空白でなく
'"△△"シート(Sheet2)のB列から探してなかったらエラーメッセージ出してH4選択
Set rng = Worksheets("Sheet2").Columns("B").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
Range("I4").Value = rng.Offset(0, 1).Value
Range("J4").Value = rng.Offset(0, 2).Value
Range("K4").Value = rng.Offset(0, 6).Value
Range("L4").Value = rng.Offset(0, 7).Value
Range("M4").Value = rng.Offset(0, 4).Value
Range("K4").Select
checkY4 '転記した場合の追加イベント
Exit Sub
End If
MsgBox Target.Value & "はありません。基本情報台帳に入力してください。"
End If
Range("H4:M4").Value = ""
Range("H4").Select
End Sub

'(2)の処理
Sub changeE4(ByVal Target As Range)
'E4が変更されたとき
If Target.Address <> "$E$4" Then Exit Sub
'1ならE4を右に19移動したセル(X4)を☆
If Target.Value = "1" Then
Range("X4") = "☆"
checkY4 '☆を書いた場合の追加イベント
Else
Range("X4") = ""
End If
End Sub

'(3)の処理
Sub checkY4()
Dim y4 As String
y4 = ""
'(1)のＶＬＯＯＬＵＰが実行され、尚且つ(2)のイベントのＥ４が値が１だった場合、Ｙ４にＨ４の値を入れたい。
If Range("H4").Value <> "" Then
If Range("E4").Value = "1" Then
y4 = Range("H4").Value
End If
End If
'Ｅ４が空白のままで、Ｈ４に入力した際は、Ｙ４にＨ４の値を入れたい場合
If Range("E4").Value = "" Then
If Range("H4").Value <> "" Then
y4 = Range("H4").Value
End If
End If
Range("Y4").Value = y4
End Sub

他の回答も見る

Q別のシートから値を取得するとき

Worksheets("シート名").Activate
上記のを行ってから別シートの値を取得するのですが、
この処理を行うと指定したシートへ強制的にとんでしまいます。。。

※イメージ
For　～　To　～
　　Worksheets("シートＡ").Activate
　　シートＡの値取得
　　　　　　　：
　　Worksheets("シートＢ").Activate
　　シートＢの値取得
Next

このイメージ処理を行うとものすごい勢いで画面がチカチカします。。。
シートを変えずに他のシートから値を取得する方法はないのでしょうか。
教えてください！

Aベストアンサー

Worksheets("シートＡ").Range("A1")

みたいな感じでできませんか？

他の回答も見る

QEXCEL VBA　で現在開いているブックのファイル名を取得する方法

EXCEL2003 VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。
作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。
このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。
常にファイル名を取得出来るVBAをどなたか、教えて下さい。

Aベストアンサー

＞現在開いているブックのファイル名
　ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は
ThisWorkbook.Name
で、現在 "アクティブにして" 操作対象になっているブックの名前は
ActiveWorkbook.Name
ですね。

　しかし、
＞VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり
というような文脈からすると、
ThisWorkbook.Name
の方ですかね。

他の回答も見る

Q【Excel VBA】セルの値が変更されたらマクロを実行

こんにちは

B4の値を変更する度に、
標準モジュールにあるMacro1が実行されるようにするには、
どうしたら良いでしょうか。

Excel2013です。

Aベストアンサー

WorksheetのChangeイベントを書けばいいです。
【Worksheet Change】
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row = 4 Then
Call Module1.Macro1
End If
End Sub

【Module1】
Public Sub Macro1()
MsgBox "B4の値変更(元の値と変更がなくても走行する)"
End Sub

他の回答も見る

ページトップ