จะเปลี่ยนความสูงของแถวตามค่าเซลล์ใน Excel ได้อย่างไร

หากต้องการเปลี่ยนความสูงของแถวในเวิร์กชีต เราส่วนใหญ่อาจใช้ฟีเจอร์ความสูงของแถวเพื่อตั้งค่าความสูงของแถวที่เลือก อย่างไรก็ตาม หากคุณมีรายการตัวเลข และตอนนี้ต้องการตั้งค่าความสูงของแถวตามค่าของเซลล์ดังที่แสดงในภาพหน้าจอต่อไปนี้ คุณจะจัดการกับงานนี้ใน Excel ได้อย่างไร

เปลี่ยนความสูงของแถวตามค่าเซลล์ด้วยรหัส VBA

เปลี่ยนความสูงของแถวตามค่าเซลล์ด้วยรหัส 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 ความสูงของแถวจะยังคงเป็นความสูงเริ่มต้น คุณสามารถเปลี่ยนแปลงได้ตามต้องการ