| |
▼りん さん：こんばんは、
ありがとう御座いました。
実行しましたが、２行目３行目が画面上にあるものは、成功です。
他は十字に太線が入って、だめです。
１００シート以上あるのでせが、ほとんど、最終行の２９０行に、画面は
なっています、
改善出来るでしょうか。
お願いします。
>cap さん、こんばんわ。
>
>>質問ですが。２行目と３行目の間に、ウィンドウ枠の固定を、一度に出来ますか？
>>それとも、１シートづつしか出来ないモノなのですか。
>>出来るならば、マクロコードを、お教え下さい。
>
>アクティブなブックに対して、１シートずつの設定を連続で行なうコードです。
>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
>こんな感じです。
>非表示のシートがある場合はそこでエラーになるので、分岐が必要になります。
|
|
cap
- 05/7/22(金) 0:28 -
