Excel 如何将文本框中的文本转换为单元格内容

当我们在Excel中拥有文本框中的数据，并需要从文本框中手动提取数据时，这可能是一个耗时的过程。如果日期在文本框中，我们就不能对其进行任何操作，因为它们被当作注释处理。

阅读本教程，了解如何将文本框中的文本转换为Excel中的单元格内容。我们可以使用VBA应用程序完成这一过程，因为它不能直接在Excel中完成。

将文本框中的文本转换为Excel中的单元格内容

在这里，我们将首先插入VBA模块，然后运行它来完成这项任务。让我们来看看在Excel中把文本框中的文本转换为单元格内容的简单程序。

第1步

让我们考虑任何Excel工作表，其中包含的文本框与下图中的数据类似。

如何将文本框中的文本转换为Excel中的单元格内容？

现在，右击工作表名称，选择查看代码，打开VBA应用程序，然后点击插入并选择模块。

**右键单击 > 查看代码 > 插入 > 模块 **

第2步

在文本框中复制以下程序代码，如下图所示。

程序

Sub TextboxesToCell()
'Update By Nirmal
    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
    Set xRg = Application.InputBox("Select a cell):", "Convert text box", _ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.Text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
    End Sub

如何将文本框中的文本转换为Excel中的单元格内容？