今日の日付を自動で取得するﾏｸﾛ（VBAに挑戦）・・・ｴｸｾﾙの便利技: さえないお父さんの独り言

2008年01月29日

今日の日付を自動で取得するﾏｸﾛ（VBAに挑戦）・・・ｴｸｾﾙの便利技

今日の日付を自動で取得するﾏｸﾛをVBAで作るにはどうすればいいか？
このﾏｸﾛは非常に簡単です。
また使えるとも思いますので是非使ってみてください。

わざわざVBAで貼り付けているのはToday関数が今日の日付を表示するので、開くたびに日付が変わってしまうためです。
これでは見積書など日付を保存したい場合に使えません。

←ﾗﾝｷﾝｸﾞ応援お願いします。

準備
ここでは例題を作っていますので数字の入れる場所などは自分で使いやすいようにアレンジしてください。
　sheet2のA1に『today（）』と入力
　　関連記事　今日の日付を表示する）Today（）

　sheet2のA1に今日の日付が表示されるはずです。
　表示されない方はA1を右クリック→ｾﾙの書式設定→表示形式→日付で日付を表示させましょう。

VBAｺｰﾄﾞ
　ﾂｰﾙ→visual　basic　Ediitorをｸﾘｯｸ
　Microsoft　Visual　Basicが開きます。

　挿入→標準モジュールの順でｸﾘｯｸすると標準ﾓｼﾞｭｰﾙが表示されます。

　標準ﾓｼﾞｭｰﾙの中に下記ｺｰﾄﾞをいれましょう。

Sub 今日の日付を取得()
ThisWorkbook.Worksheets("sheet1").Range("A1") = ThisWorkbook.Worksheets("sheet2").Range("A1")
End Sub

　VBAを閉じﾂｰﾙ→ﾏｸﾛの実行→今日の日付を取得でSheet1のA1に日付が転機されます。
　
　最後にsheet1のA1のｾﾙの書式設定を日付に変えれば出来上がりです。

VBA解説
Sub 今日の日付を取得()
ﾏｸﾛの開始（ここで付けた名前がﾏｸﾛ実行時の名前になります。わかりやすい名前にしましょう）

ThisWorkbook.Worksheets("sheet1").Range("A1") = ThisWorkbook.Worksheets("sheet2").Range("A1")
わざと長く書いています。
VBAではｾﾙの場所の特定に、ﾌﾞｯｸ名（ﾌｧｲﾙ名）.ｼｰﾄ名.ｾﾙの場所の順で特定する必要があります。
そのためここの＝の左側の意味は日本語で言うと『このﾌﾞｯｸのsheet1のｾﾙA1』という意味になります。
またVBAでは＝は数式の＝の意味ではなく、＝の左側に＝の右側のものを入れろという意味になります。
ややこしいですが日本語にするとこうなります。
『このﾌﾞｯｸのsheet1のｾﾙA1にこのﾌﾞｯｸのsheet2のｾﾙA1の値を入れろ』
このVBAを覚えておけばﾃﾞｰﾀの転記は簡単に出来ます。

End Sub
ﾏｸﾛの終了

質問など
VBA初心者なので質問・ご意見などあればｺﾒﾝﾄ欄にお願いします＾＾
可能な限りお答えしたいと思います＾＾

目指せﾗﾝｷﾝｸﾞ上位！！
記事読んでいただきありがとうございました。
人気ﾌﾞﾛｸﾞﾗﾝｷﾝｸﾞに参加しています。応援ｸﾘｯｸ頂戴できると励みになります。