Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5147 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【52385】ファイルの追加 ちょり 07/11/12(月) 10:17 質問[未読]
【52386】Re:ファイルの追加 じゅんじゅん 07/11/12(月) 11:30 発言[未読]
【52387】Re:ファイルの追加 Jaka 07/11/12(月) 11:38 発言[未読]
【52388】Re:ファイルの追加 ちょり 07/11/12(月) 13:09 お礼[未読]
【52385】ファイルの追加
質問  ちょり  - 07/11/12(月) 10:17 -
引用なし
パスワード
   ファイルを開いて、さらに新しいファイルをその表示されているファイルの後ろ（下）に表示したいのですが、どうしても新しいファイルが横に表示されてしまいます。
。

　どうか解消法を教えて頂きたいです。
【52386】Re:ファイルの追加
発言  じゅんじゅん  - 07/11/12(月) 11:30 -
引用なし
パスワード
   ▼ちょり さん：
>ファイルを開いて、さらに新しいファイルをその表示されているファイルの後ろ（下）に表示したいのですが、どうしても新しいファイルが横に表示されてしまいます。
>。
>
>　どうか解消法を教えて頂きたいです。

アクティブウィンドウの整列
ｈｔｔｐ://www.officepro.jp/excelvba/window_ope/index3.html
こんな感じですか？
【52387】Re:ファイルの追加
発言  Jaka  - 07/11/12(月) 11:38 -
引用なし
パスワード
   新規ブックを作成した時にこのコードが書いてあるブックをアクティブにしているだけです。

クラスモジュール（名前はClass1）

Public WithEvents App As Application
Private Sub App_NewWorkbook(ByVal Wb As Workbook)
　 ThisWorkbook.Activate
End Sub

ThisWorkbookモジュール

Dim NewWBMk As New Class1
Private Sub Workbook_Open()
　 Set NewWBMk.App = Application
End Sub
【52388】Re:ファイルの追加
お礼  ちょり  - 07/11/12(月) 13:09 -
引用なし
パスワード
   みなさんありがとうございます！
解決しました＾＾
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5147 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free