如何在 Excel 中將文字框中的文字轉換為單元格內容?


當我們在 Excel 中的文字框中擁有資料,並且需要手動從框中提取資料時,這可能是一個耗時的過程。如果日期在文字框中,則我們無法對其執行任何操作,因為它們被視為註釋。

閱讀本教程,瞭解如何將文字框中的文字轉換為 Excel 中的單元格內容。我們可以使用 VBA 應用程式完成此過程,因為它無法在 Excel 中直接完成。

將文字框中的文字轉換為 Excel 中的單元格內容

在這裡,我們將首先插入 VBA 模組,然後執行它以完成任務。讓我們來看一下將文字框中的文字轉換為 Excel 中的單元格內容的簡單步驟。

步驟 1

讓我們考慮任何 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

步驟 3

將工作表另存為啟用宏的工作簿,單擊 F5 執行程式碼,選擇要從其開始列表的單元格,然後單擊“確定”。

儲存 > F5 > 單元格 > 確定

結論

在本教程中,我們使用了一個簡單的示例來演示如何將文字框中的文字轉換為 Excel 中的單元格內容。

更新於: 2023-03-06

2K+ 次瀏覽

開啟你的 職業生涯

透過完成課程獲得認證

開始學習
廣告