レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

解説「カレンダー作成マクロ」

受講生さんの投稿

(投稿ID: 3735)

小川先生

御回答頂きましてありがとうございます。
キャストの件了解しました。

また、日付の記載に関してもう一点質問がありますので、ご教授下さい。

日付の記載方法に関しては、ダブルクォートで囲む方法とシャープで囲む方法があるそうですが、
今回のプログラム作製におきまして、当初はシャープで囲んでおりましたが、日付の中に変数を組み込むと
エラーとなってしまうため(Sub test1)、ダブルクォートで囲んだという経緯があります(Sub test2)。

そこでお尋ねしたいのですが、test1のように日付の前後をシャープで囲んだ場合、
その中に変数を組み込んだ書き方というのは出来ないのでしょうか？

仮に、出来ないとするならば、(かなり主観的な考え方になりますが)ダブルクォートで囲んだ方が
扱いやすいのかなという気もします。
逆に、シャープで囲んだ方が良いというメリット等ありましたら、ご教授下さい。

以上、よろしくお願いします。

Option Explicit

Sub test1()
    
    Dim c As Long
    Dim d As Date
    
    c = 3
    d = "#2015/" & c & "/1#"

    Debug.Print d
    
End Sub


Sub test2()
    
    Dim c As Long
    Dim d As Date
    
    c = 3
    d = "2015/" & c & "/1"

    Debug.Print d
    
End Sub

2018/03/15 03:26

小川慶一さんのコメント

(コメントID: 5247)

受講生さん:

おそくなりました。

> 日付の記載方法に関しては、ダブルクォートで囲む方法とシャープで囲む方法があるそうですが、

TypeName関数使ってデータ型を調べてみるとよいです。

Sub hoge()
    Debug.Print TypeName(#3/18/2018#)         'Date
    Debug.Print TypeName("2018/3/18")         'String

    Dim c As Long
    c = 3
    Debug.Print TypeName("2018/" & c & "/18") 'String
End Sub

ということで、ダブルクォートで囲ったものは、たとえば "2018/3/18" であれば、長さ９文字の、「2 0 1 8 / 3 / 1 8」という文字列です。
シャープで囲うと日付型の日付ですね。

変数を使って日付を指定したいのであれば...。例えば、以下の要領で。

Sub fuga()
    Dim c As Long
    c = 3
    
    Dim d As Date
    
    d = DateAdd("m", 3, #12/1/2014#)
    Debug.Print d
End Sub

> 逆に、シャープで囲んだ方が良いというメリット等ありましたら、ご教授下さい。

まずは、ご自身で考えてみてください。
そこから考察を進めましょう。

2018/03/18 23:56

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声一覧へ

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら