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

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

受講生さんの投稿

(投稿ID: 2852)

小川先生へ

サンプルコードを書いてくださってありがとうございます(*^^*)
いろんなコードを見て、動かしてみることはとても勉強になりますね。

「1枚のシートに1年分または所定の月の分だけのカレンダーを作成する」の
動画を見直して、Nyuryoku_Calendarをつくりなおしてみました。

Sub Nyuryoku_Calendar() ' ひと月分のカレンダーを作成する

    Dim d As Date
    Dim c As Long
    Dim m As Long
    
    m = Month(Range("A1").Value)
    Range("A1").NumberFormatLocal = "yyyy" & "年" & "m" & "月"
    d = Range("A1").Value
    c = 0
    Range("A1").CurrentRegion.Offset(0, 1).ClearContents 'データーを削除
    
    Do While m = Month(d)
        Range("B1").Offset(0, c).Value = Day(d)
        Range("B2").Offset(0, c) = WeekdayName(Weekday(d), True)
        c = c + 1
        d = DateAdd("d", 1, d)
    Loop
End Sub

小川先生がくださったヒントで

'[2] その月の月初日を日付型変数に格納。
'[3] DateAdd関数で一日づつ翌日の日付を調べる。

のところをどう書けばよいかわからず・・・
（調べてみてDateSerial関数を使うのかもしれないと思い試行錯誤したものの・・・
うまくつかいこなせずでした(+_+)）

でも、このままではA1セルに1日以外の日付が入った場合、
カレンダーが月の途中からになってしまうので
イベントの方にも手を加えました(;^_^A

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And IsDate(Target.Value) Then
        If Day(Target) = 1 Then　’A1セルに入った日付が1日だったら
            Nyuryoku_Calendar
        Else
            MsgBox "日付を1日にして入力し直してください"
            Exit Sub
        End If
    End If
End Sub

2017/02/20 09:44

小川慶一さんのコメント

(コメントID: 4312)

受講生さん:

[3]は頂いたコードで問題なさそうだけど。。何か問題でしょうか？

以下、今テキトーに書いてみたサンプルです。研究してみてください。
はっきりしないことがあるときは、その機能だけを試すサンプルを自作してみることも大切です。学習目的でなく、実務でマクロを書く際でも。

Sub CreateFirstDateValue() '[2]
    Dim d As Date
    Dim c As Long
    c = 3
    d = "2017/" & c & "/1"
    Debug.Print d

    d = CDate("2017/" & c & "/1")
    Debug.Print d

    d = CDate(Year(Date) & "/" & c & "/1")
    Debug.Print d
End Sub
Sub WhileThisMonth() '[3]
    Dim d As Date
    Dim m As Long
    Dim c As Long
    d = #3/1/2017#
    m = Month(d)
    
    c = 0
    Do While Month(d) = m
        Debug.Print d
        d = DateAdd("d", 1, d)
    Loop
End Sub

>でも、このままではA1セルに1日以外の日付が入った場合、
>カレンダーが月の途中からになってしまうので
>イベントの方にも手を加えました(;^_^A

MsgBox "日付を1日にして入力し直してください"

利用者からすると面倒かな。。と感じます。
「その月のいつの日付が与えられても、その月の1日からのカレンダーを作る」てするのがスマートじゃないかな。
僕が書いた CreateFirstDateValue を少し直せばいけるはずなので、挑戦してみてください。

2017/02/20 17:35

５倍速！メールマガジン

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

受講生の声

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

佐藤信さん

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

佐賀県 - 岩本徹さん

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

東京都 - 鷹觜慶さん

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

東京都 - 宗内隆明さん

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

東京都 - 佐伯とも子さん

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

東京都 - 飯田倫子さん

受講生の声一覧へ

サイト運営者紹介

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

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

より詳しい紹介はこちら