(シートモジュールです)
Private Sub Worksheet_Change(ByVal Target As Range)
'6行未満は対象外
If Target.Row < 6 Then Exit Sub
'6,8,10,12,14行・・・以外は対象外
If Target.Column < 6 Then Exit Sub
If (Target.Column - 6) Mod 2 <> 0 Then Exit Sub
Target.Offset(, 1).Value = Date
End Sub
以上のコードを入れてあります。入力箇所の仕様としては、
左側:名前
右側:左側に名前を入力すると、入力された日付が表示される(←ここに作用されるコードになっています)
名前を入力すると日付が表示されるのですが、、、
例 №○問題点
(改善したいこと)
№①名前を消しても日付は表示されたまま
(名前を消すと日付も消えるようにしたい)
№②名前の入力訂正として範囲してdeleteすると、deleteした範囲分の右側に日付が表示される
(①と同様に範囲分名前をdeleteしても日付が入力されないようにしたい)
№③列まで作用させたいのに、それ以降の列にも同じ作用になる
(日付が表示されるのがAM列までにしたい)
※ R6、T6、V6、X6、Z6、AB6、AD6、AF6、AH6、AJ6、AL6列が名前を入力する列
※ S6、U6、W6、Y6、AA6、AC6、AE6、AG6、AI6、AK6、AM6列が入力された日付が表示される列
お手数ですが、分かる方ご教示をお願いできないでしょうか。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
No①②③の対応版です。
(作り直しになります)No②の範囲選択ですが、範囲が全て有効なセル内に入っている場合のみ、
その範囲を処理するようにしています。そうでない場合は、何も処理しません。
例:
F5~F10の場合、処理なし(F5が無効セル)
F6~G10の場合、処理なし(G列が無効セル)
F6~F10の場合、処理する
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
For Each r In Target
'6行未満は対象外
If r.Row < 6 Then Exit Sub
'AL列を超えた場合は、対象外
If r.Column > 38 Then Exit Sub
'6,8,10,12,14行・・・以外は対象外
If r.Column < 6 Then Exit Sub
If (r.Column - 6) Mod 2 <> 0 Then Exit Sub
Next
Application.EnableEvents = False
For Each r In Target
If r.Value = "" Then
r.Offset(, 1).Value = ""
Else
r.Offset(, 1).Value = Date
End If
Next
Application.EnableEvents = True
End Sub
作り直しいただき誠にありがとうございます。
無事イメージ通りの動きができるようになりました。
お忙しいところお手数おかけしました。
No.1
- 回答日時:
こんにちは
いろいろありますけれど・・
>№①、№②
変更されたセルの値が、空白なら右隣も空白にすれば良いです。
具体的には
If Target.Value = "" Then Target.Offset(, 1).Value = "" Else Target.Offset(, 1).Value = Date
みたいな感じです。
一方で、ご提示のコードは変更セルが1ヶ所のみであると決め打ちのコードになっていますので、コピペやデリートなどで複数セルが変更された場合はを想定されていません。
ですので、複数セルにも対応できるようにするなら、根本的に考え方を変えて作り直すしかありません。
>№③
どの列の範囲にしたいのかがよくわかりませんけれど・・
ご提示のコードで、「偶数列であること」をチェックしているのと同じように、指定の列範囲内であることをチェックすれば良いでしょう。
具体的には
Target.Column >= 最小列番号 And Target.Column <= 最大列番号
のような感じです。
上記同様に、複数セルを対象とする場合は、そのままTargetで判定するのではうまくいきませんけれど・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ワークシートチェンジ 1 2022/02/01 11:19
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) VBAで重複した値のセルに色付けをしたい 1 2022/11/02 16:12
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【関数orVBA】カーソルのある行を黄色にし、A列の値を別シートに表示できますか? 4 2021/12/28 00:03
- Visual Basic(VBA) VBAのトグルボタンでのマクロについて質問です 3 2022/10/10 17:23
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
VBAのコードを教えてください
Visual Basic(VBA)
-
VBA コード
Visual Basic(VBA)
-
-
4
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
5
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
6
Cellsのコードが打てません
Visual Basic(VBA)
-
7
エクセルのマクロ
Excel(エクセル)
-
8
エクセルVBAの配列について
Visual Basic(VBA)
-
9
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
10
Excel VBAにて、2GB超の点群データ(CSVファイル,改行コードLF)を高速で解析したい。
Visual Basic(VBA)
-
11
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
12
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
13
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
14
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
15
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
16
A列B列どちらにもあるのを抽出する
Visual Basic(VBA)
-
17
VBAのことで質問です
Visual Basic(VBA)
-
18
VBA
Visual Basic(VBA)
-
19
VBAの質問です、複数のテキストボックスに同じコメントを
Visual Basic(VBA)
-
20
【VBA】エクセルで最後の不要な改行コードを削除するコードについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DataGridViewでyyyy/MM/dd
-
エクセルのVBAで日付を検索し転...
-
コンボボックスに日付を表示する
-
ユーザーフォームのラベルに日...
-
【Excel VBA】条件に合った行の...
-
今日より前の書き方 マクロ
-
DataGridViewの和暦表示について
-
DateTimePickerを西暦表示にす...
-
システム日付とは?
-
VBA 日付、未来の日付はエラー...
-
Eclipseの対応する括弧の強調表...
-
C#で日付をdateTimePickerに読...
-
今週は第何週ですか?
-
テキストボックスにカレンダー...
-
3人のじゃんけんのプログラム
-
VBAのvalueとvalue2の違いに...
-
テキストボックスに今日の日付...
-
VBAで当月の1日を表示するには...
-
防衛機制の種類を教えてくださ...
-
SqlCommandBuilder 使用時のサ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Eclipseの対応する括弧の強調表...
-
ユーザーフォームのラベルに日...
-
VBAの質問になります 行の非表示
-
エクセルのVBAで日付を検索し転...
-
VisualBasic6.0のFormat関数で...
-
DataGridViewでyyyy/MM/dd
-
3人のじゃんけんのプログラム
-
システム日付とは?
-
コンボボックスに日付を表示する
-
今日より前の書き方 マクロ
-
【VBA】土日をスキップして日付...
-
エクセルVBAで機械の稼働時間を...
-
VBA 日付、未来の日付はエラー...
-
DataGridViewの和暦表示について
-
VBAで当月の1日を表示するには...
-
「eclipseで作るカレンダー(ス...
-
テキストボックスにカレンダー...
-
ExcelVBAでSQLサーバの日付時刻...
-
【Excel VBA】条件に合った行の...
-
VBAのapplication.ontime メソ...
おすすめ情報