エクセルで「もういくつ寝るとお正月」

最終更新日：2020-01-31

エクセルで「もういくつ寝るとお正月」

今日は2020年1月31日です。
早いもので1月が終わろうとしています。
つまり、2020年も12分の1がすでに終わろうとしています。

この調子では、あっという間に今年（2020年）も終わってしまいそうです。
今年はあと何日残されているのだろう。
もういくつねると2021年のお正月になるのだろう。

ということで、エクセルで「もういくつ寝るとお正月」になるのか計算してみたいと思います。

「いくつ寝る」かの定義

・毎日必ず寝る
・1日1回しか寝ない

・深夜0時前に寝る

使用するエクセル関数

DATE関数

引数の年,月,日を日付を表すシリアル値に変換します。セルにDATE関数を入力すると、セルの表示形式は自動的に日付形式に設定されます。書式 DATE(年,月,日) 年 1～4桁で年を指定します。月月を表す正または負の整数を指定します。

YEAR関数

日付に対応する年を返します。引数に指定した日付の西暦年を、1900(年)～9999(年)の範囲の整数で返します。書式 YEAR(シリアル値) シリアル値日付の入っているセル参照または、DATE関数等を指定します。

TODAY関数

現在の日付に対応する値を返します。セルにTODAY関数を入力すると、セルの表示形式は自動的に日付形式に設定されます。書式 TODAY() ※引数はありません。TODAY関数は、エクセルで再計算が行われない限り、関数を入力した日付のままになります。

対応するVBA関数

DateSerial関数

DateSerial関数は、引数に指定した年、月、日に対応する日付を返す関数です、バリアント型(内部処理形式DateのVariant)の値を返します。DateSerial関数 DateSerial(year,month,day) year 必ず指定します。

Year関数

Year関数は、日付から年の値を返します、バリアント型(内部処理形式IntegerのVariant)の値を返します。Year関数 Year(date) date 必ず指定します。引数dateには、日付を表すバリアント型(Variant)の値、数式、文字列式、またはこれらを組み合わせた値を指定します。

Date関数

Date関数は、現在のシステムの日付を返します、バリアント型(内部処理形式DateのVariant)の値を返します。Date関数 Date 現在の日付を設定するには、Dateステートメントを使います。使用例． MsgBoxDate…2013/06/09システムの日付が表示されます。

来年の元旦を求める数式、ついでに今年の大晦日も

来年の元旦を求める数式

今年の年に1を足した年の1月1日を求める数式になります。

=DATE(YEAR(TODAY())+1,1,1)

TODAY()は今日の日付、2020/1/31
YEARは年だけを取り出すので、2020
つまり、DATE(2020,1,1)となります。

今年の大晦日を求める数式

上の数式で求められる元旦の前日なので1日引きます。
日付は足し引きができます。

=DATE(YEAR(TODAY())+1,1,1)-1

別の方法もあります。
DATE関数の日付には0以下の数値も指定できます。
日付に0を指定した場合は、前月の月末日になることを利用します。

=DATE(YEAR(TODAY())+1,1,0)

「もういくつ寝るとお正月」の数式

来年のお正月までの日数は、
来年の1月1日 - 今日の日付

=DATE(YEAR(TODAY())+1,1,1)-TODAY()

はい、出ました。
336
もう336寝るとお正月です。

せっかくなので、文章で表示してみましょう。
文字列は""ダブルクォーテーションで囲みます。
文字列をくっつけるのは&記号を使います。

CONCATENATE関数を使うのも良いでしょう。

複数の文字列を１つの文字列に結合します。引数には、文字列、数値、セル参照が指定できます。書式 CONCATENATE(文字列1[,文字列2,...]) ※[]は省略可能です。使用例セルA1に"ビバ" セルB1に"EXCEL" と入っている場合 =CONCATENATE(A1,B1)…"ビバEXCEL" =CONCATENATE(A1,

Office365または永続版2019なら、CONCAT関数も使えます。

="もう"&DATE(YEAR(TODAY())+1,1,1)-TODAY()&"寝るとお正月"

同じテーマ「エクセル雑感」の記事

offset 検索ワードで非常に多いので「offsetまとめ」
Excelのリンクの管理について
 プログラミングとは
 「ネ申Excel」問題への同意と反論
 「Excel3ステップ理論」3階層システムの応用
 「ポケモンを確実に見つける方法」をExcelで数学してみた
 「VBAによる解析シリーズその2 カッコ」をやってみた
 ツイッターで出されたVBAのお題をやってみた
エクセルで「もういくつ寝るとお正月」
エクセルで連立方程式を解く（MINVERSE,MMULT）
「VBAで導関数を求めよ」ツイッターのお題をやってみた

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ひらがな⇔カタカナの変換｜エクセル基本操作

ホーム
エクセル(Excel)
エクセル雑感
エクセルで「もういくつ寝るとお正月」

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

エクセル雑感
エクセルで「もういくつ寝るとお正月」