Comment convertir du texte dans une zone de texte en contenu de cellule dans Excel?

S'il y a des zones de texte dans une feuille et que vous souhaitez convertir le contenu des zones de texte en cellules séparément, comme illustré ci-dessous, existe-t-il des moyens rapides de résoudre ce travail, sauf en entrant un par un dans Excel? Dans cet article, je vous présente une macro pour vous rendre service sur ce problème.

Convertir le contenu de la zone de texte en cellule avec VBA

---

Convertir le contenu de la zone de texte en cellule avec VBA

À l'exception du code de macro, il n'y a pas d'astuce pour convertir rapidement des zones de texte en contenu de cellule.

1. presse Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, puis collez le code ci-dessous dans le Module scripts.

VBA: convertir les zones de texte en cellule

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. presse F5 pour exécuter le code, une boîte de dialogue apparaît pour vous rappeler de sélectionner une cellule pour exporter le contenu de la zone de texte. Voir la capture d'écran:

4. Cliquez OK. Désormais, toutes les zones de texte ont été converties en contenu de cellule.

Astuce : ci-dessus, VBA supprimera les zones de texte après l'exécution. Si vous souhaitez conserver les zones de texte, veuillez modifier le code. xTxtBox.Delete à 'xTxtBox.Delete.

Extension:Si vous souhaitez convertir rapidement entre nombre et texte, essayez d'utiliser Kutools for Excel. Convertir entre texte et nombre comme indiqué dans la capture d'écran suivante. C'est une fonction complète sans limitation dans

journées, s'il vous plaît télécharger et avoir un essai gratuit maintenant.