如何在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. 然后保存并关闭代码窗口，现在，当你滚动工作表到任何位置时，插入的文本框将始终保留在工作表的右上角。