複数のセルのテキストをExcelのテキストボックスに連結するにはどうすればよいですか?
複数のセルのテキストを数式を使用して新しいセルに連結するのは簡単な場合があります。 しかし、複数のセル値をテキストボックス(ActiveXコントロール)に連結する方法を知っていますか? 実際、この記事の方法はそれを達成するのに役立ちます。
複数のセルのテキストをVBAコードを使用してテキストボックスに連結します
複数のセルのテキストをVBAコードを使用してテキストボックスに連結します
以下の方法は、複数のセルのテキストをExcelのテキストボックスに連結するのに役立ちます。
1.複数のセルを連結するワークシートで、をクリックしてテキストボックスを挿入します Developer > インセット > テキストボックス(ActiveXコントロール)。 スクリーンショットを参照してください:
2。 次に、をクリックします Developer > インセット > コマンドボタン(ActiveXコントロール) ワークシートにコマンドボタンを挿入します。
3.挿入したコマンドボタンを右クリックして、 コードを表示 コンテキストメニューから。 スクリーンショットを参照してください:
4。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、元のコードを以下のVBAコードに置き換えてください。
VBAコード:複数のセルのテキストをテキストボックスに連結します
Private Sub CommandButton1_Click()
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
On Error Resume Next
Set xRg = Application.Selection
If xRg Is Nothing Then Exit Sub
With Me.TextBox1
.Text = vbNullString
.MultiLine = True
.WordWrap = True
For Each xCell In xRg
xStr = xCell.Value
.Text = Me.TextBox1 & xStr & Chr(10)
Next
End With
End Sub
注意::CommandButton1は、挿入されたコマンドボタンの名前です。 必要に応じて変更してください。
5.をクリックしてデザインモードをオフにします Developer > デザインモード.
6.テキストをテキストボックスに連結するために必要なセルを選択し、コマンドボタンをクリックします。 次に、選択したすべてのセルの内容が、下のスクリーンショットに示すようにすぐにテキストボックスに連結されます。
関連記事:
- Excelでテキストボックスが選択されているときにテキストボックスのテキストを自動選択するにはどうすればよいですか?
- Excelで入力するときにテキストボックスをオートコンプリートするにはどうすればよいですか?
- Excelでクリックしたときにテキストボックスの内容をクリアするにはどうすればよいですか?
- ユーザーがExcelに入力できないように、テキストボックスでの編集を無効にするにはどうすればよいですか?
- HExcelでテキストボックスをパーセンテージとしてフォーマットするのはどうですか?
最高のオフィス生産性向上ツール
人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
上位 15 のツールセット: 12 テキスト 工具 (テキストを追加, 文字を削除する、...) | 50+ チャート 種類 (ガントチャート、...) | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...) | 19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...) | 12 変換 工具 (数字から言葉へ, 通貨の換算、...) | 7 マージ&スプリット 工具 (高度な結合行, 分割セル、...) | ... もっと |
Excel スキルを強化する Kutools for Excel、そして今までにない効率を体験してください。 Kutools for Excel 生産性を向上させ、時間を節約するための 300 を超える高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Office Tab Office にタブ付きインターフェイスを導入し、作業を大幅に簡素化します
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
