したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

VBAの使い方

2 ゆうれいななしさん :2018/10/25(木) 22:15:42 ID:/lu3Zioc0
Function TPB(myC As Range)
TPB = IIf(myC.Borders.LineStyle = xlNone, "0 ", "1")
End Function
Sub カレンダー作成()
Range("C6:I11").Value = ""
MakeCalendar
End Sub
Sub MakeCalendar()
'条件分岐を使ったプロシージャ

Dim nen As Integer, tsuki As Integer
nen = Range("G2").Value
tsuki = Range("W4").Value

Dim FirstDay As Date
'ユーザーが指定した年月の1日目を日付として生成
FirstDay = DateSerial(nen, tsuki, 1)
Dim lastDay As Integer
lastDay = Day(DateSerial(nen, tsuki + 1, 1) - 1)

Dim RowNo As Integer
Dim ColumnNo As Integer

RowNo = 6
ColumnNo = Weekday(FirstDay, vbSunday) + 2

Dim i As Integer
For i = 1 To lastDay
Cells(RowNo, ColumnNo).Value = i
If ColumnNo = 9 Then
ColumnNo = 3
RowNo = RowNo + 1
Else
ColumnNo = ColumnNo + 1
End If
Next

End Sub


新着レスの表示


名前: E-mail(省略可)

※書き込む際の注意事項はこちら

■ したらば のおすすめアイテム ■

ドアノブ少女【通常版】 - 吾嬬竜孝(企画・撮影)


この欄のアイテムは掲示板管理メニューから自由に変更可能です。


掲示板管理者へ連絡 無料レンタル掲示板