[[20060905110150]] 『一覧から一定期間を抽出し別シートにカレンダーに』(蛙) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『一覧から一定期間を抽出し別シートにカレンダーにする』(蛙)

Sheet1にランダムに並んだ日付の一覧から、一番古い日から一番新しい日までを抽出し、Sheet2のカレンダーに反映させる方法を教えて頂けないでしょうか?
現在VBAで作成しようとしておりまして、途中ですが以下のように記載しています。
★の時点でエラーが出てしまいます。

Sheet2にはA1〜A7に月〜日までの曜日が固定されており、曜日の下に開始日から終了日までを反映させたいと考えております。
お手数ですが宜しくお願い致します。

***

    Dim Sday As Date         'カレンダー開始日(取得用)
    Dim Eday As Date         'カレンダー終了日(取得用)
    Dim cRange As Range         'カレンダー範囲
    Dim SYoubi As Integer       '開始日の曜日取得
    Dim Sgyo As Integer         'セル開始(列)
    Dim Sretsu As Integer       'セル開始(行)
    Dim Hizuke As Integer       '現在作成中のカレンダーの日付

    Sheets(SName1).Select
    Range("C115:D135").Select
    Set cRange = Selection
    Sday = WorksheetFunction.Min(cRange)    'カレンダー開始日の取得
    Eday = WorksheetFunction.Max(cRange)    'カレンダー終了日の取得

    '開始日の曜日を取得
    SYoubi = Weekday(Sday)

    '取得した曜日を元に、カレンダー開始箇所(行・列)を指定
    Sgyo = 2
    Sretsu = SYoubi

    'そこから終了日までのカレンダーを作成
 ★  For Hizuke = Sday To Eday

        Cells(Sgyo, Sretsu) = Hizuke        '開始日を入力
        Sretsu = Sretsu + 1                 '列を右に1つ進める
        If ((Sretsu - 1) Mod 7) = 0 Then    'セルの(列−1)を7で割り余りがなければ
            Sretsu = 1                      'SretsuをA列に
            Sgyo = Sgyo + 1                 '行を1つ進めて翌週に
        End If

    Next Hizuke


 変数をIntegerではなく、Longまたは、Dateにしたらどうなりますか。

 (川野鮎太郎)

できました!!
初歩的なことを質問してしまい、申し訳ありませんでした…。(蛙)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.