エクセルの学校：全文検索：Hyper Estraier：カレンダー

Results of 1 - 1 of about 1239 for カレンダー (0.001 sec.)

[[20060905110150]]: #score: 6129; @digest: 671b5207a4c69fec98f07e3b8776d632; @id: 24857; @mdate: 2006-09-05T03:41:36Z; @size: 1900; @type: text/plain; #keywords: sretsu (41734), crange (15739), syoubi (15241), sgyo (12325), hizuke (11698), ー開 (10338), 定sg (7748), 得sy (7748), 得用 (7716), sday (7519), 始箇 (7323), 得ed (7323), ー終 (6803), 在vb (4541), カレ (4519), eday (4320), 始（ (3769), ル開 (3446), 翌週 (3409), 始日 (3114), レン (2812), ンダ (2727), 日取 (2569), 番新 (2314), ダー (2297), 番古 (2276), ） di (2180), 了日 (2134), 囲di (2097), 開始 (2011), （取 (1829), 得di (1759); 『一覧から一定期間を抽出し別シートにカレンダーにする』（蛙）
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にしたらどうなりますか。（川野鮎太郎） ---- できました!! 初歩的なことを質問してしまい、申し訳ありませんでした…。（蛙） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200609/20060905110150.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ