[[20251101102135]]　『ウィンドウズキー＋←のマクロ』（東九）　ページの最後に飛ぶ

『ウィンドウズキー＋←のマクロ』（東九）

左画面半分に表示するマクロを教えてください。
マクロ記録では作成されませんでした。

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

検索するとＡｉさんが　コード　表示してくれましたですよ
試してませんけど。。。^^;

m(__)m
（隠居Z） 2025/11/01(土) 12:25:38

 Option Explicit
Sub Wwdsp001()
    Dim y, x
    Application.WindowState = xlMaximized
    With ActiveWindow
        x = .Width
        y = .Height
        Rem MsgBox y & Chr(13) & x
        .WindowState = xlNormal
        .Left = 0
        .Top = 0
        .Width = x / 2
        .Height = y
    End With
End Sub

^^;
（隠居Z） 2025/11/01(土) 15:25:52

終了時にお好みのサイズに戻しておくことを
お勧めいたしますです。。。(*^^*)

m(__)m
（隠居Z） 2025/11/01(土) 15:34:26

出来ました。
但し縦スクロールバーが3分の2くらい重なるので
.Width = x / 2の２を2.01に変更しました。
ウィンドウズキー＋←を押したときと同じサイズになりました。
Ａｉさん、隠居Zさんありがとうございました。
（東九） 2025/11/01(土) 16:21:49

コメント返信：

[ 一覧(最新更新順) ]

[[20251101102135]] 『ウィンドウズキー＋←のマクロ』（東九） ページの最後に飛ぶ

[[20251101102135]]　『ウィンドウズキー＋←のマクロ』（東九）　ページの最後に飛ぶ