Excel VBA質問箱 IV

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

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


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

19566 / 76732

←次へ　｜　前へ→


	【62596】Re:Ｃａｌｅｎｄａｒの制作に関して

Hirofumi - 09/8/5(水) 7:04 -


	引用なし

	パスワード

こんなのでは

Option Explicit

Sub test_2()

　　Const clngNumb As Long = 7
　　Const clngRPitch As Long = 2
　　
　　Dim 日付 As Variant
　　Dim 今月 As Long
　　Dim 曜日数 As Long
　　Dim 行 As Long
　　Dim 列 As Long
　　Dim 開始 As Long
　　
　　日付 = Range("E1").Value
　　If Not IsDate(日付) Then
　　　　Exit Sub
　　Else
　　　　日付 = DateSerial(Year(日付), Month(日付), 1)
　　　　開始 = 日付
　　End If
　　
　　今月 = Month(日付)
　　曜日数 = Weekday(日付) - 1
　　
　　Range("B4:H14").ClearContents
　　
　　Do While 今月 = Month(日付)
　　　　行 = ((日付 - 開始 + 曜日数) \ clngNumb) * clngRPitch + 1
　　　　列 = ((日付 - 開始 + 曜日数) Mod clngNumb) + 1
　　　　Range("B4:H9").Cells(行, 列).Value = Day(日付)
　　　　日付 = 日付 + 1
　　Loop
　　　
End Sub

50 hits

▼

【62595】Ｃａｌｅｎｄａｒの制作に関して yamamiti 09/8/4(火) 20:02