Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69609 / 76732

←次へ　｜　前へ→


	【11641】Re:カレンダーを作りたいのですが・・・

よっしー - 04/3/12(金) 19:04 -


	引用なし

	パスワード

前回ご教授くださいました下記の
プログラムですが、現在５行１９列に
なってますが、今度は行を１つとばし
にして９行１９列にしたいのですが、
なかなかできません。何回も申し訳
ないですがまたご教授願えないでしょうか？
よろしくお願いします。

▼Ｊカーターさん：
>こんにちは。
>こうしたいということですか？
>-------------------------------------------------------------
>Sub calen()
>　　Dim LngDay As Long
>　　Dim LngS　 As Long
>　　Dim LngE　 As Long
>　　Dim LngX　 As Long
>　　
>　　LngS = DateSerial(Year(Date), Month(Date), 1)
>　　LngE = DateSerial(Year(Date), Month(Date) + 1, 0)
>　　
>　　LngX = Weekday(LngS) * 3 + 19
>　　For LngDay = LngS To LngE
>　　　　Range("A:U").Cells(LngX _
>　　　　　　).Value = Format$(LngDay, "m""/""d"" (""aaa"")")
>　　　　LngX = LngX + 3
>　　Next LngDay
>End Sub

1 hits

▼

【11534】カレンダーを作りたいのですが・・・ よっしー 04/3/11(木) 9:18