Note: The other languages of the website are Google-translated. Back to English

Làm thế nào để tăng kích thước phông chữ danh sách thả xuống trong Excel?

doc tăng kích thước phông chữ danh sách thả xuống 1

Danh sách thả xuống là một tính năng rất hữu ích trong Excel, khi bạn tạo danh sách thả xuống trong trang tính của mình, bạn đã bao giờ cố gắng tăng kích thước phông chữ của danh sách thả xuống để làm cho bản ghi đã chọn lớn hơn và dễ đọc hơn như ảnh chụp màn hình bên trái chưa? Bài viết này sẽ nói về một giải pháp để giải quyết nó.

Tăng kích thước phông chữ danh sách thả xuống với mã VBA để phóng to thu phóng


Tăng kích thước phông chữ danh sách thả xuống với mã VBA để phóng to thu phóng

Trên thực tế, không có cách nào trực tiếp để chúng tôi tăng kích thước phông chữ của danh sách thả xuống, nhưng bạn có thể áp dụng mã VBA sau để thay đổi cài đặt thu phóng ô danh sách thả xuống để làm cho văn bản có vẻ lớn hơn. Vui lòng làm như sau:

1. Chuyển đến trang tính chứa danh sách thả xuống mà bạn muốn tăng kích thước phông chữ của nó.

2. Nhấp chuột phải vào tab trang tính và chọn Mã Chế độ xem từ menu ngữ cảnh, trong cửa sổ bật ra Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán đoạn mã sau vào chỗ trống Mô-đun cửa sổ:

Mã VBA: Tăng kích thước phông chữ danh sách thả xuống để phóng to thu phóng ô

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

3. Sau đó, lưu và đóng mã này, bây giờ, khi bạn nhấp vào các ô danh sách thả xuống, thu phóng của ô sẽ được phóng to và danh sách thả xuống sẽ xuất hiện lớn hơn, nhưng khi bạn nhấp vào các ô khác không chứa danh sách thả xuống, thu phóng ô sẽ bình thường.

Chú thích: Trong đoạn mã trên, xZoom = 130 sẽ thay đổi thu phóng ô danh sách thả xuống thành 130, bạn có thể thay đổi số thu phóng này theo nhu cầu của mình.


Tạo danh sách thả xuống với các hộp kiểm trong Excel

Nếu bạn cần tạo danh sách thả xuống với nhiều hộp kiểm để chọn nhiều mục từ danh sách vào một ô, có lẽ không có cách nào trực tiếp để bạn giải quyết công việc này. Nhưng, Kutools cho Excel hỗ trợ một tính năng tuyệt vời - Danh sách thả xuống có hộp kiểm, với tính năng này, bạn có thể nhanh chóng tạo danh sách thả xuống với các hộp kiểm trong một phạm vi được chỉ định, trang tính hiện tại, sổ làm việc hiện tại hoặc tất cả các sổ làm việc đã mở dựa trên nhu cầu của bạn.  Nhấp để tải xuống Kutools cho Excel!


Demo: Tăng kích thước phông chữ danh sách thả xuống với mã VBA để phóng to thu phóng


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • 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 mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... 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 ...
  • 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 !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • 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
Nhận xét (27)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vì vậy, mã này làm cho toàn bộ trang tính được phóng to, không chỉ hộp thả xuống. Nó cũng cho biết "không thể lưu ...... Dự án VB trong sổ làm việc bị vô hiệu hóa macro". Vân vân. Nếu tôi phải săn lùng khắp nửa mẫu Anh của địa ngục để có câu trả lời đầy đủ cho vấn đề này, thì đây không phải là câu trả lời.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
[quote] Vì vậy, mã này làm cho toàn bộ trang tính được phóng to, không chỉ hộp thả xuống. Nó cũng cho biết "không thể lưu ...... Dự án VB trong sổ làm việc bị vô hiệu hóa macro". Vân vân. Nếu tôi phải săn lùng khắp nửa mẫu Anh của địa ngục để có câu trả lời đầy đủ cho vấn đề này, thì đây không phải là câu trả lời.Bởi Michael[/ quote] Chỉ cần lưu sổ làm việc dưới dạng xlsm và thực hiện lại các bước. BTW Tôi đã thử nó và nó KHÔNG hoạt động với tôi chút nào; thu phóng vẫn ở mức 100%.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang chạy Office 2016 và sử dụng các hộp thả xuống. Tôi đã thử "Tăng kích thước phông chữ danh sách thả xuống với mã VBA để phóng to thu phóng" nhưng nó không hoạt động. Có điều gì khác tôi nên làm để làm cho nó hoạt động? Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Giống như chỉ dẫn đã chỉ ra, bạn phải thay đổi mức thu phóng từ "100" thành "130" hoặc một mức thu phóng khác để xem bất kỳ thay đổi nào. Tuy nhiên, nhận xét đầu tiên là chính xác ở chỗ nó không chỉ thay đổi menu thả xuống, mà là một khi bạn nhấp vào ô, nó sẽ phóng to toàn bộ trang tính 1% để phóng to ô đó. Không hữu ích lắm vì sau đó bạn chỉ phải thu nhỏ lại mọi lúc.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
hoặc chọn một ô thay thế trong sổ làm việc để trả nó về 100 như đã nêu trong Macro

Private Sub Worksheet_SelectionChange (ByVal Target As Range) 'updateby Extendoffice 20160530 Về lỗi GoTo LZoom Dim xZoom As Long xZoom = 100 If Target.Validation.Type = xlValidateList Thì xZoom = 130LZoom: ActiveWindow.Zoom = xZoomEnd Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Bạn chỉ thắc mắc tại sao tính năng này biến mất sau khi tệp được lưu và mở lại?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Noel, bạn nên lưu tệp Excel dưới dạng Excel Macro-Enabled Workbook.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Dzięki za podpowiedź
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn, nó hoạt động tốt
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này không làm việc cho tôi. Tôi đã dán văn bản theo hướng dẫn. Khi tôi nhấp vào menu thả xuống, kích thước phông chữ giống nhau. Sau đó, khi tôi nhấp vào một ô khác, toàn bộ bảng tính có lẽ đã tăng kích thước lên 30%. Thực sự muốn một công việc xung quanh nếu có thể
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sau khi sử dụng mã này, tôi không thể sử dụng phím quay lại trên Excel. Làm cách nào để viết mã (cài đặt) khóa quay lại?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này thu phóng toàn bộ trang tính đến 130%
Làm cách nào để chỉ tăng menu thả xuống?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Dave,
Để chỉ tăng menu thả xuống, đây là một giải pháp để giải quyết nó.

Trước tiên, sau khi chèn danh sách thả xuống trong trang tính của bạn, bạn nên chèn Hộp Tổ hợp (Điều khiển ActiveX), rồi áp dụng mã VBA sau vào mã mô-đun trang tính:

Dim xRg theo phạm vi
Private Sub ComboBox1_Change ()
On Error Resume Next
xRg.Value = Me.ComboBox1.Text
End Sub
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Về lỗi GoTo LblExit
Với tôi.ComboBox1
.Vible = False
Nếu Target.Validation.Type = xlValidateList thì
Target.Validation.InCellDropdown = Sai
.ListWidth = 120
.ListFillRange = ""
.ListFillRange = Target.Validation.Formula1
.Left = Target.Left
.Top = Mục tiêu.Top
.Width = Mục tiêu.Width
.Height = Mục tiêu.Height
.Font.Size = 16
.Vible = True
Đặt xRg = Target
Cuối Nếu
Kết thúc với
LblThoát:
End Sub

Sau khi chèn mã, bây giờ khi bạn nhấp vào ô danh sách thả xuống, một hộp tổ hợp sẽ được hiển thị và kích thước phông chữ trong trình đơn thả xuống được tăng lên khi bạn cần. Và hộp kết hợp được chèn sẽ tự động bị ẩn.

Hãy thử nó, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
THIÊN TÀI! Cảm ơn bạn Skyyang! Rất biết ơn phương pháp của bạn! Hoạt động như một sự quyến rũ!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể giải thích nó từng bước cho hình nộm được không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, ITALO,
1. Chèn trình đơn thả xuống bạn cần trong trang tính của mình;
2. Sau đó chèn Hộp tổ hợp (Điều khiển ActiveX) bằng cách nhấp vào Nhà phát triển> Chèn> Hộp tổ hợp (Điều khiển ActiveX), rồi kéo chuột để vẽ đối tượng Hộp tổ hợp;
3. Và sau đó, nhấp chuột phải vào trang tính được sử dụng hiện tại của bạn, chọn Mã Chế độ xem, và dán mã trên vào mô-đun;
4. Cuối cùng, nhấp vào Chế độ thiết kế trong tab Nhà phát triển để tắt nó.
5. Bây giờ khi bạn nhấp vào ô danh sách thả xuống, một hộp tổ hợp sẽ được hiển thị và kích thước phông chữ trong trình đơn thả xuống được tăng lên khi bạn cần.
Hãy cố gắng, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm cách nào để áp dụng kích thước thay đổi phông chữ này cho chỉ một cột? Tôi có một số cột với các hộp thả xuống và tôi chỉ muốn một cột cụ thể thay đổi kích thước phông chữ?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Câu hỏi chỉ là tôi đã dán mã vào cửa sổ Mô-đun trống (Nhấp chuột phải vào mã xem). Một khi tôi lưu, hoạt động tốt đó là tốt. Nhưng khi tôi đóng tệp và mở lại, mã đã biến mất và không thể phóng to thêm cho danh sách thả xuống. Tôi có thể biết cách cài đặt để sử dụng vĩnh viễn không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Ace,
Để lưu mã, bạn nên lưu tệp Excel dưới dạng Excel Macro-Enabled Workbook. Hãy thử nó.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có nhiều danh sách thả xuống và chỉ cần một danh sách lớn hơn vì phần còn lại là có / không. Nhưng mã bạn đã chia sẻ đang thực hiện điều này cho tất cả chúng. Làm cách nào để tôi chỉ sử dụng cái này cho một menu thả xuống?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Yvonne
Để chỉ áp dụng mã cho một ô, mã sau có thể giúp bạn: (Chú thích: trong mã, thay đổi ô I2 đến tham chiếu ô của riêng bạn.)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    Dim xRg As Range
    xZoom = 100
    Set xRg = Range("I2")
    If Not Intersect(Target, xRg) Is Nothing Then
        If Target.Validation.Type = xlValidateList Then xZoom = 130
    End If
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

Hãy cố gắng, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn về mẹo thu phóng kích thước của phông chữ trong hộp thả xuống. Nó đã thành công.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ocurre al revés. Al darizz en cualquiera celda se agranda, pero no en la lista desplegable y no vuelve al tamaño nguyên bản. Uso Excel 2010. ¿Solución? Nó xảy ra theo cách khác. Nhấp vào bất kỳ ô nào sẽ phóng to nó, nhưng không phải danh sách thả xuống và nó không trở lại kích thước ban đầu. Tôi sử dụng Excel 2010. Giải pháp?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chúng ta có thể làm điều này cho nhiều hộp thả không? Nếu không, thì thủ tục cho nhiều hộp thả là gì.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ale po zamknięciu pliku i ponownym go otwarciu to rozwiązanie już nie działa.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
OK, tôi. Trzeba zapisać plik z obsługą makra.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào bạn,
Bạn đúng rồi. Chúng tôi cần lưu tệp hỗ trợ macro để giải pháp có thể hoạt động. Có một ngày tuyệt vời.

Trân trọng,
Mandy
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL