วิธีเปลี่ยนขนาดตัวอักษรอย่างรวดเร็วตามค่าเซลล์ใน Excel

เปลี่ยนขนาดฟอนต์ตามค่าคอลัมน์อื่น
เปลี่ยนขนาดตัวอักษรตามค่าเซลล์และความยาวอักขระ
เปลี่ยนขนาดฟอนต์ตามค่าคอลัมน์อื่น
หากต้องการเปลี่ยนขนาดตัวอักษรตามค่าของคอลัมน์อื่น นี่คือโค้ด VBA ที่สามารถช่วยคุณได้
1. ไปที่แผ่นงานที่คุณต้องการเปลี่ยนขนาดตัวอักษรตามคอลัมน์อื่นแล้วกด Alt + F11 คีย์พร้อมกันเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลแล้ววางโค้ด VBA ด้านล่างนี้ลงใน โมดูล. ดูภาพหน้าจอ:
VBA: เปลี่ยนขนาดตัวอักษรตามค่าคอลัมน์อื่น
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 กด F5 ปุ่ม กล่องโต้ตอบจะปรากฏขึ้น และเลือกเซลล์ที่คุณต้องการเปลี่ยนขนาดตัวอักษร ดูภาพหน้าจอ:
4 คลิก OKจากนั้นเซลล์ในคอลัมน์ที่เลือกจะมีการปรับขนาดตัวอักษรตามค่าในคอลัมน์ที่อยู่ติดกัน
เปลี่ยนขนาดตัวอักษรตามค่าเซลล์และความยาวอักขระ
ถ้าคุณต้องการเปลี่ยนขนาดฟอนต์โดยอิงตามค่าของเซลล์หรือความยาวอักขระ เช่น เมื่อค่าของเซลล์มากกว่า 10 หรือความยาวอักขระมากกว่า 5 ก็ต้องเปลี่ยนขนาดฟอนต์เป็น 16 และฟอนต์ก็จะเปลี่ยนเป็น Arial แต่ถ้าไม่เป็นเช่นนั้น ก็ต้องเปลี่ยนขนาดฟอนต์เป็น 11 และฟอนต์ก็จะเป็น Calibri ดังภาพหน้าจอด้านล่าง
1 กด Alt + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดด้านล่างเพื่อ โมดูล สคริปต์ ดูภาพหน้าจอ:
VBA: เปลี่ยนขนาดตัวอักษรตามค่าเซลล์หรือความยาวอักขระ
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 กด F5 คีย์เพื่อรันโค้ดและค่าที่มากกว่า 10 หรือความยาวอักขระมากกว่า 5 ถูกเปลี่ยนฟอนต์เป็น Arial และขนาดฟอนต์เป็น 16
เคล็ดลับ: ในโค้ดด้านบน คุณสามารถเปลี่ยนช่วง G2: B9 เป็นช่วงอื่นได้ตามต้องการ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!