Excelワークシートにフローティングテーブルやテキストボックスを挿入するにはどうすればよいですか？

重要なデータが記載されたテーブルやテキストボックスがあり、ワークシートを上下にスクロールしても常に画面に表示されていたい場合があります。これは興味深い課題です。この記事では、その解決策を簡単にご紹介します。

VBAコードを使用してExcelにフローティングテーブルを挿入する

VBAコードを使用してExcelにフローティングテキストボックスを挿入する

VBAコードを使用してExcelにフローティングテーブルを挿入する

フローティングテーブルを直接挿入する方法はありませんので、テーブルのデータを画像に変換し、その後コードを適用して完了させる必要があります。以下の手順で行ってください：

1. 常に表示したいデータテーブルを選択し、 「ホーム」タブの下にある 「コピー」 > 「図としてコピー」をクリックしてください。スクリーンショットをご覧ください：

2. 表示された「図のコピー」ダイアログボックスで、「外観」セクションから「画面上に表示されている通り」を選択し、「形式」セクションで「 図」を選択し、「OK」をクリックしてダイアログを閉じます。次に、出力先となるセルをクリックし、最後にCtrl + Vを押してこの図を貼り付けます。スクリーンショットをご覧ください：

3. テーブルを画像に変換した後、常に表示したいテーブル画像のあるシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開かれたMicrosoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けてください：

VBAコード: Excelにフローティングテーブルを挿入する：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

注釈: このコードでは、Picure1は作成した画像名です。必要に応じて変更してください。

4. その後、コードウィンドウを保存して閉じます。これで、ワークシートをスクロールしてセルをクリックすると、テーブル画像は常にワークシートの右上隅に表示されます。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

VBAコードを使用してExcelにフローティングテキストボックスを挿入する

フローティングテキストボックスを挿入するためにも、このタスクを解決するためのVBAコードがあります。

1. 最初に、「開発」タブからテキストボックスを挿入します。「開発」> 「挿入」>「テキストボックス（ActiveXコントロール）」をクリックし、テキストボックスを描画して必要な情報を入力します。スクリーンショットをご覧ください：

2. 次に、常に表示したいテキストボックスがあるシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開かれたMicrosoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けてください：

VBAコード: Excelにフローティングテキストボックスを挿入する：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

注釈: このコードでは、TextBox1は挿入したテキストボックス名です。必要に応じて変更してください。

3. その後、コードウィンドウを保存して閉じます。これで、ワークシートをどこにスクロールしても、挿入されたテキストボックスは常にワークシートの右上隅に表示されます。