Jak převést text v textovém poli na obsah buňky v aplikaci Excel?

Pokud jsou v listu některá textová pole a chcete převést obsah v textových polích na buňky samostatně, jak je ukázáno níže, existují nějaké rychlé způsoby, jak tuto úlohu vyřešit, kromě zadávání jednoho po druhém v aplikaci Excel? V tomto článku představuji makro, které vám udělá laskavost v tomto problému.

Převeďte obsah textového pole na buňku pomocí VBA

---

Převeďte obsah textového pole na buňku pomocí VBA

Kromě kódu makra neexistuje žádný trik, který by dokázal rychle převést textová pole na obsah buňky.

1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula poté vložte níže uvedený kód do Modul skripty.

VBA: Převést textová pole na buňku

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. lis F5 po spuštění kódu se zobrazí dialogové okno, které vám připomene výběr buňky k exportu obsahu textového pole. Viz snímek obrazovky:

4. cvaknutí OK. Nyní byla všechna textová pole převedena na obsah buňky.

Tip: Nad VBA po spuštění odstraní textová pole, pokud chcete textová pole ponechat, změňte kód xTxtBox.Delete na 'xTxtBox.Delete.

rozšíření:Pokud chcete rychle převést mezi číslem a textem, zkuste použít Kutools pro Excel Převádějte mezi textem a číslem jak je znázorněno na následujícím snímku obrazovky. Je plně funkční bez omezení

dnů, prosím stáhněte si a získejte bezplatnou zkušební verzi hned teď.