Home > 即効テクニック > Excel VBA > ウィンドウ操作関連のテクニック > アクティブウインドウを参照する(ActiveWindowプロパティ)

即効テクニック
ウィンドウ操作関連のテクニック

アクティブウインドウを参照する(ActiveWindowプロパティ)

(Excel 2000)
実行時におけるアクティブウインドウを参照します。

●詳細●
構文  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]に相当します。