Excelでテキストボックス内のテキストをセルの内容に変換するにはどうすればよいですか？

シート内にいくつかのテキストボックスがあり、それらのテキストボックス内のコンテンツを以下のように個別のセルに変換したい場合、Excelで一つずつ入力する以外にこの作業を迅速に解決する方法はありますか？この記事では、この問題を解決するために役立つマクロをご紹介します。

VBAを使用してテキストボックスの内容をセルに変換する

VBAを使用してテキストボックスの内容をセルに変換する

マクロコード以外に、テキストボックスをセルの内容に迅速に変換できる便利な方法はありません。

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開きます。

2. 「挿入」>モジュールをクリックし、以下のコードをモジュールスクリプトに貼り付けます。

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.Delete を 'xTxtBox.Delete に変更してください。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！