
自動的に日付を入力出来ないかと検索すると下記のようなコードを見つけました
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
Application.EnableEvents = False
Target.Offset(, 2).Value = Now
Application.EnableEvents = True
End Sub
※F列に入力されるとその行のH列に今日の日付が表示されます
このコードですと、F列に入力されたものをDeleteしても、H列の日付はそのまま残ってしまいます
Deleteとすると日付も消える方法(コード)は可能でしょうか?
エクセルXBA初心者なので、お教えくだされば幸いです
No.1ベストアンサー
- 回答日時:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Set ws = Me
' 変更されたセルがF列にあるか確認
If Not Intersect(Target, ws.Range("F:F")) Is Nothing Then
Application.EnableEvents = False ' 無限ループ防止
Dim cell As Range
For Each cell In Target
' F列のセルが空白ならH列をクリア、そうでなければ今日の日付を入力
If IsEmpty(cell.Value) Then
ws.Cells(cell.Row, "H").ClearContents
Else
ws.Cells(cell.Row, "H").Value = Date
End If
Next cell
Application.EnableEvents = True ' イベントを再有効化
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excelのVBAについて、以下のコードに追加をお願いいたします。 2 2023/12/25 10:24
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Visual Basic(VBA) VBAに関して 2 2023/11/09 20:57
- Visual Basic(VBA) Excelマクロでセルに値が入力されたら実行する 5 2023/08/06 11:03
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- Visual Basic(VBA) VBAコードについて教えてください。 2 2024/06/18 13:51
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) シートモジュールを複数作成することはできるのでしょうか? 2 2023/08/30 18:48
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
スマホに会話を聞かれているな!?と思ったことありますか?
スマートフォンで検索はしてないのに、友達と話していた製品の広告が直後に出てきたりすることってありませんか? こんな感じでスマホに会話を聞かれているかも!?と思ったエピソードってありますか?
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
あなたなりのストレス発散方法を教えてください!
自分なりのストレス発散方法はありますか?
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
Excel関数の解決方法
Excel(エクセル)
-
Excelの関数を教えて下さい。
Excel(エクセル)
-
エクセルの設定、下へスクロールすると表のヘッダ項目がシートの列番号の部分に表示される
Excel(エクセル)
-
-
4
Excel初心者です、Excelの日付関数を使って A列=生年月日 B列=年齢 C列=シリアル値 で
Excel(エクセル)
-
5
エクセル 数字のみ抽出につて
Excel(エクセル)
-
6
エクセルの数式について教えてください。
Excel(エクセル)
-
7
エクセルで表
Excel(エクセル)
-
8
数字入力後他の文字等が表示される方法について
Excel(エクセル)
-
9
EXCELのページを、枠線を維持したまま印刷する方法をありませんか?
Excel(エクセル)
-
10
条件付き書式の効率的な設定の仕方について
Excel(エクセル)
-
11
UNIQUE関数、配列数式を使わずに品名ごとの集計を求めたい
Excel(エクセル)
-
12
Excelについて。 以前、無料でExcelを使っていましたが、 ある日突然、Excelの画面がなく
Excel(エクセル)
-
13
Excelの罫線を消す方法
Excel(エクセル)
-
14
Excel いい方法教えてください。
Excel(エクセル)
-
15
Excelのデータの入力規則の問題点について
Excel(エクセル)
-
16
エクセルのセルをクリックすると頻繁に出てくる
Excel(エクセル)
-
17
エクセルで 45201 を文字列 20231002 にする方法を教えてください。
Excel(エクセル)
-
18
ユーザーマクロ作成
Excel(エクセル)
-
19
Excelでプルダウン選択(I1セル)した文字列に該当したC列のセル行のみを切り替えて表示したいです
Excel(エクセル)
-
20
エクセルをエクセレントに究める
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロを実行すると、セル範囲...
-
Excelの条件付書式について教え...
-
Excelでの文字入力について
-
【マクロ】Call関数で呼び出し...
-
Excelのデーターバーについて
-
別のシートの指定列の最終行を...
-
【マクロ】シート追加時に同じ...
-
カーソルを合わせてる時のみ行...
-
Excel 日付の表示が直せません...
-
Excel関数の解決方法
-
自動的に日付入力 応用
-
Excelでプルダウン選択(I1セル)...
-
エクセル 数字のみ抽出につて
-
Excelファイルを開くと私だけVA...
-
ユーザーマクロ作成
-
エクセルでA1を参照してその文...
-
エクセルで、数字の下4桁の0を...
-
UNIQUE関数の代用
-
システムファイルについて
-
Vba アドインソフトのバージョ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】重複する同じ行を、...
-
Excelの条件付き書式のコピーと...
-
vba 印刷設定でのカラー印刷と...
-
VBA の単語の意味を教えて下さい。
-
Excel 日付の表示が直せません...
-
エクセル 同じ行の隣り合う数字...
-
エクセル条件付き書式について。
-
エクセルの数式につきまして
-
ファイル名の変更
-
エクセル 数字のみ抽出につて
-
Excelの開始ブックを固定したい...
-
エクセルの数式について教えて...
-
エクセルのセルをクリックする...
-
=INDIRECT(RIGHT(CELL("filenam...
-
エクスプローラーで見ることは...
-
Excelの関数で質問です
-
至急お願いいたします 屋上の備...
-
エクセルでセルに入力する前は...
-
関数を教えて下さい
-
Excel 関数での質問です
おすすめ情報