人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excel VBA:ウィンドウ枠解除・再設定等

■エクセルを整えて渡したいです
1.一番左シートのA1選択
2.他シートもA1にカーソル
3.全シート表示倍率50%
4.ウィンドウ枠固定は不変
5.枠がセルを隠さず

■が、3,5が未解決であり、、、
例:B2で枠固定して、1000行目選択中に実行すると3行目が隠れる

Sub xxx()
Dim ws As Variant
For Each ws In Worksheets
Sheets(ws.Name).Select
Range("A1").Select
End If
Next
Sheets(1).Select
End Sub

■アドバイスいただければと思います。宜しくお願い致します

●質問者: zizizirororo
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:A1 AS b2 Excel name
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● airplant
●200ポイント ベストアンサー

こんな感じでどうでしょう?

元ソースでは、IfがなくていきなりEnd Ifが出てきていますが、これはたぶん間違いということで。

Option Explicit

Sub xxx()
 Dim ws As Variant
 Dim iCol As Integer, iRow As Integer
 
 For Each ws In Worksheets
 Sheets(ws.Name).Select
 With ActiveWindow
 If .FreezePanes Then  ' 5.枠がセルを隠さず
 iCol = .SplitColumn
 iRow = .SplitRow
 .FreezePanes = False
 Range("A1").Select
 Cells(iRow + 1, iCol + 1).Select
 .FreezePanes = True
 End If
 .Zoom = 50  ' 3.全シート表示倍率50%
 End With
 Range("A1").Select
 Next
 Sheets(1).Select
End Sub
◎質問者からの返答

うお????カンペキです!

感動しました!!!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ