Excel VBA質問箱 IV

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

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


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

16397 / 76732

←次へ　｜　前へ→


	【65803】Re:別ブックで開いている選択範囲の取得

りん

- 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

お試しください。

1 hits

▼

【65779】別ブックで開いている選択範囲の取得 麦茶 10/6/27(日) 18:10