即効テクニック |
実行時におけるアクティブウインドウを参照します。 ●詳細● 構文 Object.ActiveWindow 取得のみ 設定項目 内容 Object Applicationオブジェクト[省略可能] 次のサンプルはアクティブウインドウを基準にして、その前後のウインドウをアクティブにします。●サンプル●
Sub ActiveWindowSamp1() Dim i As Byte MsgBox "5回、次のウインドウをアクティブにします", vbInformation For i = 1 To 5 ActiveWindow.ActivateNext '---(1)アクティブウインドウの次のウインドウ MsgBox ActiveWindow.Caption '---アクティブにされたウインドウ名 Next i MsgBox "次は5回、前のウインドウをアクティブにします", vbInformation For i = 1 To 5 ActiveWindow.ActivatePrevious '---(2)アクティブウインドウの前のウインドウ MsgBox ActiveWindow.Caption '---アクティブにされたウインドウ名 Next i End Sub
(1)のステートメントはマニュアル操作での[Ctrl]+[F6]に相当し、(2)のステートメントは[Ctrl]+[Shift]+[F6]に相当します。