• ベストアンサー

記入した日付

エクセルについて。 あるセルに記入した日付(5月2日など)を、他のセルに自動的に記入したいです。 B1セルに =IF(ISNUMBER(A1),TODAY(),"") で良いと思ったのですが、再計算(?)などで、すべて当日になってしまいました。 よろしくお願いいたします。 エクセル2007

質問者が選んだベストアンサー

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.3

こんばんは! 関数で表示されている場合は「再計算」されてしまいますので、 実データにする必要があると思います。 一番簡単な方法はB1セルを選択 → Ctrlキーを押しながら「;」(セミコロン)を押下 これで日付が表示されます。 ただし、質問には「自動的に」とありますので この方法では「自動的に」という訳にはいきません。 そこで別案として、A1セルに何か入力されたらB1セルを「今日の日付」にする一例です。 VBAになってしまいます。 画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に ↓のコードをコピー&ペーストしてA1セルにデータを入力してみてください。 Private Sub Worksheet_Change(ByVal Target As Range) 'この行から With Target If .Address = "$A$1" Then With .Offset(, 1) .Value = Date .NumberFormatLocal = "m月d日" '←表示形式は好みで! End With End If End With End Sub 'この行まで 参考になりますかね?m(_ _)m

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (5)

  • Nouble
  • ベストアンサー率18% (330/1783)
回答No.6

失礼、 訂正です。 できますね

全文を見る
すると、全ての回答が全文表示されます。
  • Nouble
  • ベストアンサー率18% (330/1783)
回答No.5

酷なようですが、 「自動再計算を手動計算に設定する」 などを、しない限り ほぼ 関数式の結果は書き換えられる。 と、認識して下さい。 現状では絶対に避けられません。 誰も未だ回避できていません。 そもそも、 NOW構文やTODAY構文を使うのであれば PCの時計が進む限り 現状として「変化を止められない」 のですから。 これらの構文は 単純にPCの時計を読み出しているだけですよね? ならばPCの時計が変る限り変わり続ける。 ハードで云うところの「バッファのような仕組み」を 数式で表現しない限り 無理です。 これらの構文に処理が渡らないと バッファ機構がない限り 日時、時刻は、 表示されない。 現状として、 バッファ機構式は作られていない。 これらの構文に処理が渡った途端に、 値は問答無用で書き換えられる。 と、云うことの どれかを変えられない限り、 「数値を取得しようとすると変ってしまう。」 のは避けられないでしょうよ? 敢えて言えば、 「選択肢A及びBがあり、結果がC、及びDがある」 という時に置いて、 条件付けを上手く行えばA、B、どちらを選ぼうと結果がCになる。」 ということは 在りうりますが、 そもそも、 上記において、Cを如何なる場合も選択的に選べようとも Cが出す演算値そのものにバッファが無く、コロコロ変れば 結果として数値を固定できない。 とならないですか? 今回はこれに当たるのです。 「セルで演算結果値を固定すること」 はできない。 これが今の限界です。 恐らくは、 ハードウエア設計上で常識の「バッファ」的な 「タイミングパルスが入るまで何があっても変らない」 と、いったようなものを目指されているのだ と、思いますが、 少なくとも 今までの者では これは乗り越えられていないですよ。 望むなら 御自らでつくるしかない と、思います。 他に聞いても無理でしょう。 今の限界ですから。 お力になれなくて済みません。

全文を見る
すると、全ての回答が全文表示されます。
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.4

>あるセルに記入した日付を、他のセルに自動的に記入したい 画面左上のOfficeボタンからエクセルのオプションの数式欄で反復計算を行うにチェック A1セル(A列)をとりあえず消去(必ず行う) B1セルに =IF(A1="","",IF(B1="",NOW(),B1)) と記入、セルの書式設定を日付にしておく その後A1セルに記入する。 と出来ます。 #ご質問の通りにA1に(初回)記入した日付をキープします。 つまり既に記入済みのA1を書き換えても更新されないので、もしそう言いたかったのなら一回A1をDeleteしてから行います。

全文を見る
すると、全ての回答が全文表示されます。
  • kybo
  • ベストアンサー率53% (349/647)
回答No.2

=IF(ISNUMBER(A1),A1,"") として、B1のセルでセルの書式設定→表示形式→日付で適当なのを選んでOK

全文を見る
すると、全ての回答が全文表示されます。
  • W-164
  • ベストアンサー率30% (384/1279)
回答No.1

ふつうに、表示したいセルで、 「=(日付を入力したセル)」 という様に、日付を入力したセルを参照しただけでは駄目なんでしょうか。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • Excelのマクロで基準日から見た日付の前後を判定したい

    Excelのマクロについて質問です。 初歩的な内容かもしれませんが よろしくお願いします。 マクロで日付を扱おうとしたのですが うまくいきませんでした。 ある日付が基準日から見て前の日か後ろの日かを 判定しようとしたのです。 たとえば セルA1に入力した日付が 今日より先ならセルB1に「1」を 後なら「2」を表示しようとして If Range("A1") > "=TODAY()" Then Range("B1") = 1 Else Range("B1") = 2 End If このようにすると セルA1にどのような日付を入れても セルB1は「2」と表示されてしまうのです。 "=TODAY()" の部分に問題があるのでしょうね。 でも、確かこれで今日という日付を 表しているのではなかったでしょうか… 日付はどのように扱われているのでしょう。 回答をお待ちしております。

  • Excelで日付を挿入

    このセルを入力した日付を、こっちのセルに自動で入れる方法を教えて下さい。 入力日なので、TODAY() では上手くいきません。 セルが入力されて居ないときは、空白にしたくて、=IF(A1="","",TODAY()) なんて事もしてみたのですが、現在の日付で入力日ではないので上手くいきません(当たり前ですが…) 多分No.101と同じ質問だと思うのですが、何せ初心者なので意味が判りません。 もう少し判り易く教えていただけるとありがたいです。お願いします。

  • 3ヵ月後の日付を自動計算しようと思っているのですが、上手くいかなかった

    3ヵ月後の日付を自動計算しようと思っているのですが、上手くいかなかったのでご質問させていただきます。 3ヵ月後の日付をエクセルで自動的に計算させようと思って、いろいろ試行錯誤しているのですが、上手くいかなかったので、ここに質問させていただきました。よろしくお願いいたします。 で、単純に3ヵ月後を計算させようと思い、ExcelのWorkday関数等を利用して、以下のような式を考えました。 =WORKDAY(DATE(YEAR(A1),MONTH(A1)+3,DAY(A1)-1),1,B1:B38) ここで、セルA1には基準日を入力し、セルB1からB38には国民の祝日を入力しています。 で、これでほとんどの場合で上手くいったんですが、例えば明日8月31日を基準日とした場合、3ヵ月後を、基準日が月末なので3ヵ月後も月末で揃える格好で日付を指定したいと考えており、エクセル関数の組み合わせでとまってしまいました。 つまり8月31日を基準日としたような場合は、求める日付として11月30日(11月30日が土日や祝日の場合は、更にさかのぼって11月29日だったり、11月28日が求める日付)となるようにしたいと考えております。 どなたか、お知恵を拝借できればと思っております。よろしくお願いいたします。

  • 入力した日付から指定の日付を表示

    Excel計算式を教えて下さい。 目的)A1セルに入力した日付を元に、B1セルに指定の日付(毎月20日締)を表示したい。 ルール例) A1に 3月21日~4月20日の間の日付を入力すると、B1に4月20日を表示。 値の例) A1:2013/2/21→B1:2013/3/20 A1:2013/2/27→B1:2013/3/20 A1:2013/3/15→B1:2013/3/20 A1:2013/3/20→B1:2013/3/20 A1:2013/3/21→B1:2013/4/20 A1:2013/3/28→B1:2013/4/20 A1:2013/4/8→B1:2013/4/20 A1:2013/4/20→B1:2013/4/20 上記を実現する計算式を教えて下さい。

  • 入力した日付

    セルA1に名前を入れるとセルB1に名前を入れた日付が入って、その日付は明日も名前を入れた日付のままにするにはどうすればいいのでしょうか? NOW()やTODAY()では当日の日付が入ってしまって、翌日も当日になってしまうので・・ 入力して日付をそのまま変えたくないのですが。 教えて下さい。

  • 入力した日付から指定の日付を表示

    Excel計算式を教えて下さい。 目的)A1セルに入力した日付を元に、B1セルに指定の日付(毎月20日締)を表示したい。 ルール例) A1に 3月1日(月初)~3月31日(月末)の間の日付を入力すると、B1に4月20日を表示。 値の例) A1:2013/3/1→B1:2013/4/20 A1:2013/3/15→B1:2013/4/20 A1:2013/3/31→B1:2013/4/20 A1:2013/4/1→B1:2013/5/20 A1:2013/4/20→B1:2013/5/20 A1:2013/4/30→B1:2013/5/20 上記を実現する計算式を教えて下さい。

  • 予定日までの日付までを自動入力するには?

    Excelで予定日までの日付を表に自動的に入力されるようにするには、どうしたら良いでしょうか? 例・ 今日の日付を「4月15日」とします。 A1 に予定日を入力とします。    A1 4月18日 ←TODAY()+3 で指定。プラスの日付は常に変更される。(+2,+10など)    B1 4月15日 ←今日の日付が入る。    B2 4月16日 ←以下、 A1 の日付まで続く。    B3 4月17日    B4 4月18日    B5  月 日 ←A1を超えると、数字を除いた「 月 日」の表示がされる。    B6  月 日    :    : A1で指定した日付が3日後なら、今日から4日間の日付。10日後なら、今日から11日間の日付という形で自動で入力されるようにしたいのです。 A1 のTODAY()+後の数のみの変更で、入力できたらと思っています。 ご協力、お願いします。

  • 日付の関数

    エクセルの資料で=TODAY()(今日日付が入るように設定してあるセルがあります。・・でその下のセルには今日の日付の月の末日が入るようにしたいのですが(例えば セルA1に2004年1月14日 セル2に2004年1月31日と表示させたい)どのような関数を使えばいいですか?宜しくお願いします。

  • エクセル 日付表示

    エクセルで、A1に文字や数字を入力すると B1ではその日の日付を自動的に表示させたいの ですが、today()を使うと日付も変わるので 日付を変えない方法を教えてください。

  • 【Excel】日付以外で隣りのセルに別の言葉を表示

    以前、入力した日付に応じて別のセルに本日とか明日と表示させたいと質問したものです。 色んな方のお知恵をお借りして、下記のように入力することで解決致しました。 =IFERROR(IF(AND(A1<>"",E3<TODAY()),"期限切",IF(AND(A1-TODAY()>2,E3-TODAY()<8),"今週",IF(A1-TODAY()>7,"予定",CHOOSE(A1-TODAY()+1,"本日","明日","明後日")))),"") 詳細はこちらで→ https://okwave.jp/qa/q10194294.html そこで更に質問です。 今現在は、A1のセルに日付を入力するとB1のセルに本日とか明日とか出るようにしているのですが 今までのものに加えて、日付以外の文言(例えば「終了」とか)を入れた場合に、「完」と表示させることは可能でしょうか。 可能であればやり方を教えてください。A1セルと同じ言葉をB1に表示させるでも良いです。 それか、日付でなければなにか文言が入るとかでも良いです。 日付以外の文言は1種類(終了)だけを想定していますが、複数種入れられるのであればそのやり方も教えて頂けると助かります。 要はA1セルに入力する内容によって、下のように表示できるようにしたいということです。 A1セル B1セル 2023年11月4日 期限切 2023年11月6日 今日 2023年11月7日 明日 2023年11月8日 明後日 2023年11月10日 今週 2023年11月18日 予定 終了 完 よろしくお願いします。

このQ&Aのポイント
  • 【DCP-J152N】を使っていたが、久しぶりに使おうとした時に記録紙のエラーが発生した。取扱説明書の方法を試したが解決しなかった。普通紙やハガキに用紙を変えてみたが、エラーが消えず印刷できない状態が続いている。
  • エラーメッセージ『記録紙が送れません』が表示され、どうしても印刷ができない。対処法について相談したい。
  • 【DCP-J152N】を長い間使用していなかったが、再び使おうとした時に記録紙のエラーが発生。取扱説明書に従ってトラブルシューティングを行ったが、問題が解決しない。異なる用紙を試してもエラーが続くため、解決策を教えてほしい。
回答を見る

専門家に質問してみよう