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

ExcelマクロVBAとエクセル関数についての私的雑感
公開日:2020-01-29 最終更新日:2020-01-31

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


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


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

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

「いくつ寝る」かの定義

・毎日必ず寝る
・1日1回しか寝ない
・深夜0時前に寝る

使用するエクセル関数

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

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

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

対応するVBA関数
DateSerial関数
DateSerial関数は、引数に指定した年、月、日に対応する日付を返す関数です、バリアント型(内部処理形式DateのVariant)の値を返します。DateSerial関数 DateSerial(year,month,day) year 必ず指定します。
Year関数
Year関数は、日付から年の値を返します、バリアント型(内部処理形式IntegerのVariant)の値を返します。Year関数 Year(date) date 必ず指定します。日付を表すバリアント型(Variant)の値、数式、文字列式、またはこれらを組み合わせた値を指定します。
Date関数
Date関数は、現在のシステムの日付を返します、バリアント型(内部処理形式DateのVariant)の値を返します。Date関数 Date 現在の日付を設定するには、Dateステートメントを使います。グレゴリオ暦の場合、DateとDate$の動作は同じです。

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

来年の元旦を求める数式

今年の年に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関数を使うのも良いでしょう。
複数の文字列を1つの文字列に結合します。引数には、文字列、数値、セル参照が指定できます。CONCATENATE関数の書式 CONCATENATE(文字列1[,文字列2,...]) ※[]は省略可能です。
Office365または永続版2019なら、CONCAT関数も使えます。

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



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

「ネ申Excel」問題 への同意と反論

「ネ申Excel」、私は流行に疎いので、ネ申の意味が最初分からなかった、どうやら、「神Excel」のことのようです、大学教授が書いた、Excelの問題点と解決策の提案がかかれた論文です、この論文に対する、私なりの同意と反論です。Excelを論ずるのに、なぜネ申などという言葉を使ったのか、私には少々理解しがたい部分も…
「Excel3ステップ理論」3階層システムの応用
エクセルでシステムを作成する時に、念頭に置くべき3階層の考え方になります、本来はExcelに限った事ではなく、システム作成では常に3階層を考えて設計しますが、さらに考えを推し進めて3ステップとして考えます、つまり、「Excel3ステップ理論」です。データを入力するシートで、さらに集計し、さらに印刷までやろうとしたら、
「ポケモンを確実に見つける方法」をExcelで数学してみた
ポケモンGO関連の記事をみていたら、【ポケモンGO】かくれているポケモンを確実に見つける方法、という記事を読んだ。普通にそうだなという感想なのですが、もっとまじめに数学したら、もっと良い方法があるのではないかと。元記事はあちこちで見た気がするが、多分これでしょ 「【ポケモンGO】かくれているポケモンを確実に見つける…
エクセルで「もういくつ寝るとお正月」
エクセルで連立方程式を解く(MINVERSE,MMULT)
とつぜん連立方程式を解くことになりました。なぜ連立方程式を解くことになったのか、そして、どうやって答えを導き出したのか… これらを自身の覚え書きの意味も含めて記事にしておきます。ただし、行列の難しい説明は抜かして、どうやって解決したかの経緯の説明が中心になります。
VBAが消えてしまった!マクロが壊れて動かない!
2020年4月15日に配信されたWindows10用セキュリティ更新プログラムの不具合で、なんと、VBAが全て消えてしまうという事が発生しています。今後もあり得る事なので、このような場合の対策について記しておきます。VBAが消えてしまうとはどんな状態なのか エクセルファイルを開くと、以下のようなメッセージが出力され…
スピらない スピル数式 スピらせる
タイトルというのはなかなか難しい。当初思ったお題は、・スピらぬなら壊してしまえスピル数式 ・スピらぬならスピらせてみようスピル数式 ・スピらぬならスピルまで待とうスピル数式 もちろん、壊してしまう訳には行かないし、待っていたってスピルする訳ないし… 当然「スピらぬならスピらせてみようスピル数式」と言う事になる。
難しい数式とは何か?
エクセルでは難しい数式は要らない、𝕏ではそんな話を良く目にします。同じことをするのなら、難しいより簡単な方が良い、それは当たり前ですね。では「難しい」とは何を指しているのでしょうか? 普段良く「数字で語る」みたいなことを言いますが、「難しい」の基準もなくそれを計る尺度も存在しない極めて曖昧な話…
いくつかの数式の計算中にリソース不足になりました。
365のエクセルで最近になって急に出始めたエラーメッセージです。「いくつかの数式の計算中にリソース不足になりました。そのため、これらの数式の値を求められません。」何が原因で出力されるメッセージなのでしょうか… どのような対処をしたら良いのでしょうか… エラーメッセージの詳細 かつて見た覚えのないメッセージです。
無効な前方参照か、コンパイルされていない種類への参照です。
365のエクセルで最近(2023年の後半くらい)になって急に出始めたエラーメッセージです。いくつかのプログ等で対策が書かれているのを見かけましたが、これと言った決め手も無さそうに見受けられました。つまり、書かれている方法で解決した人もいれば解決しない人もいるといった状況に見受けられます。
エクセルが起動しない、Excelが立ち上がらない
365のエクセルで最近(昨年くらい)から急に出始めた不可解な謎現象です。一時的な現象もしくは特定(私)のPCだけの現象だと思っていたのですが、時がたつにつれて一般的に発生している現象ということがわかってきました。なにより、最近新しいWindows11のPCを購入しましたが、そのPCでも発生するようになったからです。


新着記事NEW ・・・新着記事一覧を見る

エクセルが起動しない、Excelが立ち上がらない|エクセル雑感(2024-04-11)
ブール型(Boolean)のis変数・フラグについて|VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する|VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次|エクセルの神髄(2024-03-20)
VBA10大躓きポイント(初心者が躓きやすいポイント)|VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。|エクセル雑感(2024-02-17)
初級脱出10問パック|VBA練習問題(2024-01-24)
累計を求める数式あれこれ|エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE|エクセル入門(2024-01-03)


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

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.繰り返し処理(For Next)|VBA入門
5.RangeとCellsの使い方|VBA入門
6.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
7.並べ替え(Sort)|VBA入門
8.メッセージボックス(MsgBox関数)|VBA入門
9.セルのクリア(Clear,ClearContents)|VBA入門
10.ひらがな⇔カタカナの変換|エクセル基本操作




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


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


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