Excel VBA質問箱 IV

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

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


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

7325 / 76732

←次へ　｜　前へ→


	【74995】Re:Excel2013で上下表示させる

ichinose - 13/11/11(月) 20:08 -


	引用なし

	パスワード

▼Jママさん：

こんばんは。

以下のようなサブプロシジャーを使うと、

sub test()
　 call winArrange(workbooks("b.xlsm"), workbooks("c.xlsm"))
end sub

Sub winArrange(ByVal kbook1 As Workbook, ByVal kbook2 As Workbook, Optional ByVal stl As XlArrangeStyle = xlArrangeStyleHorizontal)
　　Dim x As Window
　　Application.ScreenUpdating = False
　　On Error Resume Next
　　For Each x In Windows
　　　 x.WindowState = xlMinimized
　　Next x
　　With kbook2.Windows(1)
　　　 .WindowState = xlNormal
　　　 .Top = 1
　　　 .Left = 1
　　　 .Height = Application.UsableHeight
　　　 .Width = Application.UsableWidth
　　End With
　　With kbook1.Windows(1)
　　　 .WindowState = xlNormal
　　　 .Top = 1
　　　 .Left = 1
　　　 .Height = Application.UsableHeight
　　　 .Width = Application.UsableWidth
　　End With
　　Windows.Arrange arrangestyle:=stl
　　kbook1.Activate
　　On Error GoTo 0
　　Application.ScreenUpdating = True
End Sub

364 hits

▼

【74994】Excel2013で上下表示させる Jママ 13/11/11(月) 13:41