จะเปลี่ยนความสูงของแถวตามค่าเซลล์ใน Excel ได้อย่างไร
ในการเปลี่ยนความสูงของแถวในแผ่นงานพวกเราส่วนใหญ่อาจใช้คุณสมบัติ Row Height เพื่อกำหนดความสูงของแถวที่เลือก อย่างไรก็ตามหากคุณมีรายการตัวเลขและตอนนี้คุณต้องการตั้งค่าความสูงของแถวตามค่าของเซลล์ตามภาพหน้าจอต่อไปนี้คุณจะจัดการกับงานนี้ใน Excel ได้อย่างไร?
เปลี่ยนความสูงของแถวตามค่าเซลล์ด้วยรหัส VBA
ไม่มีวิธีโดยตรงที่คุณจะเปลี่ยนความสูงหลายแถวตามค่าของเซลล์ในคราวเดียว แต่ด้วยรหัส VBA ต่อไปนี้จะช่วยให้คุณทำงานนี้ให้เสร็จได้โดยเร็วที่สุด
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: เปลี่ยนความสูงของแถวตามค่าของเซลล์:
Sub rowheight()
'Updateby Extendoffice
Dim hgt As Variant
Dim WorkRng As Range
xTxt = ActiveWindow.RangeSelection.Address
Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
If H.Value > 15 Then
hgt = H.Value
H.EntireRow.Select
Selection.rowheight = hgt
End If
Next H
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่คุณต้องการตั้งค่าความสูงของแถวตามค่าของเซลล์ดูภาพหน้าจอ:
4. จากนั้นคลิก OK ปุ่มความสูงของแถวเปลี่ยนแปลงตามค่าเซลล์ดังนี้:
หมายเหตุ: ในโค้ด VBA ด้านบน ถ้า H.Value> 15 แล้ว บ่งชี้ว่าถ้าค่าเซลล์มากกว่า 15 ความสูงของแถวจะเปลี่ยนไปถ้าค่าเซลล์น้อยกว่า 15 ความสูงของแถวจะยังคงเป็นค่าความสูงเริ่มต้น คุณสามารถเปลี่ยนได้ตามต้องการ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!