|
こんばんは、勤務表の作成で土曜日、日曜日、祝日(設定)の日は
休みを表す「公」をセルに貼り付けるコマンドです。
が・・・。
SDAY = Application.Match(Cells(5, RRET), Range("C72:C98").Date, 0)
のロジックで
実行時エラー '438': オブジェクトは、このプロパティまたはメソッドをサポートしていません。
のエラーが出ます。なぜでしょうか。教えてください。.dateだと思うのですが・
よろしくお願いいたします。
祝日は年月日(YYYY/M/D)を読みテーブルRange("C72:C98")の(YYYYY/M/Dと比較
しています。よろしくお願いいたします。
Sub 事務所公休設()定'***************************************************************
'* 事務所 公休自動貼り付け処理 *
'***************************************************************
Dim RRET As Long
Dim RYOUBI As String
Dim RDAY As Date
Dim SDAY As String
Dim WGYO As Long
Dim DGYOMAX As Long
RRET = 5 '1日目設定
DGYOMAX = Worksheets("事務所勤務").Range("D65536").End(xlUp).Row
Do Until RRET > 36
WGYO = 8
MsgBox "Cells(5, RRET)" & Cells(5, RRET)
RDAY = Cells(5, RRET)
RYOUBI = Cells(6, RRET).Value
SDAY = Application.Match(Cells(5, RRET), Range("C72:C98").Date, 0)
If Application.IsError(SDAY) = False Then
Do Until WGYO > DGYOMAX
Cells(WGYO, RRET).Value = "公"
WGYO = WGYO + 1
Loop
Else
WGYO = 8
End If
If RYOUBI = "土" Then
WGYO = 8
Do Until WGYO > DGYOMAX
Cells(WGYO, RRET).Value = "公"
WGYO = WGYO + 1
Loop
Else
If RYOUBI = "日" Then
WGYO = 8
Do Until WGYO > DGYOMAX
Cells(WGYO, RRET).Value = "公"
WGYO = WGYO + 1
Loop
Else
WGYO = 8
End If
End If
RRET = RRET + 1
Loop
End Sub
|
|