経緯
日々の業務で、「B列に値を入力したタイミングで、A列にその日の日付を自動的に記録したい」と思う場面がありました。
作業日や入力日を管理したいときに便利だと考え、今回はVBAの自動記録処理を学習しました。
実現したいこと
- B列に何か入力されたら
- 対応するA列のセルに本日の日付（
Date）を自動入力する
使用するVBAコード
このような処理は、Worksheet_Changeイベントを使うことで実現できます。
以下のコードを、**対象のシートのコードウィンドウ（例：Sheet1）**に貼り付けてください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, Me.Range("B:B")) ' B列の変更に限定
If rng Is Nothing Then Exit Sub
Application.EnableEvents = False ' 無限ループ防止
Dim cell As Range
For Each cell In rng
If cell.Value <> "" Then
cell.Offset(0, -1).Value = Date ' A列に日付を入力
End If
Next cell
Application.EnableEvents = True
End Sub
補足：このコードの動作仕様
- 対象はB列のみ
- B列に値が入力されると、同じ行のA列に「今日の日付（
Date関数）」が入力されます - 空白を入力しただけではA列に変化はありません
Application.EnableEvents = Falseによってイベントの再帰呼び出しを防止しています（これを省略すると無限ループの可能性があります）
応用例
- 日報記録やデータ入力履歴の自動管理
- 入力作業のタイムスタンプ代わりに
- 「削除された場合は日付も消す」などの処理は、別途
If cell.Value = "" Then条件で対応可能です
まとめ
今回のVBAコードを使用すれば、B列にデータを入力したタイミングで、A列にその日付を自動記録することが可能になります。
毎回手動で日付を入力する必要がなくなるため、作業の効率化や記録ミスの防止にもつながります。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
