|
▼りん さん:こんにちは。
出来ました!!
ありがとう御座いました。感謝いたします。
>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
>
>こんな感じです。
|
|