Excel ある複数列に数値を入力した際に、別の列に本日の日付を入力したいです

Question

大変お世話になっております。
F列（5桁ほどの数字）を起点として、FE列程まであるデータを営業日に入力しています。
その作業後、入力を行ったF列の行だけ、FJ列に、『本日の日付』（Today関数？のようにファイルを開くと、日付が変わるといけないため、ファイルを開いても変更しない固定した日付）を入力するVBAを作成したいです。
2023/3/1といった日付です。（時間は必要ありません）
コードをお教えいただけると大変有難いです。（Win11 Office365です）
ご回答を心よりお待ちしております。
どうぞ宜しくお願い申し上げます。

goomania · Accepted Answer

>F列（5桁ほどの数字）を起点として、FE列程まである
>データを営業日に入力しています。

ということなので、営業日ごとに行が複数行追加されていき、当日追加された行のFJ列に「処理日当日」の日付を入れたいというご希望だと理解しました。

ご質問者の表の全体構成および実施内容の全体像が不明で、このご質問は全体の実行内容の一部ということですので、多少荒っぽい処理になります。つまり、「とりあえずできる」レベルの回答になってしまいます。

仮に一行目が見出しで2行目から入力が開始されているものとし、F列にデータ入力開始行から最終入力行までの中間に空白セルはないものとした場合、ご質問者のお考えのとおり、FJ2セルに以下のように、「今日」を返す関数を入れて、下方向へコピーし、セルの表示形式は日付にしておきます。

FJ2:=IF(F2="","",TODAY())

これで、F列に5桁ほどの数字が入力された段階で、入力日当日の日付が表示されます。ただ、ご質問者の懸念のとおり、
>Today関数のようにファイルを開くと、日付が変わるといけない
という課題があります。TODAY関数のままでは、ファイルを保存して、開くたびに、開いた日付に変わっていってしまいます。

そこで、VBAを使って、TODAY関数を値に変換してしまうという方法をとります。仮に、ご質問者の説明がsheet1の説明だとすると、

Sub input_date()
Dim i As Long
With Sheets(1)　　　　'対象シートを指定
i = 2         'データ開始行
Do While .Cells(i, "FJ").Value <> ""　　　　'空白行(未入力行)になるまで
    .Cells(i, "FJ").Value = .Cells(i, "FJ").Value　　　'値にする
    i = i + 1
Loop
End With
End Sub

というコードを実行すれば、その日入力した分までの日付が値に変換されます。このコードはもともと値になっているものも値に変換しますので、無意味なことをやっているわけですが、最初に述べたとおり、ご質問者の表の全体構成および実施内容の全体像が不明で、このご質問は全体の実行内容の一部ということですので「とりあえずできる」というレベルの回答です。

また、そのようなケースがあるかどうか不明ですが、夜中の0:00を跨ぐようなF列への入力があれば、TODAY関数を記述したセルは一斉に新しい日付に変更されますので、上記コード実行前であれば、一連の入力作業中のセルは既に表示されていたセルの日付も最新の日付に更新されます。その後上記コードを実行すれば、一連の入力作業の最終終了日付が表示されるということになります。

銀鱗 · Answer

どうしてもマクロで処理したいのであれば、間違って記入済みの個所に入力してしまった時の処理も考えましょう。

質問文ではそこまでの言及がありません。
ですので自分はマクロでの作業をお勧めすることができないんです。

（誤入力対策で、自分なら入力後に日付入力のセルにジャンプしてそこで手動で日付を入力するようにする。誤入力ならその段階で入力し直すかアンドゥで誤入力そのものをキャンセルすれば良い）

・・・

「代わりに作ってください」という事であれば、お金を払って専門家に依頼しましょう。
ここは自力で問題を解決できるようなアドバイスをもらう場所です。

mimon01 · Answer

その程度のことなら、わざわざVBAで書く必要はなくて、
当該セルの編集で、セルの中を =TODAY() まで書いてEnterではなくF9で更新すれば、値として定まります。
どうしてもVBAで書きたいのなら、Range("FJ1:FJ255")=Date とでもしておけば、そのマクロを再実行しない限り値は変わりません。

Qchan1962 · Answer

こんばんは
VBAで処理する必要があるかは分かりませんが
変えないのであれば手入力（ショートカットキーなどを使い）が簡単で速いです

以下はVBAの記載に反応しました
残念ながら補足いただいても私が回答できるかは分かりません

なさりたい事の要件が良く解らないので本来は回答するべきでないかも知れませんが、いくつか補足が必要と存じます

関数も同様ですがVBA（プログラム）の場合、実行トリガーを示す必要があります

Excel関数（Today関数？）の場合に日付が変わるのは、シートの自動計算が実行される為です

つまりは、VBAでも　《どのタイミングで》　｢固定した日付｣を対象範囲に入力するかで変わります

VBAのトリガー（処理の実行起点）はボタンのクリックイベントやシートの複数イベント・・・シートがアクティブなるタイミング、ブックを開いたり閉じたり、保存するタイミングなどなど・・多くあります

コードを書いてほしいと言う事は分かりますが、どのタイミングで実行するのか　また現在どの程度のコードを書いている（書ける）のかなどが解らないと　どこからどこまで回答すれば良いのか、・・・
限定的（提示の条件のみで正しく処理される）コードでその場限りで良いのか、それとも　ご質問条件はダミーで実際に使う為には自身である程度（すぐに）の改修が必要なのか・・・

使いたいだけなのか？学習したいのか？などを回答者は想像する必要があり
結果、有益な回答を理解出来なかったり、間違えのある回答を選んで苦しむ結果になる事もあると思います

本来、プログラムコードなどやアドバイスが必要な場合、
ご質問者様のスキルやコードの趣向などが回答者に伝わるようにするのが良いと思います。スキルが大きく違う回答をしても無駄になる場合が多いのではと思いますから・・

以上のことなどから、現在自身で書いて問題を生じているVBAコードや具体的な躓きポイントを示されるのが良いと思いますよ

余計な事ですが
もし、学習目的などで無く、やりたい事を書いて処理コードを書いてもらいたいだけであれば、最低でもVBAの要件定義について　少しだけ学習する事をお勧めします
もっとも要件定義が完璧ならば、要件をChat GPTに投げ【最近のはやり？】、出来上がった処理コードを自身で検証して（簡単なデバッグ）問題が発生した事象についてQAサイトにご質問すれば・・・コードの難しい事が分からくともコピペ程度の検証で目的が達成できそうですね・・・・

長文で申し訳ありませんが、今一度　ご質問を整理され要件をゼロからコンプリートまで順を追って確認（定義）してみてください

既に回答されている内容を考察するべきと思います
（補足が付く前に書きました）
であれば、＃３様の回答で実現できると思います

fujillin · Answer

こんばんは

データが始まるのがどの行からか不明なので、1行目からと仮定。

Range("FJ1").Resize(Cells(Rows.Count, 6).End(xlUp).Row).Value = Format(Now, "yyyy/m/d")

サクラノキ · Answer

Today関数を使うのではなく、手打ちかNo1のショートカットキーで十分だと思います。

銀鱗 · Answer

(´・ω・`) そんなだったらマクロにする必要ないでしょ。
都度
　Ctrl＋;
でその日の日付を入力すればいい。

Excel ある複数列に数値を入力した際に、別の列に本日の日付を入力したいです

>F列（5桁ほどの数字）を起点として、FE列程まである

どうしてもマクロで処理したいのであれば、間違って記入済みの個所に入力してしまった時の処理も考えましょう。

その程度のことなら、わざわざVBAで書く必要はなくて、

こんばんは

こんばんは

Today関数を使うのではなく、手打ちかNo1のショートカットキーで十分だと思います。

(´・ω・`) そんなだったらマクロにする必要ないでしょ。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング