|
cap さん、おはようございます。
>実行しましたが、2行目3行目が画面上にあるものは、成功です。
>他は十字に太線が入って、だめです。
設定するセルが左上端にくると分割できないので、変なところでカットされてしまったようです。すみません。
Sub test()
Dim ws As Worksheet
Application.ScreenUpdating = False
'
For Each ws In ActiveWorkbook.Worksheets
ws.Select
'非表示シートを避ける
If ws.Visible = xlSheetVisible Then
With ActiveWorkbook.Windows(1)
'既に設定してあれば解除する
If .FreezePanes = True Then .FreezePanes = False
'位置を決定
Application.Goto ws.Range("A1"), True
Application.Goto ws.Range("A3"), False
'設定
.FreezePanes = True
End With
End If
Next
Application.ScreenUpdating = True
End Sub
こんな感じです。
|
|