|
▼りん さん:こんばんは、
ありがとう御座いました。
実行しましたが、2行目3行目が画面上にあるものは、成功です。
他は十字に太線が入って、だめです。
100シート以上あるのでせが、ほとんど、最終行の290行に、画面は
なっています、
改善出来るでしょうか。
お願いします。
>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
>こんな感じです。
>非表示のシートがある場合はそこでエラーになるので、分岐が必要になります。
|
|