各種

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'★★★選択セルが変更された時に動作するマクロ
If Target.Column = 3 Then  ' 選択されたセルが指定の列の場合の処理をここに追加する
    ActiveWindow.ScrollRow = Target.Row

ElseIf Target.Address = "$B$12" Then
    Call テキストボックス文字列クリア
    Application.ScreenUpdating = True ' 表示をリフレッシュ
    Range("D12").Select ' セルD12に選択範囲を移動
End If
End Sub

***********************************************

' WScript.Shell オブジェクトを作成
Set WshShell = WScript.CreateObject("WScript.Shell")

' Altキーを押し下げる
WshShell.SendKeys "^%{TAB}"

' 選択のために数秒待機（ここでマウスでアプリケーションを選択）
WScript.Sleep 5000 ' 5000ミリ秒 = 5秒（必要に応じて調整してください）

' Altキーを離す
WshShell.SendKeys "%{UP}"

' スクリプトの終了
WScript.Quit


★★★★★★vbs
★★★★★★全てのフォルダ閉じる
''CloseExplorer.vbs
Option Explicit
On Error Resume Next

Dim objShell, objWindow
Dim Cnt

Set objShell = CreateObject("Shell.Application")

Do
    For Each objWindow In objShell.Windows
        'エクスプローラーのみ閉じる
        If TypeName(objWindow.document) = "IShellFolderViewDual3" Then
            objWindow.Quit
            Cnt = Cnt + 1
        End If
    Next
    If Cnt = 0 Then Exit Do
    Cnt = 0
Loop

Set objShell = Nothing

★★★★★★★★★★★★★★★★★★

Ctrlキーを二回押す
' Ctrlキーを二回押す
WshShell.SendKeys "^"
WScript.Sleep 100
WshShell.SendKeys "^"


全て最小化
Set objShell = CreateObject("Shell.Application")
objShell.MinimizeAll


タスクビュー表示
Set objShell = CreateObject("Shell.Application")
objShell.WindowSwitcher

キャプチャ起動
Set objShell = CreateObject("WScript.Shell")
objShell.Run "ms-screenclip:"
Set objShell = Nothing