エクセルで繰り返し処理をしたいのですが
下記のマクロを６行目で展開しています。
これと同じ処理を７行目～３６行目めまでさせたいのですが
どうやればいいのか教えていただけないでしょうか？
sub test()
Select Case a
Case 2, 3, 4, 5, 6
Range("F6").Select
Selection.FormulaR1C1 = _
"=IF(RC[-1]-RC[-2]-0.75-RC[8]-RC[9]<=0,0,RC[-1]-RC[-2]-0.75-RC[8]-RC[9])"
Range("H6").Select
Selection.FormulaR1C1 = "=IF(-7.75>=RC[9],0,RC[9])"
Range("J6").Select
Selection.FormulaR1C1 = _
"=IF(IF(RC[-5]<=22,0,(RC[-5]-22-RC[6]))<=0,0,IF(RC[-5]<=22,0,(RC[-5]-22-RC[6])))"
Range("B6:W6").Select
With Selection.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
Case 0, 1
Range("F6").Select
Selection.ClearContents
Range("H6").Select
Selection.ClearContents
Selection.FormulaR1C1 = "=IF(RC[-5]<=22,0,(RC[-5]-22-RC[6]))"
Range("J6").Select
Selection.ClearContents
Range("B6:W6").Select
With Selection.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
End select
End sub
お礼
ご回答ありがとうございます。 その動作をしてくれないので困ってたのですが、ACTIVESHEET.UNPEOTECTが必要だったみたいです。 書式設定でロックしてないセルなので、まさか、それが必要とは思わなかった次第。