[[20210317132042]]　『新しいウィンドウを２つ開き整列一番右の画面で操』（Dazed）　ページの最後に飛ぶ

『新しいウィンドウを２つ開き整列一番右の画面で操作』（Dazed）

お世話になります。
ノートパソコンで画面が小さく下(印刷範囲)の行までスクロールまで操作するのが面倒なのでウインドウを新たに2つ開きそれらを横に並べて表示。表示倍率55％にしてます。
シート1上にはActive　Xコントロールで作ったスピンボタンが配置されています。
操作できるのが一番右画面に見えている(新たに開いた他のウィンドウでスピンボタンは操作できないので)スピンボタンのみ操作させたいです。

３つウィンドウを開くのは、
?@スピンボタンで下の行のセルに反映させプリントしたい
?Aスピンボタンを操作しわざわざ下の行までスクロールしないで見るためです。
?Bスピンボタンを操作できないウインドウを動かす事(スクロールやをさせないようにしたい

マクロの記録とちょっと自分で付け足しました。他にどのようにすればいいでしょうか？

  ActiveWindow.NewWindow
    ActiveWindow.NewWindow
    Windows.Arrange ArrangeStyle:=xlVertical
    Windows("コピペ.xlsm:2").Activate
     ActiveWindow.SmallScroll Down:=14

    ActiveWindow.Zoom = 55
    Windows("コピペ.xlsm:3").Activate
    ActiveWindow.SmallScroll Down:=26

    ActiveWindow.Zoom = 55
    Windows("コピペ.xlsm:2").Activate
MsgBox "画面一番右で操作してください"

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

何度か試すと、3つのウィンドウじゃなく5つのウィンドウになってしまう時もあります。
ActiveWindow.NewWindowをどうにかしなくてはですか？また、保存する時のウィンドウ数によっては3つのウインドウでないことも考えられますか？
（Dazed） 2021/03/17(水) 13:49

コメント返信：

[ 一覧(最新更新順) ]

[[20210317132042]] 『新しいウィンドウを２つ開き整列一番右の画面で操』（Dazed） ページの最後に飛ぶ

[[20210317132042]]　『新しいウィンドウを２つ開き整列一番右の画面で操』（Dazed）　ページの最後に飛ぶ