Sub myWindowState()
'ウインドウ操作
Application.ScreenUpdating = False
If Application.Version < 15 Then
ActiveWindow.WindowState = xlMaximized
End If
Application.WindowState = xlNormal
If Application.Left < 165 Then Application.Left = 165
End Sub
Application.Version で、15 は Excel 2013
各バージョンによる数値は、
Msgbox Application.Version するか、
イミディエイトウインドウで、?Application.Version して調べてください。
2013 からは、ブックごとにWindowが開くので、ActiveWindow.WindowState = xlMaximized にしなくても、Windowの中で最大サイズになる。
2010 までは、ActiveWindow.WindowState = xlMaximized にしてから、
Application.WindowState = xlNormal にしないと、Window の中で最大にならず、ブックが浮いた状態になる。
Application.Left < 165 Then Application.Left = 165
は、ブックを起動した時の、Window の位置。ユーザーフォームを左に配置する為に、Window を少し右にずらしている。
↓ facebook のフォローで応援してください。お願いします。
Microsoft Office ブログランキングへ
Application.Version で、15 は Excel 2013
各バージョンによる数値は、
Msgbox Application.Version するか、
イミディエイトウインドウで、?Application.Version して調べてください。
2013 からは、ブックごとにWindowが開くので、ActiveWindow.WindowState = xlMaximized にしなくても、Windowの中で最大サイズになる。
2010 までは、ActiveWindow.WindowState = xlMaximized にしてから、
Application.WindowState = xlNormal にしないと、Window の中で最大にならず、ブックが浮いた状態になる。
Application.Left < 165 Then Application.Left = 165
は、ブックを起動した時の、Window の位置。ユーザーフォームを左に配置する為に、Window を少し右にずらしている。
↓ facebook のフォローで応援してください。お願いします。
Microsoft Office ブログランキングへ