如何將多個(gè)單元格的文本連接到Excel中的文本框中

如何將多個(gè)單元格的文本連接到Excel中的文本框中？

使用公式將多個(gè)單元格的文本連接到一個(gè)新的單元格中可能很容易。但是您知道如何將多個(gè)單元格值連接到文本框（ActiveX控件）嗎？實(shí)際上，本文中的方法可以幫助您實(shí)現(xiàn)它。

使用VBA代碼將多個(gè)單元格的文本連接到文本框中

使用VBA代碼將多個(gè)單元格的文本連接到文本框中驚人的！在 Excel 中使用高效的選項(xiàng)卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時(shí)間，并減少數(shù)千次鼠標(biāo)單擊！

下面的方法可以幫助您將多個(gè)單元格的文本連接到Excel中的文本框中。

1.在要連接多個(gè)單元格的工作表中，通過單擊插入文本框 開發(fā)商 > 插頁 > 文本框（ActiveX控件）。看截圖：

2。然后點(diǎn)擊 開發(fā)商 > 插頁 > 命令按鈕（ActiveX控件） 在工作表中插入命令按鈕。

3.右鍵單擊插入的命令按鈕，然后選擇 查看代碼 從上下文菜單中。看截圖：

4.在 Microsoft Visual Basic應(yīng)用程序 窗口，請用下面的VBA代碼替換原始代碼。

VBA代碼：將多個(gè)單元格的文本串聯(lián)到一個(gè)文本框中

Private Sub CommandButton1_Click()Dim xRg As RangeDim xCell As RangeDim xStr As StringOn Error Resume NextSet xRg = Application.SelectionIf xRg Is Nothing Then Exit SubWith Me.TextBox1.Text = vbNullString.MultiLine = True.WordWrap = TrueFor Each xCell In xRgxStr = xCell.Value.Text = Me.TextBox1 & xStr & Chr(10)NextEnd WithEnd SubCopy

備注：CommandButton1是插入的命令按鈕的名稱。請根據(jù)您的需要進(jìn)行更改。

5.通過單擊關(guān)閉設(shè)計(jì)模式 開發(fā)商 > 設(shè)計(jì)模式.

6.選擇將文本連接到文本框中所需的單元格，然后單擊“命令按鈕”。然后，所有選定單元格的內(nèi)容立即串聯(lián)到文本框中，如下圖所示。

相關(guān)文章：在Excel中選擇文本框時(shí)如何自動(dòng)選擇文本？在Excel中鍵入時(shí)如何自動(dòng)完成文本框？在Excel中單擊時(shí)如何清除文本框的內(nèi)容？如何禁用文本框中的以防止用戶在Excel中輸入？H可以在Excel中將文本框格式化為百分比？