メインコンテンツへスキップ

Excel:クリックしたときにすべてのコンテンツを表示するようにセルを展開する方法

場合によっては、セルのコンテンツがセルの幅よりも長く、次の列のセルに値がある場合、以下のスクリーンショットのようにコンテンツの一部のみが表示されます。 セルの幅と高さの変更を避けるために、セルをクリックして数式バーの内容全体を表示できます。 しかし、数式バーが隠れていたり、コンテンツよりも短い場合、どうすればよいでしょうか? ここでは、テキストボックスをクリックしたときにセルの内容を表示できる XNUMX つの方法を紹介します。
別のリストからオートコンプリート

テキストボックス Active X コントロールを挿入してセルを展開し、すべての内容を表示する

Kutools for Excelの大きなフォーミュラバーを使用して、セルを展開してすべてのコンテンツを表示します

注:このチュートリアルで提供される方法はExcel 2021でテストされており、Excelのバージョンによって異なる場合があります。


テキストボックス Active X コントロールを挿入してセルを展開し、すべての内容を表示する

1.セルを展開するワークシートをアクティブにして、クリックします Developer > インセット > テキストボックス(ActiveXコントロール).
別のリストからオートコンプリート

ない場合 Developer リボンのタブ、最初に表示してください。このチュートリアルをご覧ください。Excelリボンで開発者タブを表示/表示する方法

2.次に、カーソルをドラッグして、セルの最長の内容を表示できる幅と高さのテキストボックスを描画します。 このテキストボックスの名前を覚えておいてください。これがTextBox1です。
別のリストからオートコンプリート

3.テキストボックスを右クリックして、 プロパティ コンテキストメニューから。 その後、 プロパティ ペイン、選択 のドロップダウンリストから マルチライン > ワードラップ セクション。 次に、を閉じます プロパティ ペイン。
別のリストからオートコンプリート  別のリストからオートコンプリート

または、のドロップダウンリストから[True]を選択できます。 オートサイズ [プロパティ]ペインのセクションで、クリックしたセルの内容の長さに基づいてテキストボックスのサイズが自動的に変更されます。

4.ステータスバーの[シート名]タブを右クリックして、[ コードを表示 コンテキストメニューから選択します。

5。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のコードをコピーして空白のスクリプトに貼り付けます。

VBA:セルを展開してコンテンツを表示する

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

別のリストからオートコンプリート

TextBox1は描画したテキストボックスの名前であり、A1:B4はこのコードが機能する範囲であることに注意してください。必要に応じて、変更してください。

6.シートに戻り、をクリックします Developer > デザインモード デザインモードが存在します。
別のリストからオートコンプリート

セルをクリックすると、その横にテキストボックスが表示され、セルの内容全体が表示されます。
別のリストからオートコンプリート


Kutools for Excelの大きなフォーミュラバーを使用して、セルを展開してすべてのコンテンツを表示します

Kutools for Excelをインストールしている場合は、クリックしてアクティブにしている限り、クリックするとポップされたボックスにセルのすべての内容が表示されます。 クツール > より大きな数式バー。
別のリストからオートコンプリート

ヒント:

1. 大きな数式バーでは、アクティブ セルの内容を表示する以外に、大きな数式バーでセルの内容を編集することもできます。

2. バーの右下隅をドラッグして、大きな数式バーのサイズを変更できます。

3. 複数のセルを選択すると、選択範囲の最初のセルの内容のみが大きな数式バーに表示されます。

Bigger Formula Bar の詳細については、こちらをご覧ください。 チュートリアル.


その他の業務(記事)

オートコンプリートをオフにする方法
オートコンプリートを停止できるExcelのオプションは次のとおりです。

Excelのファイルサイズを減らす方法は?
Excelファイルが大きすぎると、開いたり保存したりするのに数分かかる場合があります。 この問題を解決するために、このチュートリアルでは、不要または使用されていないコンテンツまたは形式を削除して、Excelファイルのサイズを縮小する方法を説明します。

別のテーブルからセルをオートコンプリートする方法
このチュートリアルでは、XNUMXつの列の値を入力した後、別のシートのテーブルから他の列のセルをオートコンプリートする方法について説明します。

Excelで奇数または偶数(代替)の行/列にシェーディングを適用するにはどうすればよいですか?
ワークシートを設計する際、多くの人は、ワークシートをより視覚的にするために、奇数または偶数(代替)の行または列に陰影を付ける傾向があります。 この記事では、Excelで奇数または偶数の行/列に陰影を付けるXNUMXつの方法を紹介します。


  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする およびデータの保持。 分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • ピボットテーブルのグループ化 週番号、曜日など... ロック解除された、ロックされたセルを表示する さまざまな色で; 式/名前を持つセルを強調表示する...
kteタブ201905
  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
Comments (5)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I am having the same issue as Neil. Code works fine, except when selecting any full row or column that include the cell range in the code, i am getting the Run-time error '94'. Invalid use of Null, highlighting to .Text = Target.Text. This code was very helpful except for the debug popping up every time. Please provide a solution
This comment was minimized by the moderator on the site
Hi, I have modified the code, it will not pop up a bug dialog when you select a column of cells or multiple cells, and the textbox will be hidden as well. Please try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
If Target.CountLarge > 1 Then
    TextBox1.Visible = False
    Exit Sub
End If
xRgAddress = "A1:A20" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
This comment was minimized by the moderator on the site
Good day, this code is great - I have two columns included in my code and the expanding text box pops up no issues when a cell is clicked - however, if I highlight multiple cells including one of the cells I wish to have the text box pop up - I get run-time error '94' - Invalid use of Null. Debugging highlights the 2nd 'Text = Target.Text' line.

Appreciate any feedback.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi, do you want to show all contents of the selected cells to the textbox? Or just supports to select cells but show contents of the first one cell of the selection?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations