如何在Excel工作表中插入浮動表格或文本框？

如果您有一個包含重要數據的表格或文本框，希望它在工作表屏幕上始終可見，即使您向上或向下滾動工作表也是如此。這可能是一個有趣的任務，本文將介紹一個快速技巧來解決這個問題。

使用VBA代碼在Excel中插入浮動表格

使用VBA代碼在Excel中插入浮動文本框

使用VBA代碼在Excel中插入浮動表格

沒有直接的方法可以插入浮動表格，因此您需要將表格數據轉換為圖片，然後應用一段代碼來完成此操作，請按照以下步驟進行：

1. 選擇您希望保持可見的數據表格，然後點擊 「首頁」選項卡下的 「複製」>「複製為圖片」，請參閱截圖：

2. 在彈出的「複製圖片」對話框中，從「外觀」部分選擇「如屏幕所示」，並在「格式」部分選擇 「圖片」，點擊「確定」關閉對話框，然後點擊一個單元格以輸出圖片，最後按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 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 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. 然後保存並關閉代碼窗口，現在，當您在工作表中滾動到任何位置時，插入的文本框將始終保留在工作表的右上角。