Làm cách nào để thay đổi nhanh kích thước phông chữ dựa trên giá trị ô trong Excel?
Thay đổi kích thước phông chữ dựa trên một giá trị cột khác
Thay đổi kích thước phông chữ dựa trên giá trị ô và độ dài ký tự
Thay đổi kích thước phông chữ dựa trên một giá trị cột khác
Để thay đổi kích thước phông chữ dựa trên một giá trị cột khác, đây là một mã VBA có thể giúp bạn.
1. Chuyển đến trang tính mà bạn muốn thay đổi kích thước phông chữ dựa trên một cột khác, và nhấn Alt + F11 chìa khóa đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đun, rồi dán bên dưới VBA vào Mô-đun. Xem ảnh chụp màn hình:
VBA: Thay đổi kích thước phông chữ dựa trên một giá trị cột khác
Sub fontchange()
'UpdatebyExtendoffice20160614
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Font.Size = xCell.Offset(, 1).Value
Next
Application.ScreenUpdating = True
End Sub
3. nhấn F5 , một hộp thoại bật ra và chọn các ô bạn muốn thay đổi kích thước phông chữ của chúng. Xem ảnh chụp màn hình:
4. nhấp chuột OK, và sau đó các ô trong cột đã chọn đã được điều chỉnh kích thước phông chữ dựa trên các giá trị trong cột bên cạnh.
Thay đổi kích thước phông chữ dựa trên giá trị ô và độ dài ký tự
Mặt khác, nếu bạn muốn thay đổi kích thước phông chữ dựa trên giá trị riêng của ô hoặc độ dài ký tự, ví dụ: khi giá trị ô lớn hơn 10 hoặc độ dài ký tự lớn hơn 5, thì kích thước phông chữ thay đổi thành 16, và thay đổi phông chữ thành Arial, nếu không, kích thước phông chữ là 11 và phông chữ là Calibri như hình minh họa bên dưới.
1. nhấn Alt + F11 phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đunvà dán mã bên dưới vào Mô-đun kịch bản. Xem ảnh chụp màn hình:
VBA: Thay đổi kích thước phông chữ dựa trên giá trị ô hoặc độ dài ký tự
Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
Dim xCell As Range
For Each xCell In Range("G2:H9")
With xCell
If Len(.Text) > 5 Or Val(.Value) > 10 Then
.Font.Name = "Arial"
.Font.Size = 16
Else
.Font.Name = "Calibri"
.Font.Size = 11
End If
End With
Next
End Sub
3. nhấn F5 để chạy mã và các giá trị lớn hơn 10 hoặc độ dài ký tự lớn hơn 5 đã được thay đổi phông chữ của chúng thành Arial và kích thước phông chữ thành 16.
Mẹo: Trong mã trên, bạn có thể thay đổi dải ô G2: B9 thành các dải ô khác nếu bạn muốn.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
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!