|
始めまして。
Excel VBAで悪戦苦闘をしております。
下記の内容について記述の方法を教えてください。
指定した行は固定、列は指定の範囲内。
指定した行のセルがTrueであるとき同列の指定範囲内のセルを保護かけたい。
例
列開始=3
列終了=15
Cells(27,列)がTrueであるときCells("21,列:25,列")を保護する。
これを列3から15まで自動的に処理するマクロを組みたいのですが、
教えてください。
自分の現在のスキルで組んだのは、以下のように該当するセルの範囲を
1列づつ組み込んでいます。
Sub CL01確認後のセルの保護()
Application.ScreenUpdating = False
Sheets("day").Select
If Range("C27") = "Y" Then
Range("C21:C25").Select
Selection.Locked = True
Selection.FormulaHidden = False
End If
If Range("D27") = "Y" Then
Range("D21:D25").Select
Selection.Locked = True
Selection.FormulaHidden = False
End If
If Range("E27") = "Y" Then
Range("E21:E25").Select
Selection.Locked = True
Selection.FormulaHidden = False
End If
If Range("F27") = "Y" Then
Range("F21:F25").Select
Selection.Locked = True
Selection.FormulaHidden = False
End If
End Sub
これを自動的に列を変化させて動作させるには
どのような構文にしたらよいでしょうか。
|
|