今日の日付と曜日を新しく列を追加して必要な分だけいれるよ

makotoym

2025年1月9日 07:00

この説明は、ChatGPTで作成しています。

このプロシージャは、Excelのアクティブなシートに「今日の日付」と「曜日」の2列を新たに追加し、必要なデータを自動的に入力するものです。以下に、このマクロの動作についてわかりやすく説明します。

プロシージャの概要

既に「今日の日付」の列があるか確認する
最初に、A列の1行目が「今日の日付」という文字列になっている場合、処理を中断します。この機能によって、同じ列を重複して追加しないようにしています。
A列に新しい列を挿入する
A列に「今日の日付」列と「曜日」列を追加します。これにより、既存のデータはB列以降に移動します。
データが入力されている行数を確認する
C列の最後のデータが入力されている行を確認し、その数値をもとに処理の範囲を決定します。
C列にデータがない場合は中断する
C列のデータが1行以下の場合、処理を中断します。この条件によって、不要な操作を防ぎます。
「今日の日付」と「曜日」を入力する
C列にデータがある行数に応じて、A列に「今日の日付」、B列にその曜日（例: 月, 火）を自動的に入力します。
画面更新の制御
処理の効率を上げるため、マクロ実行中は画面更新を一時停止し、最後に再開します。

詳しい解説

このマクロのポイントは「データを安全に操作すること」と「無駄な操作を避けること」です。

「列の挿入」処理
Excelでは新しい列を追加することで、既存のデータを破壊することなく情報を挿入できます。このマクロは2回連続してA列に列を挿入して、最初の列に「今日の日付」、次の列に「曜日」を作成します。
「最終行の取得」
ws.Cells(ws.Rows.Count, 3).End(xlUp).Row で、C列の最終行を取得しています。この方法により、入力されたデータの範囲を動的に特定できます。
「日付と曜日の入力」
Date はVBAで今日の日付を取得するための関数です。また、Format(Date, "aaa") で「月」「火」など短縮された曜日を取得しています。

動作における注意点

C列にデータが入力されていない場合
データが1行以下だと判断されると、警告メッセージが表示されて中断します。これはデータが存在しない状態で無駄な処理をしないためです。
マクロを複数回実行しないようにする仕組み
既に「今日の日付」の列がある場合は、中断するように設計されています。

参考リンク

Sub 今日の日付と曜日を新しく列を追加して必要な分だけいれるよ()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    Set ws = ActiveSheet
   
'    すでに今日の日付という列がA列にあったら実行を終了する
    If ws.Cells(1, 1) = "今日の日付" Then
        MsgBox "今日の日付の列が既にあります"
        Exit Sub
    End If

'    A列に新しい列を挿入する
    ws.Columns("A").Insert
    ws.Cells(1, 1) = "曜日"
    ws.Columns("A").Insert
    ws.Cells(1, 1) = "今日の日付"
    
'    B列の最終行を取得
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.count, 3).End(xlUp).Row

'    B列に値が1つ以下しかない場合は実行を終了する
    If lastRow <= 1 Then
        MsgBox "C列に値がありません"
        Exit Sub
    End If
    
'    今日の日付を必要な行数分だけ入力する
    Dim i As Long
    For i = 2 To lastRow
        Cells(i, 1) = Date
        Cells(i, 2) = Format(Date, "aaa")
    Next i
    Application.ScreenUpdating = True
End Sub

English Translation

Add Today's Date and Day of the Week as New Columns

This explanation is created by ChatGPT.

This macro adds two new columns, "Today's Date" and "Day of the Week," to the active Excel sheet and automatically populates them with the necessary data. Below is an explanation of how it works.

Overview

Check if the "Today's Date" column already exists
The macro first checks if the first row of column A contains "Today's Date." If it does, the process is aborted to avoid duplicate columns.
Insert new columns into column A
It inserts two new columns at column A: one for "Today's Date" and the other for "Day of the Week." Existing data is shifted to the right.
Determine the number of rows with data
The macro identifies the last row with data in column C to decide the range for processing.
Abort if there’s insufficient data
If column C contains only one or fewer rows of data, the process stops to avoid unnecessary operations.
Populate "Today's Date" and "Day of the Week"
Based on the number of rows in column C, the macro fills column A with today's date and column B with the corresponding weekday (e.g., Mon, Tue).
Screen updating control
To improve efficiency, screen updating is turned off during processing and re-enabled afterward.

Detailed Explanation The macro prioritizes safe data handling and avoiding unnecessary operations.

"Column Insertion"
By inserting new columns, the macro ensures that existing data is preserved while adding new information. This is done twice to create the required two columns.
"Last Row Retrieval"
The code ws.Cells(ws.Rows.Count, 3).End(xlUp).Row identifies the last row with data in column C, dynamically adapting to the data range.
"Date and Day of the Week" Input
The Date function retrieves today's date, while Format(Date, "aaa") returns shortened weekday names like "Mon" or "Tue."

Operational Notes

No Data in Column C
If column C has insufficient data, the macro shows a warning message and exits early to avoid unnecessary operations.
Preventing Duplicate Columns
If the "Today's Date" column already exists, the macro stops to ensure that no duplicates are created.

Reference Links