Excel 从文本框中获取单元格值

Question

我想将我的 excel 单元格与文本框链接起来。 我希望文本框内容显示在 excel 单元格中。 我要将超过 1 个单元格链接到文本框。

我的情况最初如下图所示：

我在 Excel 中简单地尝试过，写：=“TextBox 9”，但它没有用。

我读过可能不使用 VBA 代码：

https://www.reddit.com/r/excel/comments/25djwo/referencing_a_text_box_in_a_cell_formula_without/

但是右键单击后，我这里没有“属性”选项。

另一方面，替代消息来源说，在 Excel 中没有立即执行此操作的选项。

有一些 VBA 解决方案可用：

将 UserForm 文本框值传递给单元格

获取文本框的值到单元格

但在我的情况下它们不起作用

我在这里找到了最接近的解决方案：

https://www.extendoffice.com/documents/excel/4047-excel-convert-textbox-to-cell.html

但不幸的是，它适用于工作簿中所有可用的文本框，这是我不想要的。

我试图只指定一个我需要的文本框：

 Sub TextboxesToCell()
 'UpdatebyExtendoffice20160918
  Dim xRg As Range, Trg As Range
  Dim xRow As Long
  Dim xCol As Long
  Dim xTxtBox As TextBox
 
  Set xRg = Application.InputBox("Select a cell):", "Copying textbox data", _
                                ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
  xRow = xRg.Row
  xCol = xRg.Column

  Set xTxtBox = ThisWorkbook.Worksheets("Internal Checklist").Shapes("TextBox 9")
 
  For Each xTxtBox In ActiveSheet.TextBoxes
    Cells(xRow, xCol).Value = xTxtBox.Text
    xTxtBox.Delete
    xRow = xRow + 1
 Next
 
 End Sub

但不幸的是，我收到一个错误：类型不匹配

对于该行，我在其中定义了正确的文本框

    Set xTxtBox = ThisWorkbook.Worksheets("Internal Checklist").Shapes("TextBox 9")

如何从文本框中获取数据到我相关的单元格？

Answer 1

我认为文本框的类型之间发生了一些混淆。 excel主要有3种类型：

• 表单文本框
• ActiveX 文本框
• 文本框形状

您可以在此处找到有关底部两个的更多信息： https://support.microsoft.com/en-ie/office/add-a-label-or-text-box-to-a-worksheet-6905d5da-fad4- 432e-87ea-001f3ecd6cd6

我怀疑您使用的是后者，但一直在查找可以与第一个一起使用的代码。 它可能也解释了为什么你没有得到它的属性。

在 VBA 中， TextBox object 仅适用于 ActiveX 文本框。 在您将 xTxtBox 声明为 TextBox 的情况下，然后您尝试将该变量设置为文本框形状，这就是您收到类型不匹配错误的原因。

解决此问题的一种方法是将其设置为shape ：

Dim xTxtBox As Shape

然后，您可以只用一行替换for each循环中的所有内容（除非您确实想在完成后删除形状？我对您的意图有点困惑）：

Cells(xRow, xCol).Value = xTxtBox.TextFrame2.TextRange.Text

注意额外的属性 TextFrame2.TextRange。 因为它是一个形状，所以您必须深入挖掘包含 object 才能找到这些属性。

或者为了简单起见，如果您只想将单元格值设置为文本框中的内容，您可以跳过变量的声明，并将其分配给一个形状并在一行中完成：

Cells(xRow, xCol).Value = ThisWorkbook.Worksheets("Internal Checklist").Shapes("TextBox 9").TextFrame2.TextRange.Text