Excelのこととか色々

マクロをどんな Excel ファイルにも実行できるように設定して、3秒かかる操作も1秒で完了。あといろいろ書いてみます・・・

【VBAスタンダードに挑戦!】ブックを保存する/Format, Now, 日付関数

【VBAスタンダードに挑戦!】

f:id:tuna-kichi:20200614200940p:plain

 

本日の5分勉強の内容

 

 

********************************************************

ブックを保存する

・名前を付けて保存するときに SaveAs メソッドを使う

・アクティブブックを保存する場合
 ActiveWorkbook. SaveAs "C:\20200806_議事録.xlsx"

・拡張子も指定する

・ファイル名に日付を指定する場合に Format 関数が使える

・Format(値、書式記号)

・Format 関数の引数の値に Now 関数などの日付の関数を使用できる

 

                  

Now関数

・Now (シート上で使用する場合は Now() と、かっこが必要)

・実行時点での日付と時刻を取得する

Msgbox Now

f:id:tuna-kichi:20200806091315p:plain

Year/Month/Day関数

ActiveWorkbook.SaveAs "C:\" & Year(Now) & "_議事録.xlsx"

・上記の場合のファイル名は「2020_議事録.xlsx」となる

・Year(Now) で、Now関数から Year の箇所のみを取得する

・Month(Now), Day(Now) も Year と同じように、
 Now 関数から月のみ、日のみ取得する

Format 関数

ActiveWorkbook.SaveAs "C:\" & Format(Now, "yyyymmdd") & "_議事録.xlsx"

・上記の場合のファイル名は「20200806_議事録.xlsx」となる

・引数の書式記号にダブルクオーテーションを忘れないように

本日は2020年8月6日

yy = 20 (下二けた)
yyyy = 2020

m = 8
mm = 08
mmm = Aug
mmmm = August

d = 6
dd = 06
ddd = Thu
dddd = Thursday

Format(Now, "yyyy/mmm/dd-ddd" = 2020/Aug/06-Thu

※上記は マクロから実行した場合です

********************************************************

目的のファイルを開いて、

必要なデータを取得したら保存せずに閉じているので、

いままでファイルの保存は、ほとんど実行したことがありません。

 

 

業務で扱う資料はほとんどが他の社員と共有しているので、

担当者が更新しないと正しいデータかどうか わからなくなってしまいます。

バックアップはあると思いますけどね。

 

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

Excelのこととか色々 - にほんブログ村 にほんブログ村 子育てブログ 幼稚園児育児へ にほんブログ村 英語ブログ 初心者英語へ にほんブログ村 IT技術ブログ VBAへ

==================================

  Graspyで無料プログラミング講座を受講する