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
エクセル ダブルクリック入力の範囲が複数の場合
Excel(エクセル)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
エクセルVBA シートモジュールにチェンジイベントを複数設定する方法を教えて下さい。 例えば、B列に
Visual Basic(VBA)
-
8
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
9
Changeイベントでの複数セルのクリアの処理について
Visual Basic(VBA)
-
10
エクセルマクロ セルをクリックするたびに記号を入力
Excel(エクセル)
-
11
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
12
マクロ 実行ボタンを押さずに常に実行
Excel(エクセル)
-
13
同じシート内にイベントプロシージャが二つある時
Excel(エクセル)
-
14
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
15
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
16
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
17
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
18
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
19
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
20
対象セル内(複数)が埋まったら文字を表示させたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
【VBA】ピボットテーブルの範囲...
-
エクセルで離れた列を選択して...
-
エクセルで行を分ける方法
-
データシートビューのタイトル...
-
VBA 指定した列にある日時デー...
-
こんな情報を主キーとして設定...
-
エクセルマクロの組み方
-
最終列の列番号を列文字に変換...
-
先日、算出値の記憶での質問で...
-
VBA Splitで「引数の数が一致...
-
エクセル 重複 隣の列 一番...
-
エクセルで最初の行や列を開け...
-
VBAで結合セルを転記する法を教...
-
エクセルの列をたたむ操作
-
Accessのレポートで繰り返し表...
-
エクセルでの数値・文字の並べ...
-
マクロで行削除を自動で行いたい
-
エクセルのソートで、数字より...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
「段」と「行」の違いがよくわ...
-
VLOOKUPの列番号の最大は?
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
Alt+Shift+↑を一括で行うには、...
-
エクセルで住所を県と市・郡と...
-
エクセルで複数列の検索をマク...
-
Excelの行数、列数を増やしたい...
-
VBAで結合セルを転記する法を教...
-
エクセルマクロPrivate Subを複...
-
エクセルマクロの組み方
-
CSVファイルの「0落ち」にVBA
-
列方向、行方向の定義
-
リストからデータを紐付けしたい
-
エクセルのソートで、数字より...
-
Excel文字列一括変換
-
エクセルで最初の行や列を開け...
-
エクセルでセル12個間隔で合...
-
エクセル マクロ 範囲指定で...
おすすめ情報
End Subが一個多いのは書き間違いなので気にしないで下さい