今日は2020年1月31日です。早いもので1月が終わろうとしています。2020年も12分の1がすでに終わろうとしています。この調子では、あっという間に今年(2020年)も終わってしまいそうです。今年はあと何日残されているのだろう。いくつねると2021年のお正月になるのだろう。いうことで、エクセルで「もういくつ寝るとお正月」になるのか計算してみたいと思います。引数の年,月,日を日付を表すシリアル値に変換します。セルにDATE関数を入力すると、セルの表示形式は自動的に日付形式に設定されます。1~4桁で年を指定します。月を表す正または負の整数を指定します。日付に対応する年を返します。引数に指定した日付の西暦年を、1900(年)~9999(年)の範囲の整数で返します。日付の入っているセル参照または、DATE関数等を指定します。現在の日付に対応する値を返します。セルにTODAY関数を入力すると、セルの表示形式は自動的に日付形式に設定されます。TODAY関数は、エクセルで再計算が行われない限り、関数を入力した日付のままになります。対応するVBA関数DateSerial関数DateSerial関数は、引数に指定した年、月、日に対応する日付を返す関数です、バリアント型(内部処理形式DateのVariant)の値を返します。Year関数Year関数は、日付から年の値を返します、バリアント型(内部処理形式IntegerのVariant)の値を返します。これらを組み合わせた値を指定します。Date関数Date関数は、現在のシステムの日付を返します、バリアント型(内部処理形式DateのVariant)の値を返します。現在の日付を設定するには、Dateステートメントを使います。MsgBoxDate...2013/06/09システムの日付が表示されます。今年の年に1を足した年の1月1日を求める数式になります。=DATE(YEAR(TODAY())+1,1,1)TODAY()は今日の日付、2020/1/31YEARは年だけを取り出すので、2020つまり、DATE(2020,1,1)となります。上の数式で求められる元旦の前日なので1日引きます。日付は足し引きができます。=DATE(YEAR(TODAY())+1,1,1)-1別の方法もあります。DATE関数の日付には0以下の数値も指定できます。日付に0を指定した場合は、前月の月末日になることを利用します。今日の日付=DATE(YEAR(TODAY())+1,1,1)-TODAY()はい、出ました。336もう336寝るとお正月です。文章で表示してみましょう。文字列は""ダブルクォーテーションで囲みます。文字列をくっつけるのは&記号を使います。CONCATENATE関数を使うのも良いでしょう。複数の文字列を1つの文字列に結合します。引数には、文字列、数値、セル参照が指定できます。※[]は省略可能です。=CONCATENATE(A1,Office365または永続版2019なら、CONCAT関数も使えます。Next)|VBA入門8.セルに文字を入れるとは(Range,Value)|VBA入門9.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説10.ひらがな⇔カタカナの変換|エクセル基本操作ホームエクセル(Excel)エクセル雑感エクセルで「もういくつ寝るとお正月」このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。GASスプレッドシート入門スプレッドシート応用GAS入門GAS応用ホームエクセル(Excel)エクセル雑感エクセルで「もういくつ寝るとお正月」このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。