Excel VBA質問箱 IV

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

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


16397 / 76732 ←次へ | 前へ→

【65803】Re:別ブックで開いている選択範囲の取得
発言  りん E-MAIL  - 10/6/28(月) 20:19 -

引用なし
パスワード
   麦茶 さん、こんばんわ。

>ただ、問題としては、ActiveなWorkBookを切り替えないといけませんが、できました。^.^
切り替え先のブックをアクティブにした時に表示されるシートが確実に対象のものとわかっているならば、あえてアクティブにする必要はありません。

Sub test()
  Dim wn As Window '複数ウィンドウに対応
  For Each wn In Workbooks("data.xls").Windows
   With wn
     If TypeName(.Selection) = "Range" Then
      MsgBox .Selection.Address(external:=True), vbInformation, wn.Caption
     Else
      MsgBox TypeName(.Selection) & "を選択中", vbExclamation, wn.Caption
     End If
   End With
  Next
End Sub

お試しください。

2 hits

【65779】別ブックで開いている選択範囲の取得 麦茶 10/6/27(日) 18:10 質問
【65783】Re:別ブックで開いている選択範囲の取得 よろずや 10/6/27(日) 20:18 発言
【65785】Re:別ブックで開いている選択範囲の取得 麦茶 10/6/27(日) 21:15 回答
【65786】Re:別ブックで開いている選択範囲の取得 中二 10/6/27(日) 21:36 発言
【65787】Re:別ブックで開いている選択範囲の取得 麦茶 10/6/27(日) 22:31 回答
【65791】Re:別ブックで開いている選択範囲の取得 麦茶 10/6/28(月) 12:01 回答
【65803】Re:別ブックで開いている選択範囲の取得 りん 10/6/28(月) 20:19 発言

16397 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free