Як перетворити текст у текстовому полі на вміст комірки в Excel?
Якщо на аркуші є кілька текстових полів, і ви хочете перетворити вміст текстових полів у клітинки окремо, як показано на знімку екрана, чи є швидкі способи вирішити цю роботу, крім введення одного за одним у Excel? У цій статті я представляю макрос, який допоможе вам вирішити цю проблему.
Перетворити вміст текстового поля у комірку за допомогою VBA
Перетворити вміст текстового поля у комірку за допомогою VBA
Крім макрокоду, немає жодної хитрості, яка може швидко перетворити текстові поля у вміст комірки.
1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі, а потім вставте код нижче в Модулі сценарій
VBA: Перетворення текстових полів у комірку
Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
Dim xRg As Range
Dim xRow As Long
Dim xCol As Long
Dim xTxtBox As TextBox
Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
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 для запуску коду, вискакує діалогове вікно, що нагадує вам про вибір комірки для експорту вмісту текстового поля. Дивіться знімок екрана:
4. клацання OK. Тепер усі текстові поля перетворені у вміст комірки.
Порада: вище VBA видалить текстові поля після запуску, якщо ви хочете зберегти текстові поля, будь ласка, змініть код xTxtBox.Видалити до 'xTxtBox.Delete.
Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!