Private Sub WorkSheet_Change(ByVal Target As Range)
End Sub
If Target.Column <> 11 Then Exit Sub
Target.Offset(0, -5).Value = Now
End Sud
でやっています。これを
If Target.Column <> 12Then Exit Sub
Target.Offset(0, -5).Value = Now
End Sud
上記のような感じで3,4個作りたいと思ってるんですが、複数のPrivate sub って作ることはできないでしょうか?
宜しくお願い致します
No.1ベストアンサー
- 回答日時:
こんにちは!
コードを拝見すると、K列・L列のデータ変更時にマクロを実行したいのですよね?
この範囲を広げたい!という解釈で・・・
仮にK~M列を対象とする場合は
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K:M")) Is Nothing Or Target.Count > 1 Then Exit Sub
Target.Offset(, 5) = Now()
End Sub
のようにしてみてはどうでしょうか?
※ 対象範囲が飛び飛びの場合(仮にK列とM列だけの場合)は
>Range("K:M")
を
>Range("K:K,M:M")
のようにカンマで区切ります。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
-
Private Sub Worksheet_Change が複数
Excel(エクセル)
-
複数処理 Worksheet_Change(ByVal Target As Range)
Visual Basic(VBA)
-
-
4
Changeイベントでの複数セルのクリアの処理について
Visual Basic(VBA)
-
5
エクセルVBA シートモジュールにチェンジイベントを複数設定する方法を教えて下さい。 例えば、B列に
Visual Basic(VBA)
-
6
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
7
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
8
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
9
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
10
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
11
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
12
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
-
13
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
14
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
15
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
16
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
17
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
18
マクロ 実行ボタンを押さずに常に実行
Excel(エクセル)
-
19
同じシート内にイベントプロシージャが二つある時
Excel(エクセル)
-
20
EXCEL VBA 複数のシートに同じイベントプロシジャを書く場合
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VLOOKUPの列番号の最大は?
-
エクセルで離れた列を選択して...
-
LEFT関数とIF関数の組み合わせ...
-
「段」と「行」の違いがよくわ...
-
エクセルで複数列の検索をマク...
-
VBA 指定した列にある日時デー...
-
Excelの行数、列数を増やしたい...
-
エクセル マクロ 範囲指定で...
-
CSVファイルの「0落ち」にVBA
-
Alt+Shift+↑を一括で行うには、...
-
エクセルマクロPrivate Subを複...
-
VBAで別ブックの列を検索し、該...
-
エクセルの列末のデータだけ表...
-
【VBA】ピボットテーブルの範囲...
-
土日の列幅の自動変更を教えて...
-
横軸を日付・時間とするグラフ化
-
エクセル マクロ 範囲の値を上...
-
エクセルで?
-
エクセルのソートで、数字より...
-
エクセルでセル12個間隔で合...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA
-
Excelの行数、列数を増やしたい...
-
VBA 指定した列にある日時デー...
-
エクセルで複数列の検索をマク...
-
CSVファイルの「0落ち」にVBA
-
エクセルマクロの組み方
-
エクセルのソートで、数字より...
-
えABのある列って
-
VBAで別ブックの列を検索し、該...
-
Excel文字列一括変換
-
エクセルで住所を県と市・郡と...
-
リストからデータを紐付けしたい
-
Alt+Shift+↑を一括で行うには、...
-
エクセル マクロ 範囲指定で...
-
エクセルで最初の行や列を開け...
-
エクセル 重複 隣の列 一番...
おすすめ情報
End Subが一個多いのは書き間違いなので気にしないで下さい