Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

71019 / 76734

←次へ　｜　前へ→


	【10216】Re:カメラ機能

ichinose - 04/1/12(月) 19:50 -


	引用なし

	パスワード

たまさん、りんさん、こんばんは。
>また、カメラ機能が記録出来ないので同じBOOKを２つのWINDOWで左右に並べて表示し
>表示倍率の差をつけて擬似的にカメラ機能を作成しようと思ったのですが、
>WINDOW1の倍率を２５％で表示し
>WINDOW2の倍率を１００％で表示して
>（ココまで何とか完成）
>WINDOW1（ 25%）で選択した範囲（セル）を
>WINDOW2（100%）で画面上に一瞬で表示させたいのですが
>色々試しても分かりません。
↑の方です。
「WINDOW1の倍率を２５％」のウインドウをアクティブにし、
「WINDOW2の倍率を１００％」のウィンドウに反映させたいセル範囲を選択した状態で
以下のコードを実行して下さい。
'===============================================================
Sub test()
　　myadd = Selection.Address
　　ThisWorkbook.Windows("100%ズーム").Activate
'　　　　　　　　　　　　　　↑該当する名前に変えてね
　　Application.Goto Range(myadd), True
　　With ThisWorkbook
　　　 Call dist_win(.Windows("25%ズーム"), .Windows("100%ズーム"))
'　　　　　　　　　　　　　　　　　両方、該当する名前に変えてください
　　　 End With
End Sub
'==============================================================
Sub dist_win(ParamArray mywin())
'　　　　　　　↑三つ以上のウインドウでも対応できるようにしときました。
　　Application.ScreenUpdating = False
　　On Error Resume Next
　　For Each x In Application.Windows
　　　x.WindowState = xlMinimized
　　　Next x
　　On Error GoTo 0
　　For idx = UBound(mywin()) To LBound(mywin()) Step -1
　　　With mywin(idx)
　　　　.WindowState = xlNormal
　　　　End With
　　　Next
　　Application.Windows.Arrange ArrangeStyle:=xlVertical
　　Application.ScreenUpdating = True
End Sub

確認してください。

1 hits

▼

【10210】カメラ機能 たま 04/1/12(月) 15:56