|
cap さん、こんばんわ。
>質問ですが。2行目と3行目の間に、ウィンドウ枠の固定を、一度に出来ますか?
>それとも、1シートづつしか出来ないモノなのですか。
>出来るならば、マクロコードを、お教え下さい。
アクティブなブックに対して、1シートずつの設定を連続で行なうコードです。
Sub test()
Dim ws As Worksheet
Application.ScreenUpdating = False
'
For Each ws In ActiveWorkbook.Worksheets
ws.Select
ActiveSheet.Range("A3").Select '2-3で固定するため
With ActiveWorkbook.Windows(1)
'既に設定してあれば解除する
If .FreezePanes = True Then .FreezePanes = False
.FreezePanes = True '設定
End With
Next
Application.ScreenUpdating = True
End Sub
こんな感じです。
非表示のシートがある場合はそこでエラーになるので、分岐が必要になります。
|
|