
No.3
- 回答日時:
>セルA1が変わるとイベントマクロが発生しますが
>セルB1が変わると別のマクロが発生し
>セルC1が変わるとまた別のマクロが発生し
同じ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
でもできる。(コード表現だけの問題だが)
それでは困るケースがありますか。
No.2
- 回答日時:
例えば、こんな感じで如何ですか。
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のマクロ文
これ↑では、複数セル同時変更したとき、その中に該当セルがあっても機能しないと思いますが・・・
これでも良い仕様であれば別ですが・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Changeイベントでの複数セルのクリアの処理について
Visual Basic(VBA)
-
エクセルマクロPrivate Subを複数にする方法
Excel(エクセル)
-
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
-
4
エクセルVBA シートモジュールにチェンジイベントを複数設定する方法を教えて下さい。 例えば、B列に
Visual Basic(VBA)
-
5
複数処理 Worksheet_Change(ByVal Target As Range)
Visual Basic(VBA)
-
6
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
7
マクロ 実行ボタンを押さずに常に実行
Excel(エクセル)
-
8
Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる
Visual Basic(VBA)
-
9
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
10
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
11
worksheet_changeがループする
PowerPoint(パワーポイント)
-
12
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
13
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
14
Excel VBA イベントプロシージャを2つ記述する(基本です)
Excel(エクセル)
-
15
Worksheet.Change イベントを他のシートにも反映させる方法?
Visual Basic(VBA)
-
16
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
17
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
18
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
19
他のシートの特定のセルが変わると、自動実行されるマクロについて
Excel(エクセル)
-
20
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのレポートについて
-
Accessのクエリで、replace関数...
-
ACCESS VBA でのエラー解決の根...
-
access2021 強制終了してしまう
-
Microsoft 365 Basic サブスク...
-
Access VBA [リモートサーバー...
-
accessデータを指定したExcel、...
-
Accessのスプレッドシートエク...
-
access2021 メッセージボックス...
-
教えてください! アクセスの書...
-
access2019 チェックボックスと...
-
Excelを開く時と閉じる時に一度...
-
access2021 VBA メソッドまたは...
-
Accessのリンクテーブルのパス...
-
アクセス ステップインのやり方
-
【至急・画像あり】建物or住所...
-
AccessVBAで任意の複数リンクテ...
-
Accessのクエリの結果を、既存...
-
Accessフォームの配色テーマを...
-
Accessのクエリの印刷設定
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Microsoft 365 Basic サブスク...
-
ACCESS VBA でのエラー解決の根...
-
Accessのクエリで、replace関数...
-
access2021 強制終了してしまう
-
Access VBA [リモートサーバー...
-
access2021 VBA メソッドまたは...
-
Access VBA を利用して、フォル...
-
Accessデータベースに含まれる...
-
アクセスで、実行時エラー3075 ...
-
Access Error3061 パラメータが...
-
提供されるデータの形式が変わ...
-
Accessのスプレッドシートエク...
-
お助けください
-
accessデータを指定したExcel、...
-
CSVファイルの「0落ち」にVBA
-
Accessのリンクテーブルのパス...
-
accessでlaccdbファイルが削除...
-
Accessのクエリの結果を、既存...
-
Microsoft365にAccessってあり...
-
実行時エラー3131 FROM 句の構...
おすすめ情報