Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
151 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81762】昨日以前の日付→明日へ変更する処理 やまと 21/4/28(水) 11:58 質問[未読]
【81764】Re:昨日以前の日付→明日へ変更する処理 山内 21/4/28(水) 13:59 回答[未読]
【81765】Re:昨日以前の日付→明日へ変更する処理 しん 21/4/28(水) 15:24 回答[未読]
【81762】昨日以前の日付→明日へ変更する処理
質問  やまと  - 21/4/28(水) 11:58 -
引用なし
パスワード
   質問失礼いたします。


列1
2021/05/30
2021/06/05
2021/04/05 →　2021/04/28

というように、過去分の日付列に入力されていたら、その日付を自動的に明日へ書き換えるという処理のVBAを記述したいです。

当方初心者のため、何卒ご指南いただけると幸いです。
【81764】Re:昨日以前の日付→明日へ変更する処理
回答  山内  - 21/4/28(水) 13:59 -
引用なし
パスワード
   Worksheet_Chageイベントでできると思います
Targetの値と今日の日付を比較して値を書き換えるだけですね
【81765】Re:昨日以前の日付→明日へ変更する処理
回答  しん  - 21/4/28(水) 15:24 -
引用なし
パスワード
   こんな感じ

Sub tes01()
Dim tRng As Range
Dim R As Integer, endRow As Integer
'日付の最初のセル
Set tRng = Range("A3")
'下に続くセル数
endRow = tRng.End(xlDown).Row - tRng.Row
For R = 0 To endRow
　If tRng.Offset(R, 0).Value <= Date Then　'セルの日付が今日以前の場合
　　tRng.Offset(R, 0).Value = Date + 1　　　'セルの明日の日付にする
　End If
Next

End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
151 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free