Bỏ qua nội dung chính

Excel: Cách mở rộng ô để hiển thị tất cả nội dung khi nhấp vào

Trong một số trường hợp, nếu nội dung ô dài hơn chiều rộng của ô và có các giá trị trong các ô cột tiếp theo, thì chỉ các phần nội dung được hiển thị như ảnh chụp màn hình bên dưới. Để tránh thay đổi chiều rộng và chiều cao của ô, bạn có thể bấm vào ô và xem toàn bộ nội dung trong thanh công thức. Nhưng nếu thanh công thức bị ẩn hoặc ngắn hơn nội dung thì phải làm thế nào? Ở đây giới thiệu hai phương pháp có thể hiển thị nội dung ô trong hộp văn bản khi nhấp vào nó.
tự động hoàn thành từ danh sách khác

Mở rộng ô để hiển thị tất cả nội dung bằng cách chèn hộp văn bản Active X Controls

Mở rộng ô để hiển thị tất cả nội dung bằng cách sử dụng Thanh công thức lớn hơn của Kutools cho Excel

Lưu ý: các phương pháp được cung cấp trong hướng dẫn này được thử nghiệm trong Excel 2021, có thể có một số khác biệt trong các kiểu Excel khác nhau.

Mở rộng ô để hiển thị tất cả nội dung bằng cách chèn hộp văn bản Active X Controls

1. Kích hoạt trang tính mà bạn muốn mở rộng ô, nhấp vào Nhà phát triển > Chèn > Hộp văn bản (Điều khiển ActiveX).
tự động hoàn thành từ danh sách khác

Nếu không có Nhà phát triển trong ruy-băng, vui lòng hiển thị nó lúc đầu, vui lòng xem hướng dẫn này Cách Hiển thị / Hiển thị Tab Nhà phát triển Trong Ruy-băng Excel

2. Sau đó, kéo con trỏ để vẽ một hộp văn bản có chiều rộng và chiều cao có thể hiển thị nội dung dài nhất của ô. Hãy nhớ tên của hộp văn bản này, đây là TextBox1.
tự động hoàn thành từ danh sách khác

3. Nhấp chuột phải vào hộp văn bản và nhấp vào Bất động sản từ menu ngữ cảnh. Sau đó trong Bất động sản ngăn, chọn Thật từ danh sách thả xuống trong Đa dòng và WordWrap các phần. Sau đó đóng Bất động sản cửa sổ.
tự động hoàn thành từ danh sách khác  tự động hoàn thành từ danh sách khác

Hoặc bạn có thể chọn True từ danh sách thả xuống trong Kich thươc tự động trong ngăn Thuộc tính, hộp văn bản sẽ được đặt kích thước tự động dựa trên độ dài của nội dung ô bạn nhấp vào.

4. Nhấp chuột phải vào tab tên trang tính trong thanh trạng thái và nhấp vào Mã Chế độ xem từ trình đơn ngữ cảnh.

5. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, sao chép và dán mã bên dưới vào tập lệnh trống.

VBA: Mở rộng ô để hiển thị nội dung

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

tự động hoàn thành từ danh sách khác

Lưu ý rằng TextBox1 là tên của hộp văn bản bạn đã vẽ và A1: B4 là phạm vi mà mã này hoạt động, hãy thay đổi chúng khi bạn cần.

6. Quay lại trang tính, nhấp vào Nhà phát triển > Chế độ thiết kế để tồn tại chế độ thiết kế.
tự động hoàn thành từ danh sách khác

Bây giờ khi bạn nhấp vào ô, hộp văn bản sẽ xuất hiện bên cạnh nó và hiển thị toàn bộ nội dung của ô.
tự động hoàn thành từ danh sách khác

Mở rộng ô để hiển thị tất cả nội dung bằng cách sử dụng Thanh công thức lớn hơn của Kutools cho Excel

Nếu bạn đã cài đặt Kutools cho Excel, Thanh Công thức Lớn hơn mà nó cung cấp sẽ hiển thị tất cả nội dung của ô trong một hộp bật lên khi bạn nhấp vào miễn là bạn kích hoạt nó bằng cách nhấp vào Kutools > Thanh công thức lớn hơn.
tự động hoàn thành từ danh sách khác

Lời khuyên:

1. Với Thanh Công thức Lớn hơn, ngoại trừ việc xem nội dung của ô hiện hoạt, bạn cũng có thể chỉnh sửa nội dung ô trong Thanh Công thức Lớn hơn.

2. Bạn có thể thay đổi kích thước của Thanh Công thức Lớn hơn bằng cách kéo góc phải xuống của Thanh.

3. Nếu bạn chọn nhiều ô, chỉ nội dung của ô đầu tiên của vùng chọn được hiển thị trong Thanh Công thức Lớn hơn.

Thêm chi tiết về Bigger Formula Bar, vui lòng truy cập hướng dẫn.

Hoạt động khác (Bài báo)

Cách Tắt Tự động Hoàn thành
Đây là một tùy chọn trong Excel có thể dừng tự động hoàn thành.

Làm thế nào để giảm kích thước tệp Excel?
Đôi khi, sẽ mất vài phút để mở hoặc lưu nếu tệp Excel quá lớn. Để giải quyết vấn đề này, ở đây trong hướng dẫn này, nó sẽ cho bạn biết cách giảm kích thước tệp Excel bằng cách loại bỏ nội dung hoặc định dạng không cần thiết hoặc không bao giờ được sử dụng.

Cách tự động hoàn thành các ô từ một bảng khác
Trong hướng dẫn này, nó nói về cách tự động hoàn thành các ô cột khác từ một bảng trong một trang tính khác sau khi nhập một giá trị cột.

Làm thế nào để áp dụng tô bóng cho các hàng / cột lẻ hoặc chẵn (thay thế) trong Excel?
Trong khi thiết kế trang tính, nhiều người có xu hướng áp dụng tô bóng cho các hàng hoặc cột lẻ hoặc chẵn (thay thế) để làm cho trang tính trực quan hơn. Bài viết này sẽ chỉ cho bạn hai phương pháp để áp dụng đổ bóng cho các hàng / cột lẻ hoặc chẵn trong Excel.

  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột và Lưu giữ dữ liệu; Nội dung phân chia ô; Kết hợp các hàng trùng lặp và Tổng / Trung bình... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Yêu thích và Chèn công thức nhanh chóng, Dãy, Biểu đồ và Hình ảnh; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Nhóm bảng tổng hợp theo số tuần, ngày trong tuần và hơn thế nữa ... Hiển thị các ô đã mở khóa, đã khóa bởi các màu sắc khác nhau; Đánh dấu các ô có công thức / tênhữu ích. Cảm ơn !
tab kte 201905
  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Comments (5)
Rated 4.5 out of 5 · 1 ratings
Anitha V
Anitha V
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
Reply
0
0
Sunny
Sunny     Anitha V
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
Reply
Report
0
0
Neil
Neil     Sunny
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
Reply
0
0
Neil
Neil
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.
Reply
0
0
Rated 4.5 out of 5
Sunny
Sunny     Neil
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?
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations