Excelでワークシート上に常にフローティングするコマンドボタンを表示するにはどうすればよいですか？

場合によっては、ワークシートを上下にスクロールしても、移動し続けるフローティング コマンド ボタン (ActiveX コントロール) が必要になることがあります。この記事では、それを実現する方法を紹介します。

VBAコードを使用してコマンドボタンを常にフローティングさせる

VBAコードを使用してコマンドボタンを常にフローティングさせる

以下の手順に従って、コマンドボタンを常にワークシート内でフローティングさせます。

1. フローティングしたいActiveXコントロールのコマンドボタンが含まれているワークシートで、シートタブを右クリックし、コンテキストメニューから「表示」を選択します。

2. 表示された Microsoft Visual Basic for Applicationsウィンドウで、次のVBAコードをコピーしてコードウィンドウに貼り付けます。

VBAコード: コマンドボタンを常にワークシート内にフローティングさせる

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        On Error GoTo 0
        With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
            CommandButton1.Top = .Top + 100
            CommandButton1.Left = .Left + 300
        End With
End Sub

注釈: 上記のコードでは、CommandButton1は常に表示したいボタンの名前です。必要に応じて変更してください。

3. 次に、Alt + Qキーを押してMicrosoft Visual Basic for Applicationsウィンドウを終了します。

これ以降、アクティブなセルが移動するとともに、コマンドボタンは常にワークシートの上部中央にフローティングします（下のスクリーンショット参照）。

注釈: このVBAは、ActiveXコントロールのコマンドボタンにのみ有効です。

関連記事:

• Excelでアクティブなワークブックをプロンプトなしで保存して閉じるには、コマンドボタンを使用するにはどうすればよいですか？
• Excelでコマンドボタンを使用して（現在の）日付と時刻を更新または挿入するにはどうすればよいですか？
• Excelで指定されたセルの値をコマンドボタンを使用して変更するにはどうすればよいですか？
• Excelでデータをコピーして貼り付けるためのコマンドボタンを作成するにはどうすればよいですか？
• Excelでコマンドボタンを使用してアクティブなワークシートをPDFファイルとして保存するにはどうすればよいですか？
• Excelでコマンドボタンを使用して新しい空白行を自動的に挿入するにはどうすればよいですか？