メモ書き

30代のどこにでもいるサラリーマンの日常。2人の男の子の父親。毎日の体験・食べたもの・感じたこと・読んだ本をつらつらと書いています。

【VBA】ファイル名に年月日をつけたい場合の変数の取り方

私はエクセルで資料を作るとファイル名の後に年月日をつけるようにしています。

 

Book1_20191023みたいに。

 

VBAでエクセルファイルの後に作成年月を追加する場合の変数の作り方の覚えです。

実際は〇年〇月〇日〇時〇分〇秒(YYYYMMDDHHMMSS)が対応可能

必要な分だけフォーマットする。

 

Sub 年月追加()

    Dim YYYYMMDD As String
    Dim YYYYMM As String
    Dim YYYY As String
    
    YYYYMMDD = Format(Now, "YYYYMMDD")
    YYYYMM = Format(Now, "YYYYMM")
    YYYY = Format(Now, "YYYY")
    
    MsgBox YYYYMMDD ’年月日の表示 20191024
    MsgBox YYYYMM   ’年月の表示 201910
    MsgBox YYYY     ’年の表示 2019
    
End Sub

 

ちなみにYYYYMM-1だと201909になった。

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(ザバス)MILK PROTEIN STYLE BODY マンゴー風味 200ml


あんまりマンゴーの味しなかった。


ザバス)MILK PROTEIN STYLE BODY マンゴー風味 200ml

>カラダづくりに有効なミルクプロテイン
>12.5gと運動する女性に必要な3種の
>ビタミンB群と鉄分を配合し、運動後に摂取す>ることでスタイルや体型の維持・向上をサポー>トします。
>すっきりと飲みやすいマンゴー風味の乳飲料で>す。


女性向け商品だったのか🤣
まあ、これなら私は普通のザバス飲むかな〜

とみ田つけめん





セブンイレブンプレミアム


魚介が濃厚で美味しかったです。
コンビニの冷凍食品って食べたことなかったけど、思った以上に満足でした。

Coke ON Payできました

昨日対応できる自販機の設置箇所が

少ないと嘆いていたのだけど、
たまたま通勤途中に対応の自販機を発見

PayPayとLINE Payでそれぞれ購入
支払い方法を変更するめんどさはあるけど、
購入することができました。

その時に気づいたのですが、100円のコーヒーってあるのね。即還元だから、実質タダでコーヒー2本もらったと。なんとお得なことか爆笑
 


Coke ON Pay をしようと思ったのに

ちなみに Coke ON Payってこのことね

「LINE Pay」と「PayPay」両方の決済サービスを毎週使用すると、100円 x 4週間 x 2で合計800円相当の還元がされるってイベントのことです。

お得ですよね〜



で、ここからが問題だった。


せっかく

PayPayもLINE Payも入ってるから

やってみようと思ったのにえー



名駅の周りには対応してる自販機全くないんですけどー!!!


近いところで名城公園って…ムキー

遠い!

この数日で対応する自販機増えてくれないかな!!!