Snasui Excel Forum

:D แนบไฟล์ตัวอย่างมาด้วยจะได้สะดวกในการปรับ Code และทดสอบครับ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


    If Range("W13").Value >= 95 Then
    Rows(13).RowHeight = 22
    Else
    Rows(13).RowHeight = 15
     
    Exit Sub

    End If
    
End Sub

รบกวนสอบถามสูตรหน่อยครับ พอดีพึ่งเริ่มหัดเขียน VBA อยากสอบถามแนวทางการเขียนสูตรที่มี IF มากกว่า 1

โดยเงื่อนไข Cell W13:W32 ที่มีค่ามากกว่าหรือเท่ากับ 95 ให้กำหนดความสูงของแถว Rows ตั้งแต่แถว 13:32 เป็นค่าตามที่กำหนด และ ถ้าค่าน้อยกว่า 95 ให้เป็นค่าตามที่กำหนด

[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Range("W13").Value >= 95 Then
Rows(13).RowHeight = 22
Else
Rows(13).RowHeight = 15

Exit Sub

End If

End Sub[/code]

รบกวนอาจารย์ด้วยครับ ขอบคุณสำหรับคำแนะนำครับ