|
毎度お世話になります。
シートを指定して同じ処理を繰り返すのにFor〜Next文でできると
思い試してみたのですが、「Nextに対するforがありません」と
エラーがでてしまいます。
シートの指定をFor〜Next文ではできないのでしょうか?
いつも初歩的な質問ですみませんがお教え願います。
Sub sheetclear()
Dim saikagyo As Integer
Dim page As Integer
saikagyo = 150
For page = 2 To 13
ActiveWorkbook.Worksheets(page).Select
With ActiveWorkbook.Worksheets(page)
.Range(.Cells(10, 2), .Cells(saikagyo, 16)).ClearContents
.Cells(5, 14).ClearContents
.Cells(1, 2).Formula = "=TODAY()"
.Cells(1, 2).NumberFormatLocal = "yyyy"
.Cells(11, 11) = "=IF(I11="""","""",ROUNDDOWN(N11/$C$5,0))"
.Cells(11, 12) = "=IF(I11="""","""",ROUNDDOWN(N11/$C$5,0)*$C$5)"
.Cells(11, 13) = "=IF(I11="""","""",N11-L11)"
.Cells(11, 14) = "=IF(I11="""","""",G11+N10-J11)"
.Range(.Cells(11, 11), .Cells(11, 14)).Select
Selection.AutoFill Destination:=Range(.Cells(11, 11), .Cells(saikagyo, 14)), Type:=xlFillDefault
.Range(.Cells(11, 11), .Cells(saikagyo, 14)).Select
Next page
End With
End Sub
|
|