有没有一种快速的方法来添加多个带有滚动条的文本框？

Question

因为我项目中的单元格包含大量数据，我不得不插入带有滚动条的文本框才能查看所有数据（它们链接到电子表格中位于它们后面的单元格）。有什么快速的方法可以在一列 1000 条记录上做同样的事情，还是我必须手动完成并将文本框链接到特定的单元格？有更快的方法吗？

此外，如果出现问题是对原始问题的回复，我需要它使用原始 ID（我使用了自动 IDS，可以在电子表格中看到）。有什么建议吗？

慢慢地，我的 excel 和 VBA 越来越好，但有时我需要帮助 ^_^

我已附上电子表格，其中包含我制作的 2 条记录的示例。最后一张表将有 1000 条记录。 （请下载电子表格并在excel中打开）

LINK To Spreadsheet

Answer 1

一些事情：

1. 您应该将单元格格式更改为“顶部对齐”单元格中的文本。这将导致单元格显示查询单元格中长文本的第一行。

2. 与其在单元格中使用“发送电子邮件”文本，为什么不添加一个按钮以通过电子邮件发送当前选定的行。 （使用开发人员选项卡功能区上的插入（您必须更改 excel 选项以显示开发人员选项卡）。

3. 如果发送电子邮件的代码用发送日期更新一个新列，它可能会更好，如果它已经发送，它可能会提示用户确认。

   如果不是 isempty(cells(r, ColNumberWithSentdate) ) 那么 if vbno = msgbox ("您确定要再次发送电子邮件吗？", VbYesno) then
   退出子 万一 结束如果

4. 您添加的所有文本框确实减慢了电子表格的速度。 为什么不在带有过滤器的表格上方的顶部有一个高行。高行将显示表中当前选定行的数据。然后您的表格行可能会不那么高。

5. 添加单个文本框。 使用 ALT + 单击并拖动以调整文本框的大小以完全适合单元格。 将命名范围区域中文本框的名称更改或查看为“TextBoxQuery”。

6. 添加代码以更改摘要行中的文本

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
       ' Say the tall row is in row 2
       If Target.Row <= 2 Then
           Exit Sub
       End If
   
       Dim i As Integer
       For i = 1 To 8
           Cells(2, i) = Cells(Target.Row, i)
       Next i
   
   
   End Sub
   

7. 您甚至可以允许用户编辑高行中的文本并添加一个按钮来保存他们输入的更改：

A.在标有“保存”的摘要行中添加一个 ACTIVEX 按钮 （然后您可以在表单模块中为按钮编辑vba）

B.在某处添加一个单元格，记录汇总行中显示的行。

C.单击保存按钮时，编写代码将行中的所有值复制回记录的行。

请注意，如果用户删除表中的一行或对表中的数据进行排序，则存储的行将是错误的。因此，在复制数据之前，您可能需要检查该行是否已移动。即检查 KEY 值（即永远不会改变的值）是两行中的 saem。

Private Sub CommandButton1_Click()


    Dim i As Integer
    For i = 1 To 8
        Cells(Cells(1, 1).Value, i) = Cells(2, i)
    Next i


End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ' Say the tall row is in row 2
    If Target.Row <= 2 Then
        Exit Sub
    End If

    ' Cell A1 is used to store which row is displayed
    Cells(1, 1) = Target.Row

    Dim i As Integer
    For i = 1 To 8
        Cells(2, i) = Cells(Target.Row, i)
    Next i


End Sub