エクセル　日付が変わると同時にセルを空にしたいです

Question

こんな事が出来るのかも分からないのですが…

エクセルでＢ４にTODAYで日付が表示されるようにしています。
その日付が変わるとＢ５～Ｂ３２のセル内を空にしたいのですが可能なのでしょうか？
マクロなどは使った事がなく全くわかりません…。
関数などでそういった設定は出来るのでしょうか？

出来れば本日中にお答えいただければ幸いです！
分かりにくい文面で申し訳ありませんが、よろしくお願いいたします！！

excelist · Accepted Answer

今のままでは無理だと思われます。

というのは「日付が変わると」という部分の判断が今のままでは難しいからです。文面から判断するに「前回のブック保存時の日付」が「今回ブックを開いた日付」と違う場合（つまり翌日以降）にセルを空白にしたいのだと思います。今だと「前回のブック保存時の日付」の情報がどこにもないと思います。

それと、関数で実現するのは難しいです。
関数で「空白に見せる」ことは可能ですが「空白にする」というのは無理だからです。

以上を踏まえると
１．ブック保存時に現在日付を自動でどこかのセルに書き込む
２．ブックを開いたときに現在日付と保存日付を比較して日付が異なっていたらセルをクリア
という２種類のマクロが必要になると思います。

そこそこ知識がないと上記の処理は作れないと思いますので、お手軽にやりたいのであれば「マクロの記録」を使ってＢ５～Ｂ３２を選択⇒DELETEキーで空白にする、という動作を記録して、セルをクリアしたいときにはそのマクロを実行する、というのがよいかも知れません。

MarcoRossiItaly · Answer

皆さんもおっしゃっているとおり、どこかのセルをクリアする関数、数式というのはないと思います。

となるとマクロですが、ただ、消すことはできても、次のことが気になります。

●質問者さんがチェックされた後に入力された○印は、（それ用のマクロを同時に使わなければ）記録に残らない。
●自動にするということは、他の誰がファイルを開いたとしても、比較対象の日付とその日の日付が異なっていれば、データは消えてしまう。（マクロ有効で開けば）

これではちょっと嫌だなということでしたら、次のような運用にするのはいかがでしょうか？こうすれば、勝手に消える心配もなく、ゆっくりチェックなどの作業ができます。

1.○印を入力する列を、2つ用意しておく。
2.左の列には「～6/16」、右の列には「6/17～」といった日付（質問者さんによるチェック日）を上部にでも表示しておく。
3.社員の皆さんには、該当するほうの列を選んで入力してもらう。

tom04 · Answer

こんにちは！
横からおじゃまします。

関数でお望みの操作となると、かなり難しいと思います。
（簡単にできる方法があればごめんなさい。）

そこでお望みでないマクロになってしまいますが、一例です。

Alt＋F11キー　→　画面左側の「This Workbook」をダブルクリック　→　VBE画面に
↓のコードをコピー＆ペーストしてBookを保存してみてください。

次回、ブックを開いた時点でB4セルが開いた日付でない場合はB5～B32データを消すようにしています。

Private Sub Workbook_Open() 'この行から
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1") '←「Sheet1」の部分は実際のSheet名に！
    If ws.Range("B4") <> Date Then
        With ws.Range("B4")
            .Value = Date
            .NumberFormatLocal = "yyyy/m/d" '←セルの表示形式は好みで！
        End With
    ws.Range("B5:B32").ClearContents
    End If
End Sub 'この行まで

※　Bookを開くときに「セキュリティ警告画面」が出てしまいますが、
「マクロを有効にする」を選択してください。

※　B4セルの関数は消えて、生データの日付になってしまいます。

以上、参考になりますかね？m(_ _)m

KURUMITO · Answer

B4セルが本日以外の日付ならばB5セルからB32の範囲のデータのフォントを白色にして見かけ上データが無いようにすることで良いのでしたら次のようにします。
B5セルからB32セルまでを選択してから「ホーム」タブの「条件付き書式」で「新しいルール」をクリックします。
「数式を使用して…」にチェックをして下の窓には　=B$4<>TODAY()  と入力し、「書式」では「フォント」の色を白色にしてOKします。
上以外ではマクロを使用することになるでしょう。

エクセル 日付が変わると同時にセルを空にしたいです

今のままでは無理だと思われます。

この回答への補足

皆さんもおっしゃっているとおり、どこかのセルをクリアする関数、数式というのはないと思います。

こんにちは！

B4セルが本日以外の日付ならばB5セルからB32の範囲のデータのフォントを白色にして見かけ上データが無いようにすることで良いのでしたら次のようにします。

この回答への補足

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

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

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

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

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

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

エクセル　日付が変わると同時にセルを空にしたいです